API tools faq
paste
Guest User

Untitled

a guest
Feb 24th, 2018
97
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.36 KB | None | 0 0
raw download clone embed print report
  1. File Edit Edit_Settings Menu Utilities Compilers Test Help
  2. -------------------------------------------------------------------------------
  3. EDIT GAMA03.SOURCE.COBOL(ACVRPTN) - 01.02 Columns 00007 00072
  4. Command ===> Scroll ===> CSR
  5. ****** ***************************** Top of Data ******************************
  6. 000100 IDENTIFICATION DIVISION.
  7. 000200 PROGRAM-ID. ACVRPTN.
  8. 000300 ENVIRONMENT DIVISION.
  9. 000400 CONFIGURATION SECTION.
  10. 000500 SOURCE-COMPUTER. IBM390.
  11. 000600 OBJECT-COMPUTER. IBM390.
  12. 000700 INPUT-OUTPUT SECTION.
  13. 000800 FILE-CONTROL.
  14. 000900 SELECT ADDCHG-VALID-FILE ASSIGN TO VALDD
  15. 001000 ORGANIZATION IS SEQUENTIAL
  16. 001100 ACCESS MODE IS SEQUENTIAL
  17. 001200 FILE STATUS IS WS-ADDCHG-VALID-FS.
  18. 001300 SELECT ADDCHG-VALID-REPORT-FILE ASSIGN TO VRPTDD
  19. 001400 ORGANIZATION IS SEQUENTIAL
  20. 001500 ACCESS MODE IS SEQUENTIAL
  21. 001600 FILE STATUS IS WS-ADDCHG-VALID-REPORT-FS.
  22. 001700 DATA DIVISION.
  23. 001800 FILE SECTION.
  24. 001900 FD ADDCHG-VALID-FILE.
  25. 002000 01 ADDCHG-VALID-RECORD.
  26. 002100 05 ACV-ACC-NUM.
  27. 002110 10 ACV-ACC-NUM1 PIC 9.
  28. 002120 10 ACV-ACC-NUM2 PIC 9.
  29. 002130 10 ACV-ACC-NUM-REST PIC 9(8).
  30. 002200 05 ACV-ACHOLD-NAME PIC X(50).
  31. 002300 05 ACV-PHONE-NUMBER PIC 9(10) COMP-3.
  32. 002400 FD ADDCHG-VALID-REPORT-FILE.
  33. 002500 01 ADDCHG-VALID-REPORT-RECORD PIC X(132).
  34. 002600 WORKING-STORAGE SECTION.
  35. 002700 77 WS-ADDCHG-VALID-FS PIC 99.
  36. 002800 77 WS-ADDCHG-VALID-REPORT-FS PIC 99.
  37. 002900 77 WS-PAGE-NUM PIC 99 VALUE 1.
  38. 003000 77 WS-PAGE-SPLIT-NUM PIC 99 VALUE 99.
  39. 003100 COPY ABDVARS.
  40. 003200 01 WS-REPORT-RECORDS.
  41. 003300 05 WS-REPORT-UNDERLINE PIC X(132) VALUE ALL '-'.
  42. 003400 05 WS-REPORT-HEADER1.
  43. 003500 10 FILLER PIC X(51) VALUE SPACES.
  44. 003600 10 FILLER PIC X(29) VALUE
  45. 003700 'VALID ADDRESS CHANGES IN BANK'.
  46. 003800 10 FILLER PIC X(36) VALUE SPACES.
  47. 003900 10 FILLER PIC X(5) VALUE 'PAGE '.
  48. 004000 10 WS-PAGE-NUMBER PIC Z9.
  49. 004100 10 FILLER PIC X(9).
  50. 004200 05 WS-REPORT-HEADER2.
  51. 004300 10 FILLER PIC X(2) VALUE SPACES.
  52. 004400 10 FILLER PIC X(10) VALUE 'ACCOUNT NO'.
  53. 004500 10 FILLER PIC X(2) VALUE SPACES.
  54. 004600 10 FILLER PIC X(50) VALUE 'NAME'.
  55. 004700 10 FILLER PIC X(68) VALUE SPACES.
  56. 004800 05 WS-REPORT-DETAIL.
  57. 004900 10 FILLER PIC X(2) VALUE SPACES.
  58. 005000 10 WS-ACC-NUM PIC 9(10).
  59. 005100 10 FILLER PIC X(2) VALUE SPACES.
  60. 005200 10 WS-ACHOLD-NAME PIC X(50).
  61. 005300 10 FILLER PIC X(68) VALUE SPACES.
  62. 005400 PROCEDURE DIVISION.
  63. 005500 MAIN-PARA.
  64. 005600 PERFORM OPEN-ADDCHG-VALID-FILE-PARA.
  65. 005700 PERFORM OPEN-ACV-REPORT-FILE-PARA.
  66. 005800 * PERFORM WRITE-REPORT-HEADER-PARA.
  67. 005900 PERFORM READ-ADDCHG-VALID-FILE-PARA.
  68. 006000 PERFORM UNTIL WS-ADDCHG-VALID-FS = 10
  69. 006100 PERFORM PROCESS-PARA
  70. 006200 PERFORM READ-ADDCHG-VALID-FILE-PARA
  71. 006300 END-PERFORM.
  72. 006400 PERFORM CLOSE-ADDCHG-VALID-FILE-PARA.
  73. 006500 PERFORM CLOSE-ACV-REPORT-FILE-PARA.
  74. 006600 GOBACK.
  75. 006700 *
  76. 006800 PROCESS-PARA.
  77. 006900 PERFORM MOVE-REPORT-DETAILS-PARA.
  78. 007000 PERFORM WRITE-REPORT-DETAIL-PARA.
  79. 007010 *
  80. 007020 READ-ADDCHG-VALID-FILE-PARA.
  81. 007030 READ ADDCHG-VALID-FILE.
  82. 007040 IF WS-ADDCHG-VALID-FS = ZERO OR 10 THEN
  83. 007050 CONTINUE
  84. 007060 ELSE
  85. 007070 DISPLAY "ERROR IN READING ADDCHG-VALID-FILE"
  86. 007080 DISPLAY WS-ADDCHG-VALID-FS
  87. 007090 MOVE 3014 TO WS-ABEND-CODE
  88. 007091 PERFORM ABEND-PARA
  89. 007092 END-IF.
  90. 007100 *
  91. 007200 WRITE-REPORT-HEADER-PARA.
  92. 007300 WRITE ADDCHG-VALID-REPORT-RECORD
  93. 007400 FROM WS-REPORT-UNDERLINE
  94. 007500 AFTER ADVANCING PAGE.
  95. 007600 PERFORM WRITE-REPORT-ERROR-PARA.
  96. 007700 MOVE WS-PAGE-NUM
  97. 007800 TO WS-PAGE-NUMBER.
  98. 007900 WRITE ADDCHG-VALID-REPORT-RECORD
  99. 008000 FROM WS-REPORT-HEADER1.
  100. 008100 ADD 1 TO WS-PAGE-NUM.
  101. 008200 WRITE ADDCHG-VALID-REPORT-RECORD
  102. 008300 FROM WS-REPORT-UNDERLINE.
  103. 008400 WRITE ADDCHG-VALID-REPORT-RECORD
  104. 008500 FROM WS-REPORT-HEADER2.
  105. 008600 WRITE ADDCHG-VALID-REPORT-RECORD
  106. 008700 FROM WS-REPORT-UNDERLINE.
  107. 008800 *
  108. 008900 MOVE-REPORT-DETAILS-PARA.
  109. 009000 MOVE ACV-ACC-NUM
  110. 009100 TO WS-ACC-NUM.
  111. 009200 MOVE ACV-ACHOLD-NAME
  112. 009300 TO WS-ACHOLD-NAME.
  113. 009400 *
  114. 009500 WRITE-REPORT-DETAIL-PARA.
  115. 009510 IF ACV-ACC-NUM1 NOT = WS-PAGE-SPLIT-NUM THEN
  116. 009520 PERFORM WRITE-REPORT-HEADER-PARA
  117. 009530 MOVE ACV-ACC-NUM1 TO WS-PAGE-SPLIT-NUM
  118. 009540 END-IF.
  119. 009600 WRITE ADDCHG-VALID-REPORT-RECORD
  120. 009700 FROM WS-REPORT-DETAIL.
  121. 009800 PERFORM WRITE-REPORT-ERROR-PARA.
  122. 010300 *
  123. 010400 OPEN-ADDCHG-VALID-FILE-PARA.
  124. 010500 OPEN INPUT ADDCHG-VALID-FILE.
  125. 010600 IF WS-ADDCHG-VALID-FS NOT = ZERO THEN
  126. 010700 DISPLAY "ERROR IN OPENING ADDCHG-VALID-FILE"
  127. 010800 DISPLAY WS-ADDCHG-VALID-FS
  128. 010900 MOVE 3012 TO WS-ABEND-CODE
  129. 011000 PERFORM ABEND-PARA
  130. 011100 END-IF.
  131. 011200 *
  132. 011300 OPEN-ACV-REPORT-FILE-PARA.
  133. 011400 OPEN OUTPUT ADDCHG-VALID-REPORT-FILE.
  134. 011500 IF WS-ADDCHG-VALID-REPORT-FS NOT = ZERO THEN
  135. 011600 DISPLAY "ERROR IN OPENING ADDCHG-VALID-REPORT-FILE"
  136. 011700 DISPLAY WS-ADDCHG-VALID-REPORT-FS
  137. 011800 MOVE 3044 TO WS-ABEND-CODE
  138. 011900 PERFORM ABEND-PARA
  139. 012000 END-IF.
  140. 012100 *
  141. 012200 WRITE-REPORT-ERROR-PARA.
  142. 012300 IF WS-ADDCHG-VALID-REPORT-FS NOT = 0 THEN
  143. 012400 DISPLAY "ERROR IN WRITING ADDCHG-VALID-REPORT-FILE"
  144. 012500 DISPLAY WS-ADDCHG-VALID-REPORT-FS
  145. 012600 MOVE 3314 TO WS-ABEND-CODE
  146. 012700 PERFORM ABEND-PARA
  147. 012800 END-IF.
  148. 012900 *
  149. 013000 CLOSE-ADDCHG-VALID-FILE-PARA.
  150. 013100 CLOSE ADDCHG-VALID-FILE.
  151. 013200 IF WS-ADDCHG-VALID-FS NOT = ZERO THEN
  152. 013300 DISPLAY "ERROR IN CLOSING ADDCHG-VALID-FILE"
  153. 013400 DISPLAY WS-ADDCHG-VALID-FS
  154. 013500 MOVE 3112 TO WS-ABEND-CODE
  155. 013600 PERFORM ABEND-PARA
  156. 013700 END-IF.
  157. 013800 *
  158. 013900 CLOSE-ACV-REPORT-FILE-PARA.
  159. 014000 CLOSE ADDCHG-VALID-REPORT-FILE.
  160. 014100 IF WS-ADDCHG-VALID-REPORT-FS NOT = ZERO THEN
  161. 014200 DISPLAY "ERROR IN CLOSING ADDCHG-VALID-REPORT-FILE"
  162. 014300 DISPLAY WS-ADDCHG-VALID-REPORT-FS
  163. 014400 MOVE 3045 TO WS-ABEND-CODE
  164. 014500 PERFORM ABEND-PARA
  165. 014600 END-IF.
  166. 014700 *
  167. 014800 COPY ABDPAR.
  168. 014900 *
  169. ****** **************************** Bottom of Data ****************************
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!