The World of Computer Software

home *** CD-ROM | disk | FTP | other *** search

/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / biteit.zip / SYSDV2A.RPG < prev next >

Wrap

Text File | 1993-01-25 | 10KB | 356 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 00130FFILSECA O 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 02760O*ILSECB E OUTB 02770O* REC1 256 02780O* REC2 512 02790O*ILSECC E OUTC 02800O* REC1 256 02810O* REC2 512 02820O*ILSECD E OUTD 02830O* REC1 256 02840O* REC2 512 02850O*ILSECE E OUTE 02860O* REC1 256 02870O* REC2 512 02880O*ILSECF E OUTF 02890O* REC1 256 02900O* REC2 512 02910O*ILSECG E OUTG 02920O* REC1 256 02930O* REC2 512 02940O*ILSECH E OUTH 02950O* REC1 256 02960O* REC2 512 02970O*ILSECI E OUTI 02980O* REC1 256 02990O* REC2 512 03000O*ILSECJ E OUTJ 03010O* REC1 256 03020O* REC2 512 03030O*ILSECK E OUTK 03040O* REC1 256 03050O* REC2 512 03060O*ILSECL 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