77 lines
1.3 KiB
Plaintext
77 lines
1.3 KiB
Plaintext
COMPILE ROUTINE LOAD_SUB_PART(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Send_Dyn,Send_Info, Send_Dyn, Set_Status, RList, ErrMsg
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
|
|
$INSERT PART_EQUATES
|
|
$INSERT SUB_PART_EQUATES
|
|
|
|
|
|
EQU TARGET_ACTIVELIST$ to 5
|
|
|
|
|
|
OPEN 'PART' TO PartTable ELSE
|
|
ErrMsg('Unable to open PART')
|
|
GOTO Bail
|
|
END
|
|
|
|
OPEN 'SUB_PART' TO SubPartTable ELSE
|
|
ErrMsg('Unable to open SUB_PART')
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
SelectSent = 'SELECT PART WITH BASE_SUB_PN NE ""'
|
|
|
|
RList(SelectSent,TARGET_ACTIVELIST$, "", "", "")
|
|
|
|
IF Get_Status(errCode) THEN
|
|
ErrMsg(errCode)
|
|
GOTO Bail
|
|
END
|
|
|
|
DEBUG
|
|
|
|
RecCnt = 0
|
|
Done = 0
|
|
|
|
LOOP
|
|
READNEXT PartNo ELSE Done = 1
|
|
UNTIL Done
|
|
READ PartRec FROM PartTable,PartNo THEN
|
|
BaseSubPN = XLATE('PART',PartNo,'BASE_SUB_PN','X')
|
|
SubPN = PartRec<PART_SUB_PART_NO$>
|
|
|
|
|
|
IF SubPN MATCHES "6N'-'1A'-'2A" ELSE SubPN = BaseSubPN
|
|
|
|
READ SubPartRec FROM SubPartTable,SubPN ELSE SubPartRec = ''
|
|
|
|
LOCATE PartNO IN SubPartRec<SUB_PART_PART_NO$> BY 'AR' USING @VM SETTING Pos ELSE
|
|
SubPartRec = INSERT(SubPartRec,SUB_PART_PART_NO$,Pos,0,PartNo)
|
|
END
|
|
|
|
WRITE SubPartRec ON SubPartTable,SubPN THEN
|
|
RecCnt += 1
|
|
Send_Dyn(RecCnt:' ':PartNo:' ':SubPN)
|
|
END
|
|
|
|
|
|
END
|
|
REPEAT
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|
|
|
|
|