46 lines
757 B
Plaintext
46 lines
757 B
Plaintext
COMPILE ROUTINE FIX_EXPORTS(Dummy)
|
|
ROWDEF (CHARSTR)
|
|
|
|
DECLARE SUBROUTINE SEND_INFO, SEND_DYN
|
|
|
|
|
|
$INSERT EXPORTS_EQU
|
|
|
|
OPEN "EXPORTS" TO TableIn ELSE
|
|
Send_Info('Puked on table open')
|
|
GOTO Bail
|
|
END
|
|
|
|
Select TableIn
|
|
|
|
Done = 0
|
|
RecCnt = 0
|
|
SchedNos = ''
|
|
|
|
LOOP
|
|
READNEXT ExportName ELSE Done = 1
|
|
UNTIL Done
|
|
READ ExportRec FROM TableIn,ExportName THEN
|
|
RecCnt += 1
|
|
IF ExportRec<EXPORTS_ENTRY_ID$> = 'MATT_L' THEN
|
|
IF ExportRec<EXPORTS_SHARABLE$> = 0 THEN
|
|
ExportRec<EXPORTS_SHARABLE$> = 1
|
|
WRITE ExportRec ON TableIn,ExportName THEN
|
|
Send_Dyn(ExportName:' - ':ExportRec<EXPORTS_ENTRY_ID$>:' - ':ExportRec<EXPORTS_SHARABLE$>)
|
|
END
|
|
END
|
|
END
|
|
END
|
|
REPEAT
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
END
|