87 lines
1.2 KiB
Plaintext
87 lines
1.2 KiB
Plaintext
COMPILE ROUTINE FIX_PROD_VER(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE obj_Schedule,Send_Dyn,Send_Info, RList, ErrMsg, obj_Prod_Spec, Btree.Extract
|
|
DECLARE FUNCTION Get_Status, Set_Printer,
|
|
|
|
$INSERT PROD_VER_EQUATES
|
|
|
|
|
|
|
|
|
|
OPEN 'PROD_VER' TO ProdVerTable ELSE
|
|
DEBUG
|
|
GOTO Bail
|
|
END
|
|
|
|
DEBUG
|
|
|
|
SELECT ProdVerTable
|
|
|
|
|
|
Done = 0
|
|
RecCnt = 0
|
|
|
|
LOOP
|
|
READNEXT PVNo ELSE Done = 1
|
|
UNTIL Done
|
|
READ ProdVerRec FROM ProdVerTable,PVNo THEN
|
|
|
|
|
|
ReactType = ProdVerRec<PROD_VER_REACT_TYPE$>
|
|
|
|
IF ReactType = 'EPS' THEN
|
|
ProdVerRec<PROD_VER_REACT_TYPE$> = 'ASM'
|
|
|
|
|
|
WRITE ProdVerRec ON ProdVerTable,PVNo THEN
|
|
RecCnt += 1
|
|
Send_Dyn(PVNo:' ':RecCnt:' ':ReactType:' -> ':ProdVerRec<PROD_VER_REACT_TYPE$>)
|
|
Send_Info(RecCnt)
|
|
END
|
|
END
|
|
END
|
|
REPEAT
|
|
|
|
GOTO Bail
|
|
|
|
|
|
|
|
|
|
GOTO Bail
|
|
*/
|
|
|
|
RList('SELECT PROD_SPEC WITH STATUS = "A" AND WITH EPI_PART_NO NE "" ',5)
|
|
|
|
SelCnt = @RECCOUNT
|
|
DEBUG
|
|
Done = 0
|
|
RecCnt = 0
|
|
FixCnt = 0
|
|
LOOP
|
|
READNEXT ProdSpecNo ELSE Done = 1
|
|
UNTIL Done
|
|
|
|
READ ProdSpecRec FROM ProdSpecTable,ProdSpecNo THEN
|
|
|
|
|
|
obj_Prod_Spec('PushSplit',ProdSpecNo)
|
|
|
|
FixCnt += 1
|
|
|
|
Send_Info(RecCnt:' - ':FixCnt)
|
|
|
|
|
|
END ;* End of read
|
|
|
|
REPEAT
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|