home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
b
/
biteit.zip
/
SYSDV8.RPG
< prev
next >
Wrap
Text File
|
1993-01-21
|
11KB
|
396 lines
00010H SYSDV1
00020F* THIS PROGRAM WILL WRITE OUT THE SELECTED BYTES
00030FINFILE1 IP F 512 DISK
00040FDVPARM IC F 12 DISK
00050FFILSEC1 O F 512 DISK
00060FFILSEC2 O F 512 DISK
00070FFILSEC3 O F 512 DISK
00080FFILSEC4 O F 512 DISK
00090FFILSEC5 O F 512 DISK
00100FFILSEC6 O F 512 DISK
00110FFILSEC7 O F 512 DISK
00120FFILSEC8 O F 512 DISK
00130FFILSEC9 O F 512 DISK
00140FFILSECA O F 512 DISK
00150FFILSECB O F 512 DISK
00160FFILSECC O F 512 DISK
00170FFILSECD O F 512 DISK
00180FFILSECE O F 512 DISK
00190FFILSECF O F 512 DISK
00200FFILSECG O F 512 DISK
00210FFILSECH O F 512 DISK
00220FFILSECI O F 512 DISK
00230FFILSECJ O F 512 DISK
00240FFILSECK O F 512 DISK
00250FFILSECL O F 512 DISK
00260FFILSECM O F 512 DISK
00270FFILSECN O F 512 DISK
00280FFILSECO O F 512 DISK
00290FFILSECP O F 512 DISK
00300FFILSECQ O F 512 DISK
00310FFILSECR O F 512 DISK
00320FFILSECS O F 512 DISK
00330F*ILSECT O F 512 DISK
00340F*ILSECU O F 512 DISK
00350F*ILSECV O F 512 DISK
00360F*ILSECW O F 512 DISK
00370F*ILSECX O F 512 DISK
00380F*ILSECY O F 512 DISK
00390F*ILSECZ O F 512 DISK
00400F*ILSEC1AO F 512 DISK
00410F*ILSEC1BO F 512 DISK
00420F*ILSEC1CO F 512 DISK
00430F*ILSEC1DO F 512 DISK
00440F*ILSEC1EO F 512 DISK
00450F*ILSEC1FO F 512 DISK
00460F*ILSEC1GO F 512 DISK
00470F*ILSEC1HO F 512 DISK
00480F*ILSEC1IO F 512 DISK
00490F*ILSEC1JO F 512 DISK
00500F*ILSEC1KO F 512 DISK
00510F*ILSEC1LO F 512 DISK
00520F*ILSEC1MO F 512 DISK
00530F*ILSEC1NO F 512 DISK
00540F*ILSEC1OO F 512 DISK
00550IINFILE1 AA 01
00560I 1 256 REC1
00570I 257 512 REC2
00580IDVPARM CC 03
00590I 1 8 FFNMSC
00600I 9 11 FXNMSC
00610I 12 120TYPESC
00620C*****************************
00630C* ADD 1 TO NUMBER OF BYTES READ IN
00640C*****************************
00650C ADD 512 BYTSIN 90
00660C*****************************
00670C* DO ONE CHAIN TO THE PARAMETERS FILE
00680C*****************************
00690C START IFLT '1'
00700C 1 CHAINDVPARM 50
00710C MOVE '1' START 1
00720C END
00730C*
00740C*****************************
00750C* IF THE BYTES READ IN IS EQUAL TO OR GREATER THAN
00760C* THE STARTING BYTE PARAMETER -- AND
00770C* LESS THAN OR EQUAL TO THE ENDING BYTE
00780C* PARAMETER, THEN WRITE THAT BYTE TO THE
00790C* OUTPUT FILE
00800C*****************************
00810C BYTSIN IFGT 0
00820C BYTSIN IFLE 1106944
00830C EXCPTOUT1
00840C END
00850C END
00860C BYTSIN IFGT 1106944
00870C BYTSIN IFLE 2213888
00880C EXCPTOUT2
00890C END
00900C END
00910C BYTSIN IFGT 2213888
00920C BYTSIN IFLE 3320832
00930C EXCPTOUT3
00940C END
00950C END
00960C BYTSIN IFGT 3320832
00970C BYTSIN IFLE 4427776
00980C EXCPTOUT4
00990C END
01000C END
01010C BYTSIN IFGT 4427776
01020C BYTSIN IFLE 5534720
01030C EXCPTOUT5
01040C END
01050C END
01060C BYTSIN IFGT 5534720
01070C BYTSIN IFLE 6641714
01080C EXCPTOUT6
01090C END
01100C END
01110C BYTSIN IFGT 6641714
01120C BYTSIN IFLE 7748658
01130C EXCPTOUT7
01140C END
01150C END
01160C BYTSIN IFGT 7748658
01170C BYTSIN IFLE 8855602
01180C EXCPTOUT8
01190C END
01200C END
01210C BYTSIN IFGT 8855602
01220C BYTSIN IFLE 9962546
01230C EXCPTOUT9
01240C END
01250C END
01260C BYTSIN IFGT 9962546
01270C BYTSIN IFLE 11069490
01280C EXCPTOUTA
01290C MOVE '1' ONCE 1
01300C END
01310C END
01320C BYTSIN IFGT 11069490
01330C BYTSIN IFLE 12176434
01340C EXCPTOUTB
01350C MOVE '1' ONCE 1
01360C END
01370C END
01380C BYTSIN IFGT 12176434
01390C BYTSIN IFLE 13283378
01400C EXCPTOUTC
01410C MOVE '1' ONCE 1
01420C END
01430C END
01440C BYTSIN IFGT 13283378
01450C BYTSIN IFLE 14390320
01460C EXCPTOUTD
01470C MOVE '1' ONCE 1
01480C END
01490C END
01500C BYTSIN IFGT 14390320
01510C BYTSIN IFLE 15497266
01520C EXCPTOUTE
01530C MOVE '1' ONCE 1
01540C END
01550C END
01560C BYTSIN IFGT 15497266
01570C BYTSIN IFLE 16604210
01580C EXCPTOUTF
01590C MOVE '1' ONCE 1
01600C END
01610C END
01620C BYTSIN IFGT 16604210
01630C BYTSIN IFLE 17711154
01640C EXCPTOUTG
01650C MOVE '1' ONCE 1
01660C END
01670C END
01680C BYTSIN IFGT 17711154
01690C BYTSIN IFLE 18818098
01700C EXCPTOUTH
01710C MOVE '1' ONCE 1
01720C END
01730C END
01740C BYTSIN IFGT 18818098
01750C BYTSIN IFLE 19925042
01760C EXCPTOUTI
01770C MOVE '1' ONCE 1
01780C END
01790C END
01800C BYTSIN IFGT 19925042
01810C BYTSIN IFLE 21031986
01820C EXCPTOUTJ
01830C MOVE '1' ONCE 1
01840C END
01850C END
01860C BYTSIN IFGT 21031986
01870C BYTSIN IFLE 22138930
01880C EXCPTOUTJ
01890C MOVE '1' ONCE 1
01900C END
01910C END
01920C BYTSIN IFGT 22138930
01930C BYTSIN IFLE 23245874
01940C EXCPTOUTK
01950C MOVE '1' ONCE 1
01960C END
01970C END
01980C BYTSIN IFGT 23245874
01990C BYTSIN IFLE 24352818
02000C EXCPTOUTL
02010C MOVE '1' ONCE 1
02020C END
02030C END
02040C BYTSIN IFGT 24352818
02050C BYTSIN IFLE 25459762
02060C EXCPTOUTM
02070C MOVE '1' ONCE 1
02080C END
02090C END
02100C BYTSIN IFGT 25459762
02110C BYTSIN IFLE 26566706
02120C EXCPTOUTN
02130C MOVE '1' ONCE 1
02140C END
02150C END
02160C BYTSIN IFGT 26566706
02170C BYTSIN IFLE 27673650
02180C EXCPTOUTO
02190C MOVE '1' ONCE 1
02200C END
02210C END
02220C BYTSIN IFGT 27673650
02230C BYTSIN IFLE 28780594
02240C EXCPTOUTP
02250C MOVE '1' ONCE 1
02260C END
02270C END
02280C BYTSIN IFGT 28780594
02290C BYTSIN IFLE 29887538
02300C EXCPTOUTQ
02310C MOVE '1' ONCE 1
02320C END
02330C END
02340C BYTSIN IFGT 29887538
02350C BYTSIN IFLE 30994482
02360C EXCPTOUTR
02370C MOVE '1' ONCE 1
02380C END
02390C END
02400C BYTSIN IFGT 30994482
02410C BYTSIN IFLE 99999999
02420C EXCPTOUTS
02430C MOVE '1' ONCE 1
02440C END
02450C END
02460OFILSEC1 E OUT1
02470O REC1 256
02480O REC2 512
02490OFILSEC2 E OUT2
02500O REC1 256
02510O REC2 512
02520OFILSEC3 E OUT3
02530O REC1 256
02540O REC2 512
02550OFILSEC4 E OUT4
02560O REC1 256
02570O REC2 512
02580OFILSEC5 E OUT5
02590O REC1 256
02600O REC2 512
02610OFILSEC6 E OUT6
02620O REC1 256
02630O REC2 512
02640OFILSEC7 E OUT7
02650O REC1 256
02660O REC2 512
02670OFILSEC8 E OUT8
02680O REC1 256
02690O REC2 512
02700OFILSEC9 E OUT9
02710O REC1 256
02720O REC2 512
02730OFILSECA E OUTA
02740O REC1 256
02750O REC2 512
02760OFILSECB E OUTB
02770O REC1 256
02780O REC2 512
02790OFILSECC E OUTC
02800O REC1 256
02810O REC2 512
02820OFILSECD E OUTD
02830O REC1 256
02840O REC2 512
02850OFILSECE E OUTE
02860O REC1 256
02870O REC2 512
02880OFILSECF E OUTF
02890O REC1 256
02900O REC2 512
02910OFILSECG E OUTG
02920O REC1 256
02930O REC2 512
02940OFILSECH E OUTH
02950O REC1 256
02960O REC2 512
02970OFILSECI E OUTI
02980O REC1 256
02990O REC2 512
03000OFILSECJ E OUTJ
03010O REC1 256
03020O REC2 512
03030OFILSECK E OUTK
03040O REC1 256
03050O REC2 512
03060OFILSECL E OUTL
03070O REC1 256
03080O REC2 512
03090OFILSECM E OUTM
03100O REC1 256
03110O REC2 512
03120OFILSECN E OUTN
03130O REC1 256
03140O REC2 512
03150OFILSECO E OUTO
03160O REC1 256
03170O REC2 512
03180OFILSECP E OUTP
03190O REC1 256
03200O REC2 512
03210OFILSECQ E OUTQ
03220O REC1 256
03230O REC2 512
03240OFILSECR E OUTR
03250O REC1 256
03260O REC2 512
03270OFILSECS E OUTS
03280O REC1 256
03290O REC2 512
03300O*ILSECT E OUTT
03310O* REC1 256
03320O* REC2 512
03330O*ILSECU E OUTU
03340O* REC1 256
03350O* REC2 512
03360O*ILSECV E OUTV
03370O* REC1 256
03380O* REC2 512
03390O*ILSECW E OUTW
03400O* REC1 256
03410O* REC2 512
03420O*ILSECX E OUTX
03430O* REC1 256
03440O* REC2 512
03450O*ILSECY E OUTY
03460O* REC1 256
03470O* REC2 512
03480O*ILSECZ E OUTZ
03490O* REC1 256
03500O* REC2 512
03510O*ILSEC1AE OUT1A
03520O* REC1 256
03530O* REC2 512
03540O*ILSEC1BE OUT1B
03550O* REC1 256
03560O* REC2 512
03570O*ILSEC1CE OUT1C
03580O* REC1 256
03590O* REC2 512
03600O*ILSEC1DE OUT1D
03610O* REC1 256
03620O* REC2 512
03630O*ILSEC1EE OUT1E
03640O* REC1 256
03650O* REC2 512
03660O*ILSEC1FE OUT1F
03670O* REC1 256
03680O* REC2 512
03690O*ILSEC1GE OUT1G
03700O* REC1 256
03710O* REC2 512
03720O*ILSEC1HE OUT1H
03730O* REC1 256
03740O* REC2 512
03750O*ILSEC1IE OUT1I
03760O* REC1 256
03770O* REC2 512
03780O*ILSEC1JE OUT1J
03790O* REC1 256
03800O* REC2 512
03810O*ILSEC1KE OUT1K
03820O* REC1 256
03830O* REC2 512
03840O*ILSEC1LE OUT1L
03850O* REC1 256
03860O* REC2 512
03870O*ILSEC1ME OUT1M
03880O* REC1 256
03890O* REC2 512
03900O*ILSEC1NE OUT1N
03910O* REC1 256
03920O* REC2 512
03930O*ILSEC1OE OUT1O
03940O* REC1 256
03950O* REC2 512