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 >
Text File  |  1993-01-29  |  2KB  |  62 lines

  1. 00010H                                      SYSCOP
  2. 00020F* THIS PROGRAM WILL WRITE OUT THE BYTES NECESSARY TO ROUND OUT THE FILE
  3. 00030F* TO EQUAL BLOCKS OF 3548
  4. 00040FDIRIN   ID  V     64           DISK
  5. 00050FDVPARM  IC  F     50           DISK
  6. 00060FINFILE2 O   F      1           DISK             A
  7. 00070E              SZ1          9  1
  8. 00080E              SZ2          9  1 0
  9. 00090IDIRIN   BB  02
  10. 00100I                         13  21 SZ1
  11. 00110IDVPARM  CC  03
  12. 00120I                          1   8 FFNMSC
  13. 00130I                          9  11 FXNMSC
  14. 00140I                         12  20 SFTXSC
  15. 00150I                         21  29 EFTXSC
  16. 00160I                         30  37 TFNMSC
  17. 00170I                         38  40 TXNMSC
  18. 00180I                         41  49 CATXSC
  19. 00190C*****************************
  20. 00200C* DO ONE CHAIN TO THE PARAMETERS FILE
  21. 00210C* DO 5 READS TO GET THE SIZE
  22. 00220C*****************************
  23. 00230C         START       IFLT '1'
  24. 00240C         1       CHAINDVPARM             50
  25. 00250C               MOVE '1'      START   1
  26. 00260C               DO    5
  27. 00270C               READ DIRIN             50
  28. 00280C               END
  29. 00280C               END
  30. 00290C*
  31. 00300C*****************************
  32. 00310C* SIZE ROUTINE
  33. 00320C*****************************
  34. 00330C*
  35. 00340C               Z-ADD1      X      20
  36. 00350C*
  37. 00360C               DO    9
  38. 00370C         SZ1,X       IFEQ ' '
  39. 00380C               MOVE 0      SZ2,X
  40. 00390C               ELSE
  41. 00400C               MOVE SZ1,X      SZ2,X
  42. 00410C               ADD    1      X
  43. 00420C               END
  44. 00430C               END                   ENDDO
  45. 00440C               MOVEASZ1,X      SIZE      90
  46. 00450C*
  47. 00460C*
  48. 00470C         SIZE       DIV    3548      SIZE2   90
  49. 00480C               ADD    1      SIZE2
  50. 00490C         3548       MULT SIZE2      SIZE2
  51. 00500C         SIZE2       SUB    SIZE      NEEDED  40
  52. 00510C*
  53. 00520C* EXCPT TO THE FILE THE NUMBER OF BY NEEDED
  54. 00530C         NEEDED    DOWGT0
  55. 00540C               EXCPTADDBYT
  56. 00550C               SUB    1      NEEDED
  57. 00560C               END
  58. 00570C               SETON             LR
  59. 00580C*
  60. 00590OINFILE2 E            ADDBYT
  61. 00600O                      1 X'FF
  62.