home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
b
/
biteit.zip
/
SYSDIR.RPG
< prev
next >
Wrap
Text File
|
1993-01-29
|
2KB
|
62 lines
00010H SYSCOP
00020F* THIS PROGRAM WILL WRITE OUT THE BYTES NECESSARY TO ROUND OUT THE FILE
00030F* TO EQUAL BLOCKS OF 3548
00040FDIRIN ID V 64 DISK
00050FDVPARM IC F 50 DISK
00060FINFILE2 O F 1 DISK A
00070E SZ1 9 1
00080E SZ2 9 1 0
00090IDIRIN BB 02
00100I 13 21 SZ1
00110IDVPARM CC 03
00120I 1 8 FFNMSC
00130I 9 11 FXNMSC
00140I 12 20 SFTXSC
00150I 21 29 EFTXSC
00160I 30 37 TFNMSC
00170I 38 40 TXNMSC
00180I 41 49 CATXSC
00190C*****************************
00200C* DO ONE CHAIN TO THE PARAMETERS FILE
00210C* DO 5 READS TO GET THE SIZE
00220C*****************************
00230C START IFLT '1'
00240C 1 CHAINDVPARM 50
00250C MOVE '1' START 1
00260C DO 5
00270C READ DIRIN 50
00280C END
00280C END
00290C*
00300C*****************************
00310C* SIZE ROUTINE
00320C*****************************
00330C*
00340C Z-ADD1 X 20
00350C*
00360C DO 9
00370C SZ1,X IFEQ ' '
00380C MOVE 0 SZ2,X
00390C ELSE
00400C MOVE SZ1,X SZ2,X
00410C ADD 1 X
00420C END
00430C END ENDDO
00440C MOVEASZ1,X SIZE 90
00450C*
00460C*
00470C SIZE DIV 3548 SIZE2 90
00480C ADD 1 SIZE2
00490C 3548 MULT SIZE2 SIZE2
00500C SIZE2 SUB SIZE NEEDED 40
00510C*
00520C* EXCPT TO THE FILE THE NUMBER OF BY NEEDED
00530C NEEDED DOWGT0
00540C EXCPTADDBYT
00550C SUB 1 NEEDED
00560C END
00570C SETON LR
00580C*
00590OINFILE2 E ADDBYT
00600O 1 X'FF