home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / biteit.zip / SYSCB2.RPG < prev    next >
Text File  |  1993-01-20  |  1KB  |  45 lines
  1. 00010H                                      SYSCB1
  2. 00020F* THIS PROGRAM WILL WRITE OUT THE SELECTED BYTES
  3. 00040FINFILE1 IP  F    512           DISK
  4. 00050FDVPARM  IC  F     50           DISK
  5. 00060FINFILE2 O   F    512           DISK             A
  6. 00090IINFILE1 AA  01
  7. 00100I                          1 256 REC1
  8. 00100I                        257 512 REC2
  9. 00150IDVPARM  CC  03
  10. 00160I                          1   8 FFNMSC
  11. 00170I                          9  11 FXNMSC
  12. 00180I                         12  200SFTXSC
  13. 00190I                         21  290EFTXSC
  14. 00200I                         30  37 TFNMSC
  15. 00210I                         38  40 TXNMSC
  16. 00220I                         41  490CATXSC
  17. 00230C*****************************
  18. 00240C* ADD 1 TO NUMBER OF BYTES READ IN
  19. 00250C*****************************
  20. 00280C               ADD    512      BYTSIN  90
  21. 00230C*****************************
  22. 00240C* DO ONE CHAIN TO THE PARAMETERS FILE
  23. 00250C*****************************
  24. 00260C         START       IFLT '1'
  25. 00270C         1       CHAINDVPARM             50
  26. 00280C               MOVE '1'      START   1
  27. 00290C               END
  28. 00300C*
  29. 00310C*****************************
  30. 00320C* IF THE BYTES READ IN IS EQUAL TO OR GREATER THAN
  31. 00330C*    THE STARTING BYTE PARAMETER -- AND
  32. 00330C*      LESS THAN OR EQUAL TO THE ENDING BYTE
  33. 00330C*      PARAMETER, THEN WRITE THAT BYTE TO THE
  34. 00330C*      OUTPUT FILE
  35. 00340C*****************************
  36. 00350C         BYTSIN    IFGE SFTXSC
  37. 00350C         BYTSIN    IFLE EFTXSC
  38. 00500C               EXCPTOUTF
  39. 00370C               MOVE '1'      ONCE      1
  40. 00380C               END
  41. 00380C               END
  42. 00690OINFILE2 E            OUTF
  43. 00700O                   REC1    256
  44. 00700O                   REC2    512
  45.