home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
b
/
biteit.zip
/
SYSCMB2.RPG
< prev
next >
Wrap
Text File
|
1993-01-20
|
4KB
|
131 lines
00010FWKSTN CD F 91 WORKSTN
00020FDVPARM O V 80 DISK
00030FCMB2 O V 80 DISK
00040E MSG 1 10 40
00050E OPT 2 2 2 0
00060IWKSTN AA 1 C1
00070I* Format - COPY
00080I 1 1 RCIDSC
00090I 2 9 FFNMSC
00100I 10 12 FXNMSC
00110I 13 210SFTXSC
00120I 22 300EFTXSC
00130I 31 38 TFNMSC
00140I 39 41 TXNMSC
00150I 42 500CATXSC
00160I 51 520OPTNSC
00170C START IFLT '1'
00180C MOVE 01 OPTNSC
00190C MOVE '1' START 1
00200C END
00210C OPTNSC DOUEQ99
00220C EXCPTCOPY
00230C READ WKSTN
00240C MOVE *BLANKS OMSGSC 40
00250C OPTNSC IFEQ 99
00260C EXCPTBATF1
00270C SETON LR
00280C END
00290C OPTNSC IFEQ 01
00300C EXSR EDITS
00310C IN98 IFEQ ' '
00320C EXCPTPARMS
00330C EXCPTBATF2
00340C MOVE 99 OPTNSC
00350C SETON LR
00360C END
00370C END
00380C OPTNSC LOKUPOPT 50
00390C N50 SETON 27
00400C N50 MOVELMSG,1 OMSGSC
00410C END
00420CSR EDITS BEGSR
00430CSR SETOF 202122
00440CSR SETOF 232425
00450CSR SETOF 26
00460CSR MOVE ' ' IN98 1
00470C*R CATXSC IFEQ 0
00480C*R SETON 26
00490C*R MOVELMSG,8 OMSGSC
00500C*R MOVE '1' IN98
00510C*R END
00520CSR TXNMSC IFEQ ' '
00530CSR SETON 25
00540CSR MOVELMSG,7 OMSGSC
00550CSR MOVE '1' IN98
00560CSR END
00570CSR TXNMSC IFEQ ' '
00580CSR END
00590CSR TFNMSC IFEQ ' '
00600CSR SETON 24
00610CSR MOVELMSG,6 OMSGSC
00620CSR MOVE '1' IN98
00630CSR END
00640CSR EFTXSC IFEQ 0
00650CSR SETON 23
00660CSR MOVELMSG,5 OMSGSC
00670CSR MOVE '1' IN98
00680CSR END
00690CSR SFTXSC IFEQ 0
00700CSR SETON 22
00710CSR MOVELMSG,4 OMSGSC
00720CSR MOVE '1' IN98
00730CSR END
00740CSR FXNMSC IFEQ ' '
00750CSR SETON 21
00760CSR MOVELMSG,3 OMSGSC
00770CSR MOVE '1' IN98
00780CSR END
00790CSR FFNMSC IFEQ ' '
00800CSR SETON 20
00810CSR MOVELMSG,2 OMSGSC
00820CSR MOVE '1' IN98
00830CSR END
00840CSR ENDSR
00850OWKSTN E COPY
00860O K8 'COPY '
00870O FFNMSC 8
00880O FXNMSC 11
00890O SFTXSCZ 20
00900O EFTXSCZ 29
00910O TFNMSC 37
00920O TXNMSC 40
00930O CATXSCZ 49
00940O OPTNSC 51
00950O OMSGSC 91
00960ODVPARM E PARMS
00970O FFNMSC 8
00980O FXNMSC 11
00990O SFTXSC 20
01000O EFTXSC 29
01010O TFNMSC 37
01020O TXNMSC 40
01030O CATXSC 49
01040O 50 '1'
01050OCMB2 E BATF1
01060O 3 'CLS'
01070O E BATF2
01080O 8 'ECHO OFF'
01090O E BATF2
01100O 15 'SYSCB2 INFILE1='
01110O FFNMSC 23
01120O 24 '.'
01130O FXNMSC 27
01140O 36 ',INFILE2='
01150O TFNMSC 44
01160O 45 '.'
01170O TXNMSC 48
** MSG
INVALID OPTION
FROM FILENAME CANNOT BE BLANK
FROM EXTENSION CANNOT BE BLANK
STARTING TEXT STRING CANNOT BE BLANK
ENDING TEXT STRING CANNOT BE BLANK
TO FILENAME CANNOT BE BLANK
TO EXTENSION CANNOT BE BLANK
COPY AFTER TEXT STRING CANNOT BE BLANK
01310ID OPTION
01320ID OPTION
** OPT
0199