home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
3x400
/
includes.lzh
/
STDDCL.RPG
< prev
next >
Wrap
Text File
|
1988-08-19
|
2KB
|
30 lines
C MOVE '1' CANCEL 1 Logical Cancel
C MOVE '0' BOF 1 Begining of file
C MOVE '0' BOF1 1 Begining of file
C MOVE '0' BOF2 1 Begining of file
C MOVE '0' BOF3 1 Begining of file
C MOVE '0' BOF4 1 Begining of file
C MOVE '0' EOF 1 End of file
C MOVE '0' EOF1 1 End of file
C MOVE '0' EOF2 1 End of file
C MOVE '0' EOF3 1 End of file
C MOVE '0' EOF4 1 End of file
C MOVE '0' NF 1 File Not Found
C MOVE '0' NF1 1 File Not Found
C MOVE '0' NF2 1 File Not Found
C MOVE '0' NF3 1 File Not Found
C MOVE '0' NF4 1 File Not Found
C MOVE '1' ON 1 Logical ON
C MOVE '0' OFF 1 Logical OFF
C MOVE 'Y' YES 1 Literal YES
C MOVE 'N' NO 1 Literal NO
C MOVE 'a' AM 1 Literal AM
C MOVE 'p' PM 1 Literal PM
C MOVE '0' RDONLY 1 Read Only?
/SPACE
C Z-ADD0 X 70 Work var X
C *LIKE DEFN X W
C *LIKE DEFN X Y
C *LIKE DEFN X Z
C *LIKE DEFN X RRN