34 lines
453 B
Plaintext
34 lines
453 B
Plaintext
COMPILE ROUTINE FIX_LOCATION(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
DECLARE SUBROUTINE Send_Dyn,Send_Info
|
|
DECLARE FUNCTION Get_Status, Set_Printer
|
|
|
|
|
|
|
|
OPEN 'LOCATION' To File.In THEN
|
|
|
|
FOR I = 2 TO 50
|
|
|
|
LOCATIONKEY = 'FGS*':I
|
|
|
|
LOCREC = 'Bin ':I
|
|
|
|
WRITE LocRec ON File.In,LocationKey THEN
|
|
SEND_DYN(LOCATIONKEY:' ':LOCREC)
|
|
END
|
|
|
|
NEXT I
|
|
|
|
|
|
END
|
|
|
|
|
|
|
|
IF Get_Status(errCode) THEN DEBUG
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|