File number: Difference between revisions
Jump to navigation
Jump to search
(Created page with "Used in OPEN, READ, and CLOSE statements to designate a file, printing, or window number. For example: 00130 open #1: "name=orders.INT,kfname=lastf...") |
No edit summary |
||
| (One intermediate revision by the same user not shown) | |||
| Line 4: | Line 4: | ||
00290 read #1, using RECFORM: Mat Answers$,Shipping$,Mat Ordered eof DONEREADING | 00290 read #1, using RECFORM: Mat Answers$,Shipping$,Mat Ordered eof DONEREADING | ||
00300 RECFORM: form C 30,C 30,C 30,C 15,C 2,C 7,C 1,N 1,N 1,N 1 | 00300 RECFORM: form C 30,C 30,C 30,C 15,C 2,C 7,C 1,N 1,N 1,N 1 | ||
00500 open #255: | 00500 open #255: | ||
07500 close#1 | 07500 close#1 | ||
It doesn't have to be a number. For clarity, you might want to say: | |||
00130 open #Current_file: "name=orders.INT,kfname=lastfirst.int, recl=118,kps=31/1,kln=30/30,USE", internal, outin, keyed | |||
00290 read #Current_file, using RECFORM: Mat Answers$,Shipping$,Mat Ordered eof DONEREADING | |||
00300 RECFORM: form C 30,C 30,C 30,C 15,C 2,C 7,C 1,N 1,N 1,N 1 | |||
00500 open #Current_Printer: | |||
07500 close#Current_file: | |||
<noinclude> | <noinclude> | ||
[[Category:All Parameters]] | [[Category:All Parameters]] | ||
</noinclude> | </noinclude> | ||
Latest revision as of 16:47, 5 June 2014
Used in OPEN, READ, and CLOSE statements to designate a file, printing, or window number. For example:
00130 open #1: "name=orders.INT,kfname=lastfirst.int, recl=118,kps=31/1,kln=30/30,USE", internal, outin, keyed
00290 read #1, using RECFORM: Mat Answers$,Shipping$,Mat Ordered eof DONEREADING 00300 RECFORM: form C 30,C 30,C 30,C 15,C 2,C 7,C 1,N 1,N 1,N 1
00500 open #255:
07500 close#1
It doesn't have to be a number. For clarity, you might want to say:
00130 open #Current_file: "name=orders.INT,kfname=lastfirst.int, recl=118,kps=31/1,kln=30/30,USE", internal, outin, keyed
00290 read #Current_file, using RECFORM: Mat Answers$,Shipping$,Mat Ordered eof DONEREADING 00300 RECFORM: form C 30,C 30,C 30,C 15,C 2,C 7,C 1,N 1,N 1,N 1
00500 open #Current_Printer:
07500 close#Current_file: