home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
b
/
biteit.zip
/
SYSDV2.RPG
< prev
next >
Wrap
Text File
|
1993-01-21
|
3KB
|
114 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
00110F*ILSEC7 O F 512 DISK
00120F*ILSEC8 O F 512 DISK
00130F*ILSEC9 O F 512 DISK
00140F*ILSECA O F 512 DISK
00150IINFILE1 AA 01
00160I 1 256 REC1
00170I 257 512 REC2
00180IDVPARM CC 03
00190I 1 8 FFNMSC
00200I 9 11 FXNMSC
00210I 12 120TYPESC
00220C*****************************
00230C* ADD 1 TO NUMBER OF BYTES READ IN
00240C*****************************
00250C ADD 512 BYTSIN 90
00260C*****************************
00270C* DO ONE CHAIN TO THE PARAMETERS FILE
00280C*****************************
00290C START IFLT '1'
00300C 1 CHAINDVPARM 50
00310C MOVE '1' START 1
00320C END
00330C*
00340C*****************************
00350C* IF THE BYTES READ IN IS EQUAL TO OR GREATER THAN
00360C* THE STARTING BYTE PARAMETER -- AND
00370C* LESS THAN OR EQUAL TO THE ENDING BYTE
00380C* PARAMETER, THEN WRITE THAT BYTE TO THE
00390C* OUTPUT FILE
00400C*****************************
00410C BYTSIN IFGT 0
00420C BYTSIN IFLE 1106944
00430C EXCPTOUT1
00440C END
00450C END
00460C BYTSIN IFGT 1106944
00470C BYTSIN IFLE 2213888
00480C EXCPTOUT2
00490C END
00500C END
00510C BYTSIN IFGT 2213888
00520C BYTSIN IFLE 3320832
00530C EXCPTOUT3
00540C END
00550C END
00560C BYTSIN IFGT 3320832
00570C BYTSIN IFLE 4427776
00580C EXCPTOUT4
00590C END
00600C END
00610C BYTSIN IFGT 4427776
00620C BYTSIN IFLE 5534720
00630C EXCPTOUT5
00640C END
00650C END
00660C BYTSIN IFGT 5534720
00670C BYTSIN IFLE 9999999
00680C EXCPTOUT6
00690C END
00700C END
00710C* BYTSIN IFLE 9999999
00720C* EXCPTOUT7
00730C* END
00740C* BYTSIN IFLE 9999999
00750C* EXCPTOUT8
00760C* END
00770C* BYTSIN IFLE 9999999
00780C* EXCPTOUT9
00790C* END
00800C* BYTSIN IFLE 9999999
00810C* EXCPTOUTA
00820C MOVE '1' ONCE 1
00830C* END
00840OFILSEC1 E OUT1
00850O REC1 256
00860O REC2 512
00870OFILSEC2 E OUT2
00880O REC1 256
00890O REC2 512
00900OFILSEC3 E OUT3
00910O REC1 256
00920O REC2 512
00930OFILSEC4 E OUT4
00940O REC1 256
00950O REC2 512
00960OFILSEC5 E OUT5
00970O REC1 256
00980O REC2 512
00990OFILSEC6 E OUT6
01000O REC1 256
01010O REC2 512
01020O*ILSEC7 E OUT7
01030O* REC1 256
01040O* REC2 512
01050O*ILSEC8 E OUT8
01060O* REC1 256
01070O* REC2 512
01080O*ILSEC9 E OUT9
01090O* REC1 256
01100O* REC2 512
01110O*ILSECA E OUTA
01120O* REC1 256
01130O* REC2 512