home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / biteit.zip / SYSDV2B.RPG < prev    next >
Text File  |  1993-01-21  |  11KB  |  396 lines

  1. 00010H                                      SYSDV1
  2. 00020F* THIS PROGRAM WILL WRITE OUT THE SELECTED BYTES
  3. 00030FINFILE1 IP  F    512           DISK
  4. 00040FDVPARM  IC  F     12           DISK
  5. 00050FFILSEC1 O   F    512           DISK
  6. 00060FFILSEC2 O   F    512           DISK
  7. 00070FFILSEC3 O   F    512           DISK
  8. 00080FFILSEC4 O   F    512           DISK
  9. 00090FFILSEC5 O   F    512           DISK
  10. 00100FFILSEC6 O   F    512           DISK
  11. 00110FFILSEC7 O   F    512           DISK
  12. 00120FFILSEC8 O   F    512           DISK
  13. 00130FFILSEC9 O   F    512           DISK
  14. 00140FFILSECA O   F    512           DISK
  15. 00150FFILSECB O   F    512           DISK
  16. 00160FFILSECC O   F    512           DISK
  17. 00170FFILSECD O   F    512           DISK
  18. 00180F*ILSECE O   F    512           DISK
  19. 00190FFILSECF O   F    512           DISK
  20. 00200FFILSECG O   F    512           DISK
  21. 00210FFILSECH O   F    512           DISK
  22. 00220FFILSECI O   F    512           DISK
  23. 00230FFILSECJ O   F    512           DISK
  24. 00240FFILSECK O   F    512           DISK
  25. 00250FFILSECL O   F    512           DISK
  26. 00260FFILSECM O   F    512           DISK
  27. 00270FFILSECN O   F    512           DISK
  28. 00280FFILSECO O   F    512           DISK
  29. 00290FFILSECP O   F    512           DISK
  30. 00300FFILSECQ O   F    512           DISK
  31. 00310FFILSECR O   F    512           DISK
  32. 00320FFILSECS O   F    512           DISK
  33. 00330F*ILSECT O   F    512           DISK
  34. 00340F*ILSECU O   F    512           DISK
  35. 00350F*ILSECV O   F    512           DISK
  36. 00360F*ILSECW O   F    512           DISK
  37. 00370F*ILSECX O   F    512           DISK
  38. 00380F*ILSECY O   F    512           DISK
  39. 00390F*ILSECZ O   F    512           DISK
  40. 00400F*ILSEC1AO   F    512           DISK
  41. 00410F*ILSEC1BO   F    512           DISK
  42. 00420F*ILSEC1CO   F    512           DISK
  43. 00430F*ILSEC1DO   F    512           DISK
  44. 00440F*ILSEC1EO   F    512           DISK
  45. 00450F*ILSEC1FO   F    512           DISK
  46. 00460F*ILSEC1GO   F    512           DISK
  47. 00470F*ILSEC1HO   F    512           DISK
  48. 00480F*ILSEC1IO   F    512           DISK
  49. 00490F*ILSEC1JO   F    512           DISK
  50. 00500F*ILSEC1KO   F    512           DISK
  51. 00510F*ILSEC1LO   F    512           DISK
  52. 00520F*ILSEC1MO   F    512           DISK
  53. 00530F*ILSEC1NO   F    512           DISK
  54. 00540F*ILSEC1OO   F    512           DISK
  55. 00550IINFILE1 AA  01
  56. 00560I                          1 256 REC1
  57. 00570I                        257 512 REC2
  58. 00580IDVPARM  CC  03
  59. 00590I                          1   8 FFNMSC
  60. 00600I                          9  11 FXNMSC
  61. 00610I                         12  120TYPESC
  62. 00620C*****************************
  63. 00630C* ADD 1 TO NUMBER OF BYTES READ IN
  64. 00640C*****************************
  65. 00650C               ADD    512      BYTSIN  90
  66. 00660C*****************************
  67. 00670C* DO ONE CHAIN TO THE PARAMETERS FILE
  68. 00680C*****************************
  69. 00690C         START       IFLT '1'
  70. 00700C         1       CHAINDVPARM             50
  71. 00710C               MOVE '1'      START   1
  72. 00720C               END
  73. 00730C*
  74. 00740C*****************************
  75. 00750C* IF THE BYTES READ IN IS EQUAL TO OR GREATER THAN
  76. 00760C*    THE STARTING BYTE PARAMETER -- AND
  77. 00770C*      LESS THAN OR EQUAL TO THE ENDING BYTE
  78. 00780C*      PARAMETER, THEN WRITE THAT BYTE TO THE
  79. 00790C*      OUTPUT FILE
  80. 00800C*****************************
  81. 00810C         BYTSIN    IFGT 0
  82. 00820C         BYTSIN    IFLE 1106944
  83. 00830C               EXCPTOUT1
  84. 00840C               END
  85. 00850C               END
  86. 00860C         BYTSIN    IFGT 1106944
  87. 00870C         BYTSIN    IFLE 2213888
  88. 00880C               EXCPTOUT2
  89. 00890C               END
  90. 00900C               END
  91. 00910C         BYTSIN    IFGT 2213888
  92. 00920C         BYTSIN    IFLE 3320832
  93. 00930C               EXCPTOUT3
  94. 00940C               END
  95. 00950C               END
  96. 00960C         BYTSIN    IFGT 3320832
  97. 00970C         BYTSIN    IFLE 4427776
  98. 00980C               EXCPTOUT4
  99. 00990C               END
  100. 01000C               END
  101. 01010C         BYTSIN    IFGT 4427776
  102. 01020C         BYTSIN    IFLE 5534720
  103. 01030C               EXCPTOUT5
  104. 01040C               END
  105. 01050C               END
  106. 01060C         BYTSIN    IFGT 5534720
  107. 01070C         BYTSIN    IFLE 6641714
  108. 01080C               EXCPTOUT6
  109. 01090C               END
  110. 01100C               END
  111. 01110C         BYTSIN    IFGT 6641714
  112. 01120C         BYTSIN    IFLE 7748658
  113. 01130C               EXCPTOUT7
  114. 01140C               END
  115. 01150C               END
  116. 01160C         BYTSIN    IFGT 7748658
  117. 01170C         BYTSIN    IFLE 8855602
  118. 01180C               EXCPTOUT8
  119. 01190C               END
  120. 01200C               END
  121. 01210C         BYTSIN    IFGT 8855602
  122. 01220C         BYTSIN    IFLE 9962546
  123. 01230C               EXCPTOUT9
  124. 01240C               END
  125. 01250C               END
  126. 01260C         BYTSIN    IFGT 9962546
  127. 01270C         BYTSIN    IFLE 11069490
  128. 01280C               EXCPTOUTA
  129. 01290C               MOVE '1'      ONCE      1
  130. 01300C               END
  131. 01310C               END
  132. 01320C         BYTSIN    IFGT 11069490
  133. 01330C         BYTSIN    IFLE 12176434
  134. 01340C               EXCPTOUTB
  135. 01350C               MOVE '1'      ONCE      1
  136. 01360C               END
  137. 01370C               END
  138. 01380C         BYTSIN    IFGT 12176434
  139. 01390C         BYTSIN    IFLE 13283378
  140. 01400C               EXCPTOUTC
  141. 01410C               MOVE '1'      ONCE      1
  142. 01420C               END
  143. 01430C               END
  144. 01440C         BYTSIN    IFGT 13283378
  145. 01450C         BYTSIN    IFLE 14390320
  146. 01460C               EXCPTOUTD
  147. 01470C               MOVE '1'      ONCE      1
  148. 01480C               END
  149. 01490C               END
  150. 01500C*      BYTSIN    IFGT 14390320
  151. 01510C*      BYTSIN    IFLE 15497266
  152. 01520C*            EXCPTOUTE
  153. 01530C*            MOVE '1'      ONCE      1
  154. 01540C*            END
  155. 01550C*            END
  156. 01560C         BYTSIN    IFGT 15497266
  157. 01570C         BYTSIN    IFLE 16604210
  158. 01580C               EXCPTOUTF
  159. 01590C               MOVE '1'      ONCE      1
  160. 01600C               END
  161. 01610C               END
  162. 01620C         BYTSIN    IFGT 16604210
  163. 01630C         BYTSIN    IFLE 17711154
  164. 01640C               EXCPTOUTG
  165. 01650C               MOVE '1'      ONCE      1
  166. 01660C               END
  167. 01670C               END
  168. 01680C         BYTSIN    IFGT 17711154
  169. 01690C         BYTSIN    IFLE 18818098
  170. 01700C               EXCPTOUTH
  171. 01710C               MOVE '1'      ONCE      1
  172. 01720C               END
  173. 01730C               END
  174. 01740C         BYTSIN    IFGT 18818098
  175. 01750C         BYTSIN    IFLE 19925042
  176. 01760C               EXCPTOUTI
  177. 01770C               MOVE '1'      ONCE      1
  178. 01780C               END
  179. 01790C               END
  180. 01800C         BYTSIN    IFGT 19925042
  181. 01810C         BYTSIN    IFLE 21031986
  182. 01820C               EXCPTOUTJ
  183. 01830C               MOVE '1'      ONCE      1
  184. 01840C               END
  185. 01850C               END
  186. 01860C         BYTSIN    IFGT 21031986
  187. 01870C         BYTSIN    IFLE 22138930
  188. 01880C               EXCPTOUTJ
  189. 01890C               MOVE '1'      ONCE      1
  190. 01900C               END
  191. 01910C               END
  192. 01920C         BYTSIN    IFGT 22138930
  193. 01930C         BYTSIN    IFLE 23245874
  194. 01940C               EXCPTOUTK
  195. 01950C               MOVE '1'      ONCE      1
  196. 01960C               END
  197. 01970C               END
  198. 01980C         BYTSIN    IFGT 23245874
  199. 01990C         BYTSIN    IFLE 24352818
  200. 02000C               EXCPTOUTL
  201. 02010C               MOVE '1'      ONCE      1
  202. 02020C               END
  203. 02030C               END
  204. 02040C         BYTSIN    IFGT 24352818
  205. 02050C         BYTSIN    IFLE 25459762
  206. 02060C               EXCPTOUTM
  207. 02070C               MOVE '1'      ONCE      1
  208. 02080C               END
  209. 02090C               END
  210. 02100C         BYTSIN    IFGT 25459762
  211. 02110C         BYTSIN    IFLE 26566706
  212. 02120C               EXCPTOUTN
  213. 02130C               MOVE '1'      ONCE      1
  214. 02140C               END
  215. 02150C               END
  216. 02160C         BYTSIN    IFGT 26566706
  217. 02170C         BYTSIN    IFLE 27673650
  218. 02180C               EXCPTOUTO
  219. 02190C               MOVE '1'      ONCE      1
  220. 02200C               END
  221. 02210C               END
  222. 02220C         BYTSIN    IFGT 27673650
  223. 02230C         BYTSIN    IFLE 28780594
  224. 02240C               EXCPTOUTP
  225. 02250C               MOVE '1'      ONCE      1
  226. 02260C               END
  227. 02270C               END
  228. 02280C         BYTSIN    IFGT 28780594
  229. 02290C         BYTSIN    IFLE 29887538
  230. 02300C               EXCPTOUTQ
  231. 02310C               MOVE '1'      ONCE      1
  232. 02320C               END
  233. 02330C               END
  234. 02340C         BYTSIN    IFGT 29887538
  235. 02350C         BYTSIN    IFLE 30994482
  236. 02360C               EXCPTOUTR
  237. 02370C               MOVE '1'      ONCE      1
  238. 02380C               END
  239. 02390C               END
  240. 02400C         BYTSIN    IFGT 30994482
  241. 02410C         BYTSIN    IFLE 99999999
  242. 02420C               EXCPTOUTS
  243. 02430C               MOVE '1'      ONCE      1
  244. 02440C               END
  245. 02450C               END
  246. 02460OFILSEC1 E            OUT1
  247. 02470O                   REC1    256
  248. 02480O                   REC2    512
  249. 02490OFILSEC2 E            OUT2
  250. 02500O                   REC1    256
  251. 02510O                   REC2    512
  252. 02520OFILSEC3 E            OUT3
  253. 02530O                   REC1    256
  254. 02540O                   REC2    512
  255. 02550OFILSEC4 E            OUT4
  256. 02560O                   REC1    256
  257. 02570O                   REC2    512
  258. 02580OFILSEC5 E            OUT5
  259. 02590O                   REC1    256
  260. 02600O                   REC2    512
  261. 02610OFILSEC6 E            OUT6
  262. 02620O                   REC1    256
  263. 02630O                   REC2    512
  264. 02640OFILSEC7 E            OUT7
  265. 02650O                   REC1    256
  266. 02660O                   REC2    512
  267. 02670OFILSEC8 E            OUT8
  268. 02680O                   REC1    256
  269. 02690O                   REC2    512
  270. 02700OFILSEC9 E            OUT9
  271. 02710O                   REC1    256
  272. 02720O                   REC2    512
  273. 02730OFILSECA E            OUTA
  274. 02740O                   REC1    256
  275. 02750O                   REC2    512
  276. 02760OFILSECB E            OUTB
  277. 02770O                   REC1    256
  278. 02780O                   REC2    512
  279. 02790OFILSECC E            OUTC
  280. 02800O                   REC1    256
  281. 02810O                   REC2    512
  282. 02820OFILSECD E            OUTD
  283. 02830O                   REC1    256
  284. 02840O                   REC2    512
  285. 02850O*ILSECE E            OUTE
  286. 02860O*                REC1    256
  287. 02870O*                REC2    512
  288. 02880OFILSECF E            OUTF
  289. 02890O                   REC1    256
  290. 02900O                   REC2    512
  291. 02910OFILSECG E            OUTG
  292. 02920O                   REC1    256
  293. 02930O                   REC2    512
  294. 02940OFILSECH E            OUTH
  295. 02950O                   REC1    256
  296. 02960O                   REC2    512
  297. 02970OFILSECI E            OUTI
  298. 02980O                   REC1    256
  299. 02990O                   REC2    512
  300. 03000OFILSECJ E            OUTJ
  301. 03010O                   REC1    256
  302. 03020O                   REC2    512
  303. 03030OFILSECK E            OUTK
  304. 03040O                   REC1    256
  305. 03050O                   REC2    512
  306. 03060OFILSECL E            OUTL
  307. 03070O                   REC1    256
  308. 03080O                   REC2    512
  309. 03090OFILSECM E            OUTM
  310. 03100O                   REC1    256
  311. 03110O                   REC2    512
  312. 03120OFILSECN E            OUTN
  313. 03130O                   REC1    256
  314. 03140O                   REC2    512
  315. 03150OFILSECO E            OUTO
  316. 03160O                   REC1    256
  317. 03170O                   REC2    512
  318. 03180OFILSECP E            OUTP
  319. 03190O                   REC1    256
  320. 03200O                   REC2    512
  321. 03210OFILSECQ E            OUTQ
  322. 03220O                   REC1    256
  323. 03230O                   REC2    512
  324. 03240OFILSECR E            OUTR
  325. 03250O                   REC1    256
  326. 03260O                   REC2    512
  327. 03270OFILSECS E            OUTS
  328. 03280O                   REC1    256
  329. 03290O                   REC2    512
  330. 03300O*ILSECT E            OUTT
  331. 03310O*                REC1    256
  332. 03320O*                REC2    512
  333. 03330O*ILSECU E            OUTU
  334. 03340O*                REC1    256
  335. 03350O*                REC2    512
  336. 03360O*ILSECV E            OUTV
  337. 03370O*                REC1    256
  338. 03380O*                REC2    512
  339. 03390O*ILSECW E            OUTW
  340. 03400O*                REC1    256
  341. 03410O*                REC2    512
  342. 03420O*ILSECX E            OUTX
  343. 03430O*                REC1    256
  344. 03440O*                REC2    512
  345. 03450O*ILSECY E            OUTY
  346. 03460O*                REC1    256
  347. 03470O*                REC2    512
  348. 03480O*ILSECZ E            OUTZ
  349. 03490O*                REC1    256
  350. 03500O*                REC2    512
  351. 03510O*ILSEC1AE            OUT1A
  352. 03520O*                REC1    256
  353. 03530O*                REC2    512
  354. 03540O*ILSEC1BE            OUT1B
  355. 03550O*                REC1    256
  356. 03560O*                REC2    512
  357. 03570O*ILSEC1CE            OUT1C
  358. 03580O*                REC1    256
  359. 03590O*                REC2    512
  360. 03600O*ILSEC1DE            OUT1D
  361. 03610O*                REC1    256
  362. 03620O*                REC2    512
  363. 03630O*ILSEC1EE            OUT1E
  364. 03640O*                REC1    256
  365. 03650O*                REC2    512
  366. 03660O*ILSEC1FE            OUT1F
  367. 03670O*                REC1    256
  368. 03680O*                REC2    512
  369. 03690O*ILSEC1GE            OUT1G
  370. 03700O*                REC1    256
  371. 03710O*                REC2    512
  372. 03720O*ILSEC1HE            OUT1H
  373. 03730O*                REC1    256
  374. 03740O*                REC2    512
  375. 03750O*ILSEC1IE            OUT1I
  376. 03760O*                REC1    256
  377. 03770O*                REC2    512
  378. 03780O*ILSEC1JE            OUT1J
  379. 03790O*                REC1    256
  380. 03800O*                REC2    512
  381. 03810O*ILSEC1KE            OUT1K
  382. 03820O*                REC1    256
  383. 03830O*                REC2    512
  384. 03840O*ILSEC1LE            OUT1L
  385. 03850O*                REC1    256
  386. 03860O*                REC2    512
  387. 03870O*ILSEC1ME            OUT1M
  388. 03880O*                REC1    256
  389. 03890O*                REC2    512
  390. 03900O*ILSEC1NE            OUT1N
  391. 03910O*                REC1    256
  392. 03920O*                REC2    512
  393. 03930O*ILSEC1OE            OUT1O
  394. 03940O*                REC1    256
  395. 03950O*                REC2    512
  396.