API tools faq
paste
Advertisement
CodenameDuchess

Assign3_out

CodenameDuchess
Oct 3rd, 2014
581
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 84.33 KB | None | 0 0
raw download clone embed print report
  1. 19.02.05 JOB01399 ---- FRIDAY, 03 OCT 2014 ----
  2. 19.02.05 JOB01399 IRR010I USERID KC03Q15 IS ASSIGNED TO THIS JOB.
  3. 19.03.08 JOB01399 ICH70001I KC03Q15 LAST ACCESS AT 18:59:41 ON FRIDAY, OCTOBER 3, 2014
  4. 19.03.08 JOB01399 $HASP373 KC03Q15A STARTED - INIT 5 - CLASS A - SYS S0W1
  5. 19.03.08 JOB01399 IEF861I FOLLOWING RESERVED DATA SET NAMES UNAVAILABLE TO KC03Q15A
  6. 19.03.08 JOB01399 IEF863I DSN = KC02322.CSCI465.DATAFA14 KC03Q15A RC = 04
  7. 19.03.08 JOB01399 *IEF099I JOB KC03Q15A WAITING FOR DATA SETS
  8. 19.03.20 JOB01399 - -----TIMINGS (MINS.)------ -----PAGING COUNTS----
  9. 19.03.20 JOB01399 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
  10. 19.03.20 JOB01399 -JSTEP01 00 356 731 .00 .00 .1 91 BATCH 0 0 0 0
  11. 19.05.56 JOB01399 IEA848I NO DUMP WAS PRODUCED FOR THIS ABEND, DUE TO SYSTEM OR INSTALLATION REQUEST
  12. 19.05.56 JOB01399 IEF450I KC03Q15A JSTEP02 - ABEND=S322 U0000 REASON=00000000
  13. 19.05.56 JOB01399 -JSTEP02 *S322 175 121 2.00 .00 2.6 28 BATCH 0 0 0 0
  14. 19.05.56 JOB01399 -KC03Q15A ENDED. NAME-MATTHEW ROWE TOTAL TCB CPU TIME= 2.01 TOTAL ELAPSED TIME= 2.8
  15. 19.05.56 JOB01399 $HASP395 KC03Q15A ENDED
  16.  
  17. ------ JES2 JOB STATISTICS ------
  18.  
  19.  
  20. 03 OCT 2014 JOB EXECUTION DATE
  21.  
  22.  
  23. 417 CARDS READ
  24.  
  25.  
  26. 718 SYSOUT PRINT RECORDS
  27.  
  28.  
  29. 0 SYSOUT PUNCH RECORDS
  30.  
  31.  
  32. 40 SYSOUT SPOOL KBYTES
  33.  
  34.  
  35. 2.80 MINUTES EXECUTION TIME
  36. !! END OF JES SPOOL FILE !!
  37. 1 //KC03Q15A JOB ,'MATTHEW ROWE',MSGCLASS=H JOB01399
  38. //*
  39. //*****************************************************************
  40. //* *
  41. //* CSCI 465/565 - FALL 2014 *
  42. //* *
  43. //* ASSIGNMENT 3 *
  44. //* *
  45. //* PROGRAMMER: MATTHEW ROWE *
  46. //* *
  47. //* DATE: 10/03/2014 *
  48. //* TIME: 11:59:59 PM *
  49. //* *
  50. //* THE PURPOSE OF THIS JOB IS TO READ THE DAILY RECORDS OF A *
  51. //* BROKERAGE FIRM AND CREAT A REPORT OF STOCKS ORGANIZED BY *
  52. //* BROKER, WHICH SHOWS AMOUNT SOLD, COMMISSION WITH 15 RECORDS *
  53. //* PER PAGE. THEN A SECOND RECORD OF BROKERS WHOM HAVE MORE *
  54. //* 20,000 SHARES SOLD DURING THE WORKING DAY *
  55. //*****************************************************************
  56. //*
  57. 2 //JSTEP01 EXEC PGM=IGYCRCTL,PARM=(FLAG(I,I),APOST)
  58. //*
  59. //***************************************************************
  60. //* *
  61. //* JSTEP01 COMPILES THE COBOL SOURCE CODE. *
  62. //* *
  63. //* DDNAME FILE DESCRIPTION *
  64. //* *
  65. //* STEPLIN INPUT: SOURCE CODE TO BE COMPILED *
  66. //* SYSPRINT OUTPUT: SOURCE LISTING AND DIAGNOSTIC *
  67. //* MESSAGES *
  68. //***************************************************************
  69. //*
  70. 3 //SYSIN DD *
  71. 4 //SYSLIN DD DSN=&&TEMP,UNIT=PUB,SPACE=(TRK,(3,3)),
  72. // DISP=(NEW,PASS,DELETE)
  73. 5 //SYSPRINT DD SYSOUT=*
  74. //*
  75. //***************************************************************
  76. //* *
  77. //* THE FOLLOWING DATA SETS ARE REQUIRED BY THE COMPILER. *
  78. //* *
  79. //***************************************************************
  80. //*
  81. 6 //SYSUT1 DD SPACE=(CYL,(1,1))
  82. 7 //SYSUT2 DD SPACE=(CYL,(1,1))
  83. 8 //SYSUT3 DD SPACE=(CYL,(1,1))
  84. 9 //SYSUT4 DD SPACE=(CYL,(1,1))
  85. 10 //SYSUT5 DD SPACE=(CYL,(1,1))
  86. 11 //SYSUT6 DD SPACE=(CYL,(1,1))
  87. 12 //SYSUT7 DD SPACE=(CYL,(1,1))
  88. //*
  89. 13 //JSTEP02 EXEC PGM=HEWLDRGO,PARM='MAP,LET',COND=(0,LT)
  90. //*
  91. //***************************************************************
  92. //* *
  93. //* JSTEP02 CREATES A LOAD MODULE FROM THE INPUT OBJECT *
  94. //* MODULE, EXECUTES THE LOAD MODULE, AND THEN PRINTS IT. *
  95. //* *
  96. //* SYSLIN INPUT: THE OBJECT MODULE *
  97. //* SYSLIB INPUT: LOAD MODULE LIBRARIES NEEDED BY *
  98. //* THE LOADER *
  99. //* INFILE1 INPUT: INSTREAM DATA LABEL *
  100. //* *
  101. //* PRINTER OUTPUT: LABEL FOR OUTPUT TO STDOUT *
  102. //***************************************************************
  103. //*
  104. 14 //SYSLIN DD DSN=&&TEMP,DISP=(OLD,DELETE)
  105. 15 //SHAREPR DD DSN=KC02322.CSCI465.DATAFA14(DATA3A),DISP=SHR
  106. 16 //SALESDY DD DSN=KC02322.CSCI465.DATAFA14(DATA3B),DISP=SHR
  107. 17 //SALESRP DD SPACE=(TRK,(3,3))
  108. 18 //SYSLIB DD DSN=CEE.SCEELKED,DISP=SHR
  109. 19 //PRINTER DD SYSOUT=*
  110. !! END OF JES SPOOL FILE !!
  111. ICH70001I KC03Q15 LAST ACCESS AT 18:59:41 ON FRIDAY, OCTOBER 3, 2014
  112. IEF236I ALLOC. FOR KC03Q15A JSTEP01
  113. IEF237I JES2 ALLOCATED TO SYSIN
  114. IGD101I SMS ALLOCATED TO DDNAME (SYSLIN )
  115. DSN (SYS14276.T190308.RA000.KC03Q15A.TEMP.H01 )
  116. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  117. VOL SER NOS= TEMP00
  118. IEF237I JES2 ALLOCATED TO SYSPRINT
  119. IGD101I SMS ALLOCATED TO DDNAME (SYSUT1 )
  120. DSN (SYS14276.T190308.RA000.KC03Q15A.R0150677 )
  121. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  122. VOL SER NOS= TEMP00
  123. IGD101I SMS ALLOCATED TO DDNAME (SYSUT2 )
  124. DSN (SYS14276.T190308.RA000.KC03Q15A.R0150678 )
  125. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  126. VOL SER NOS= TEMP00
  127. IGD101I SMS ALLOCATED TO DDNAME (SYSUT3 )
  128. DSN (SYS14276.T190308.RA000.KC03Q15A.R0150679 )
  129. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  130. VOL SER NOS= TEMP00
  131. IGD101I SMS ALLOCATED TO DDNAME (SYSUT4 )
  132. DSN (SYS14276.T190308.RA000.KC03Q15A.R0150680 )
  133. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  134. VOL SER NOS= TEMP00
  135. IGD101I SMS ALLOCATED TO DDNAME (SYSUT5 )
  136. DSN (SYS14276.T190308.RA000.KC03Q15A.R0150681 )
  137. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  138. VOL SER NOS= TEMP00
  139. IGD101I SMS ALLOCATED TO DDNAME (SYSUT6 )
  140. DSN (SYS14276.T190308.RA000.KC03Q15A.R0150682 )
  141. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  142. VOL SER NOS= TEMP00
  143. IGD101I SMS ALLOCATED TO DDNAME (SYSUT7 )
  144. DSN (SYS14276.T190308.RA000.KC03Q15A.R0150683 )
  145. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  146. VOL SER NOS= TEMP00
  147. IEF142I KC03Q15A JSTEP01 - STEP WAS EXECUTED - COND CODE 0000
  148. IEF285I KC03Q15.KC03Q15A.JOB01399.D0000101.? SYSIN
  149. IGD106I SYS14276.T190308.RA000.KC03Q15A.TEMP.H01 PASSED, DDNAME=SYSLIN
  150. IEF285I KC03Q15.KC03Q15A.JOB01399.D0000102.? SYSOUT
  151. IGD105I SYS14276.T190308.RA000.KC03Q15A.R0150677 DELETED, DDNAME=SYSUT1
  152. IGD105I SYS14276.T190308.RA000.KC03Q15A.R0150678 DELETED, DDNAME=SYSUT2
  153. IGD105I SYS14276.T190308.RA000.KC03Q15A.R0150679 DELETED, DDNAME=SYSUT3
  154. IGD105I SYS14276.T190308.RA000.KC03Q15A.R0150680 DELETED, DDNAME=SYSUT4
  155. IGD105I SYS14276.T190308.RA000.KC03Q15A.R0150681 DELETED, DDNAME=SYSUT5
  156. IGD105I SYS14276.T190308.RA000.KC03Q15A.R0150682 DELETED, DDNAME=SYSUT6
  157. IGD105I SYS14276.T190308.RA000.KC03Q15A.R0150683 DELETED, DDNAME=SYSUT7
  158. IEF373I STEP/JSTEP01 /START 2014276.1903
  159. IEF032I STEP/JSTEP01 /STOP 2014276.1903
  160. CPU: 0 HR 00 MIN 00.03 SEC SRB: 0 HR 00 MIN 00.00 SEC
  161. VIRT: 1024K SYS: 288K EXT: 32724K SYS: 10260K
  162. IEF236I ALLOC. FOR KC03Q15A JSTEP02
  163. IGD103I SMS ALLOCATED TO DDNAME SYSLIN
  164. IGD103I SMS ALLOCATED TO DDNAME SHAREPR
  165. IGD103I SMS ALLOCATED TO DDNAME SALESDY
  166. IGD101I SMS ALLOCATED TO DDNAME (SALESRP )
  167. DSN (SYS14276.T190308.RA000.KC03Q15A.R0150684 )
  168. STORCLAS (TEMPSC) MGMTCLAS ( ) DATACLAS ( )
  169. VOL SER NOS= TEMP00
  170. IEF237I 1001 ALLOCATED TO SYSLIB
  171. IEF237I JES2 ALLOCATED TO PRINTER
  172. IEA848I NO DUMP WAS PRODUCED FOR THIS ABEND, DUE TO SYSTEM OR INSTALLATION REQUEST
  173. IEF472I KC03Q15A JSTEP02 - COMPLETION CODE - SYSTEM=322 USER=0000 REASON=00000000
  174. IGD105I SYS14276.T190308.RA000.KC03Q15A.TEMP.H01 DELETED, DDNAME=SYSLIN
  175. IGD104I KC02322.CSCI465.DATAFA14 RETAINED, DDNAME=SHAREPR
  176. IGD104I KC02322.CSCI465.DATAFA14 RETAINED, DDNAME=SALESDY
  177. IGD105I SYS14276.T190308.RA000.KC03Q15A.R0150684 DELETED, DDNAME=SALESRP
  178. IEF285I CEE.SCEELKED KEPT
  179. IEF285I VOL SER NOS= VTMVSC.
  180. IEF285I KC03Q15.KC03Q15A.JOB01399.D0000103.? SYSOUT
  181. IEF373I STEP/JSTEP02 /START 2014276.1903
  182. IEF032I STEP/JSTEP02 /STOP 2014276.1905
  183. CPU: 0 HR 02 MIN 00.59 SEC SRB: 0 HR 00 MIN 00.00 SEC
  184. VIRT: 192K SYS: 304K EXT: 2552K SYS: 10280K
  185. IEF375I JOB/KC03Q15A/START 2014276.1903
  186. IEF033I JOB/KC03Q15A/STOP 2014276.1905
  187. CPU: 0 HR 02 MIN 00.62 SEC SRB: 0 HR 00 MIN 00.00 SEC
  188. !! END OF JES SPOOL FILE !!
  190. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 10/03/2014 Time 19:03:17 Page 1
  191.  
  192. Invocation parameters:
  193. FLAG(I,I),APOST
  194.  
  195. Options in effect:
  196. NOADATA
  197. ADV
  198. APOST
  199. ARITH(COMPAT)
  200. NOAWO
  201. NOBLOCK0
  202. BUFSIZE(4096)
  203. NOCICS
  204. CODEPAGE(1140)
  205. NOCOMPILE(S)
  206. NOCURRENCY
  207. DATA(31)
  208. NODATEPROC
  209. DBCS
  210. NODECK
  211. NODIAGTRUNC
  212. NODLL
  213. NODUMP
  214. NODYNAM
  215. NOEXIT
  216. NOEXPORTALL
  217. NOFASTSRT
  218. FLAG(I,I)
  219. NOFLAGSTD
  220. INTDATE(ANSI)
  221. LANGUAGE(EN)
  222. NOLIB
  223. LINECOUNT(60)
  224. NOLIST
  225. NOMAP
  226. NOMDECK
  227. NONAME
  228. NSYMBOL(NATIONAL)
  229. NONUMBER
  230. NUMPROC(NOPFD)
  231. OBJECT
  232. NOOFFSET
  233. NOOPTIMIZE
  234. OUTDD(SYSOUT)
  235. PGMNAME(COMPAT)
  236. RENT
  237. RMODE(AUTO)
  238. SEQUENCE
  239. SIZE(MAX)
  240. SOURCE
  241. SPACE(1)
  242. NOSQL
  243. SQLCCSID
  244. NOSSRANGE
  245. NOTERM
  246. NOTEST
  247. NOTHREAD
  248. TRUNC(STD)
  249. NOVBREF
  251. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 10/03/2014 Time 19:03:17 Page 2
  252.  
  253. NOWORD
  254. XMLPARSE(XMLSS)
  255. XREF(FULL)
  256. YEARWINDOW(1900)
  257. ZWB
  259. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 3
  260. LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  261.  
  262. 000001 ****************************************************************
  263. 000002 * PROGRAM NAME: ASSIGN3 *
  264. 000003 * *
  265. 000004 * FUNCTION: THIS PROGRAM READS INFORMATION FROM THE INPUT *
  266. 000005 * FILE MAKES CALCULATIONS ON SHARES SOLD BY BROKERS *
  267. 000006 * AND CREATES A REPORT OF THE DAILY SALES *
  268. 000007 * AND A SECOND REPORT FOR THE BROKERS WITH BIG *
  269. 000008 * SALES *
  270. 000009 * *
  271. 000010 * INPUT: DATA1 - THE INPUT DATA FILE *
  272. 000011 * *
  273. 000012 * OUTPUT: THE 80 BYTE LINES OF THE INPUT RECORD *
  274. 000013 * *
  275. 000014 ****************************************************************
  276. 000015
  277. 000016 IDENTIFICATION DIVISION.
  278. 000017
  279. 000018 PROGRAM-ID. ASSIGN3.
  280. 000019 AUTHOR. MATTHEW ROWE.
  281. 000020 DATE-WRITTEN. 10/03/2014.
  282. 000021 DATE-COMPILED. 10/03/14.
  284. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 4
  285. LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  286. 000023 ENVIRONMENT DIVISION.
  287. 000024
  288. 000025 INPUT-OUTPUT SECTION.
  289. 000026
  290. 000027 FILE-CONTROL.
  291. 000028
  292. 000029 SELECT STOCK-PRICE ASSIGN TO SHAREPR. 45
  293. 000030 SELECT DAILY-SALES ASSIGN TO SALESDY. 52
  294. 000031 SELECT PRINT-REPORT ASSIGN TO PRINTER. 62
  295. 000032 SELECT SALES-REPORT ASSIGN TO SALESRP. 38
  296. 000033
  297. 000034 DATA DIVISION.
  298. 000035
  299. 000036 FILE SECTION.
  300. 000037
  301. 000038 FD SALES-REPORT
  302. 000039 RECORDING MODE IS F.
  303. 000040
  304. 000041 01 TEMP-STORAGE.
  305. 000042 05 TEMP-BROKER PIC X(24).
  306. 000043 05 TEMP-SHARES-SOLD PIC ZZ,ZZZ,ZZZ,ZZ9.999.
  307. 000044
  308. 000045 FD STOCK-PRICE
  309. 000046 RECORDING MODE IS F.
  310. 000047
  311. 000048 01 SHARE.
  312. 000049 05 IN-SHARE-PRICE PIC S9(3)V9(2) COMP SYNC.
  313. 000050 05 FILLER PIC X(76).
  314. 000051
  315. 000052 FD DAILY-SALES
  316. 000053 RECORDING MODE IS F.
  317. 000054
  318. 000055 01 INPUT-RECORD.
  319. 000056 05 IN-BROKER-CITY PIC X(24).
  320. 000057 05 IN-BROKER-NAME PIC X(24).
  321. 000058 05 IN-DEPOSIT-AMOUNT PIC S9(9)V99 COMP-3 SYNC.
  322. 000059 05 COMMISSION-FLAG PIC S9.
  323. 000060 05 FILLER PIC X(20).
  324. 000061
  325. 000062 FD PRINT-REPORT
  326. 000063 RECORDING MODE IS F.
  327. 000064
  328. 000065 01 PRINT-RECORD PIC X(132).
  329. 000066
  330. 000067 WORKING-STORAGE SECTION.
  331. 000068 01 CURRENT-DATE-FIELDS.
  332. 000069 05 CURRENT-DATE.
  333. 000070 10 CURRENT-YEAR PIC 9(4).
  334. 000071 10 CURRENT-MONTH PIC 9(2).
  335. 000072 10 CURRENT-DAY PIC 9(2).
  336. 000073 05 CURRENT-TIME.
  337. 000074 10 CURRENT-HOUR PIC 9(2).
  338. 000075 10 CURRENT-MINUTE PIC 9(2).
  339. 000076 10 CURRENT-SECOND PIC 9(2).
  340. 000077 10 CURRENT-MS PIC 9(2).
  341. 000078 05 DIFF-FROM-GMT PIC S9(4).
  342. 000079
  343. 000080 01 EOF-FLAGS.
  345. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 5
  346. LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  347.  
  348. 000081 05 EOF-FLAG1 PIC X VALUE 'N'.
  349. 000082 05 EOF-FLAG2 PIC X VALUE 'N'.
  350. 000083 05 EOF-FLAG3 PIC X VALUE 'N'.
  351. 000084
  352. 000085 01 HEADER-L1.
  353. 000086 05 OUT-MM PIC X(2).
  354. 000087 05 FILLER PIC X VALUE '/' .
  355. 000088 05 OUT-DD PIC X(2).
  356. 000089 05 FILLER PIC X VALUE '/'.
  357. 000090 05 OUT-YYYY PIC X(4).
  358. 000091 05 FILLER PIC X(35) VALUE SPACES. IMP
  359. 000092 05 BROKER-FIRM PIC X(44)
  360. 000093 VALUE 'DEWEY, CHEATHAM & HOWE MUTUAL FUND WORLDWIDE'.
  361. 000094 05 FILLER PIC X(35) VALUE SPACES. IMP
  362. 000095 05 PG PIC X(6) VALUE 'PAGE: '.
  363. 000096 05 PAGE-NUM PIC 99 VALUE 0.
  364. 000097
  365. 000098 01 HEADER-L2-R1.
  366. 000099 05 OUT-HH PIC 99.
  367. 000100 05 FILLER PIC X VALUE ':'.
  368. 000101 05 OUT-MN PIC 99.
  369. 000102 05 FILLER PIC X VALUE ':'.
  370. 000103 05 OUT-SS PIC 99.
  371. 000104 05 FILLER PIC X(42) VALUE SPACES. IMP
  372. 000105 05 BSC-REPORT PIC X(34)
  373. 000106 VALUE 'BROKER SALES AND COMMISSION REPORT'.
  374. 000107 05 FILLER PIC X(48) VALUE SPACES. IMP
  375. 000108
  376. 000109 01 HEADER-L3-R1.
  377. 000110 05 CITY-HEADER PIC X(11)
  378. 000111 VALUE 'BRANCH CITY'.
  379. 000112 05 FILLER PIC X(22).
  380. 000113 05 BROKER-HEADER PIC X(11)
  381. 000114 VALUE 'BROKER NAME'.
  382. 000115 05 FILLER PIC X(23).
  383. 000116 05 DEPOSIT-HEADER PIC X(14)
  384. 000117 VALUE 'DEPOSIT AMOUNT'.
  385. 000118 05 FILLER PIC X(17).
  386. 000119 05 SHARES-SOLD-HEADER PIC X(11)
  387. 000120 VALUE 'SHARES SOLD'.
  388. 000121 05 FILLER PIC X(13).
  389. 000122 05 COMMISSION-HEADER PIC X(10)
  390. 000123 VALUE 'COMMISSION'.
  391. 000124
  392. 000125 01 HEAD-DIVIDE PIC X(132) VALUE ALL '-'.
  393. 000126
  394. 000127 01 HEADER-L2-R2.
  395. 000128 05 OUT-HH-2 PIC 99.
  396. 000129 05 FILLER PIC X VALUE ':'.
  397. 000130 05 OUT-MN-2 PIC 99.
  398. 000131 05 FILLER PIC X VALUE ':'.
  399. 000132 05 OUT-SS-2 PIC 99.
  400. 000133 05 FILLER PIC X(47) VALUE SPACES. IMP
  401. 000134 05 BLS-REPORT PIC X(24)
  402. 000135 VALUE 'BROKER LARGE SALE REPORT'.
  403. 000136 05 FILLER PIC X(53).
  404. 000137
  406. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 6
  407. LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  408.  
  409. 000138 01 HEADER-L3-R2.
  410. 000139 05 FILLER PIC X(41) VALUE SPACES. IMP
  411. 000140 05 BROKER-HEADER-2 PIC X(11)
  412. 000141 VALUE 'BROKER NAME'.
  413. 000142 05 FILLER PIC X(21) VALUE SPACES. IMP
  414. 000143 05 SHARES-HEADER-2 PIC X(11)
  415. 000144 VALUE 'SHARES SOLD'.
  416. 000145 05 FILLER PIC X(48) VALUE SPACES. IMP
  417. 000146
  418. 000147 01 HEADER-EOR.
  419. 000148 05 FILLER PIC X(15).
  420. 000149 05 TOTAL-RECORDS-HEAD PIC X(12)
  421. 000150 VALUE 'RECORDS READ'.
  422. 000151 05 FILLER PIC X(11).
  423. 000152 05 TOTAL-DEPOSIT-HEAD PIC X(13)
  424. 000153 VALUE 'TOTAL DEPOSIT'.
  425. 000154 05 FILLER PIC X(17).
  426. 000155 05 TOTAL-SHARES-HEAD PIC X(17)
  427. 000156 VALUE 'TOTAL SHARES SOLD'.
  428. 000157 05 FILLER PIC X(15).
  429. 000158 05 TOTAL-COMMISSION-HEAD PIC X(16)
  430. 000159 VALUE 'TOTAL COMMISSION'.
  431. 000160 05 FILLER PIC X(16).
  432. 000161
  433. 000162 01 SHARE-PRICE PIC S9(3)V99 COMP SYNC.
  434. 000163
  435. 000164 01 PRINT-LINE-1.
  436. 000165 05 OUT-BROKER-CITY PIC X(24).
  437. 000166 05 FILLER PIC X(9) VALUE SPACES. IMP
  438. 000167 05 OUT-BROKER-NAME PIC X(24).
  439. 000168 05 FILLER PIC X(9) VALUE SPACES. IMP
  440. 000169 05 OUT-DEPOSIT PIC $$$$,$$$,$$9.99.
  441. 000170 05 FILLER PIC X(9) VALUE SPACES. IMP
  442. 000171 05 SHARES-SOLD PIC ZZ,ZZZ,ZZZ,ZZ9.9999.
  443. 000172 05 FILLER PIC X(8) VALUE SPACES. IMP
  444. 000173 05 COMMISSION PIC $$$$,$$$,$$9.99.
  445. 000174
  446. 000175 01 PRINT-LINE-2.
  447. 000176 05 FILLER PIC X(41) VALUE SPACES. IMP
  448. 000177 05 OUT-BROKER-NAME2 PIC X(24).
  449. 000178 05 FILLER PIC X(10) VALUE SPACES. IMP
  450. 000179 05 SHARES-SOLD2 PIC ZZ,ZZZ,ZZZ,ZZ9.9999.
  451. 000180 05 FILLER PIC X(38) VALUE SPACES. IMP
  452. 000181
  453. 000182 01 EOR-STATS.
  454. 000183 05 FILLER PIC X(15) VALUE SPACES. IMP
  455. 000184 05 TOTAL-RECORDS PIC Z,ZZ9.
  456. 000185 05 FILLER PIC X(10) VALUE SPACES. IMP
  457. 000186 05 TOTAL-DEPOSIT PIC $$,$$$,$$$,$$$,$$9.99.
  458. 000187 05 FILLER PIC X(10) VALUE SPACES. IMP
  459. 000188 05 TOTAL-SHARES PIC ZZ,ZZZ,ZZZ,ZZZ,ZZ9.9999.
  460. 000189 05 FILLER PIC X(10) VALUE SPACES. IMP
  461. 000190 05 TOTAL-COMMMISSION PIC $$,$$$,$$$,$$$,$$9.99.
  462. 000191 05 FILLER PIC X(17) VALUE SPACES. IMP
  463. 000192
  464. 000193 01 PAGE-COUNT PIC 99 VALUE 0 COMP SYNC.
  465. 000194
  467. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 7
  468. LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  469.  
  470. 000195 01 PAGE-COUNT-2 PIC 99 VALUE 0 COMP SYNC.
  471. 000196
  472. 000197 01 LINE-COUNT PIC 99 VALUE 99 COMP SYNC.
  473. 000198
  474. 000199 01 LINE-COUNT-2 PIC 99 VALUE 99 COMP SYNC.
  475. 000200
  476. 000201 01 RECORD-COUNT PIC 9(4) VALUE 0.
  477. 000202
  478. 000203 01 RECORD-COUNT-2 PIC 9(4) VALUE 0.
  479. 000204
  480. 000205 PROCEDURE DIVISION.
  481. 000206 0000-MAIN.
  482. 000207
  483. 000208 OPEN INPUT STOCK-PRICE. 45
  484. 000209
  485. 000210 READ STOCK-PRICE 45
  486. 000211 1 AT END MOVE 'Y' TO EOF-FLAG1 81
  487. 000212 END-READ.
  488. 000213
  489. 000214 PERFORM 0100-GET-SHAREPR 251
  490. 000215 UNTIL EOF-FLAG1 = 'Y'. 81
  491. 000216
  492. 000217 CLOSE STOCK-PRICE. 45
  493. 000218
  494. 000219 OPEN OUTPUT PRINT-REPORT. 62
  495. 000220
  496. 000221 OPEN INPUT DAILY-SALES 52
  497. 000222 OUTPUT SALES-REPORT. 38
  498. 000223
  499. 000224 READ DAILY-SALES 52
  500. 000225 1 AT END MOVE 'Y' TO EOF-FLAG2 81
  501. 000226 END-READ.
  502. 000227
  503. 000228 PERFORM 0200-PROCESS-RECORD 260
  504. 000229 UNTIL EOF-FLAG2 = 'Y'. 82
  505. 000230
  506. 000231 CLOSE DAILY-SALES 52
  507. 000232 SALES-REPORT. 38
  508. 000233
  509. 000234 OPEN INPUT SALES-REPORT. 38
  510. 000235
  511. 000236 READ SALES-REPORT 38
  512. 000237 1 AT END MOVE 'Y' TO EOF-FLAG3 83
  513. 000238 END-READ.
  514. 000239
  515. 000240 PERFORM 0300-PROCESS-RECORD2 299
  516. 000241 UNTIL EOF-FLAG3 = 'Y'. 83
  517. 000242
  518. 000243 CLOSE SALES-REPORT 38
  519. 000244 PRINT-REPORT. 62
  520. 000245
  521. 000246 STOP RUN.
  522. 000247
  523. 000248 0000-EXIT. EXIT.
  525. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 8
  526. LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  527. 000250
  528. 000251 0100-GET-SHAREPR.
  529. 000252
  530. 000253 MOVE IN-SHARE-PRICE TO SHARE-PRICE. 49 162
  531. 000254
  532. 000255 MOVE FUNCTION CURRENT-DATE TO CURRENT-DATE-FIELDS. IFN 68
  533. 000256
  534. 000257 0100-EXIT. EXIT.
  535. 000258
  536. 000259
  537. 000260 0200-PROCESS-RECORD.
  538. 000261
  539. 000262 IF LINE-COUNT > 15 197
  540. 000263 1 PERFORM 0400-NEW-PAGE. 312
  541. 000264
  542. 000265 MOVE IN-BROKER-CITY TO OUT-BROKER-CITY. 56 165
  543. 000266
  544. 000267 MOVE IN-BROKER-NAME TO OUT-BROKER-NAME. 57 167
  545. 000268
  546. 000269 MOVE IN-DEPOSIT-AMOUNT TO OUT-DEPOSIT. 58 169
  547. 000270
  548. 000271 COMPUTE SHARES-SOLD = IN-DEPOSIT-AMOUNT / SHARE-PRICE. 171 58 162
  549. 000272
  550. 000273 IF SHARES-SOLD > 20000 171
  551. 000274 1 MOVE IN-BROKER-NAME TO TEMP-BROKER 57 42
  552. 000275 1 MOVE SHARES-SOLD TO TEMP-SHARES-SOLD 171 43
  553. 000276 1 COMPUTE RECORD-COUNT-2 = RECORD-COUNT-2 + 1. 203 203
  554. 000277
  555. 000278 IF COMMISSION-FLAG = 1 59
  556. 000279 1 COMPUTE COMMISSION ROUNDED = 173
  557. 000280 1 IN-DEPOSIT-AMOUNT * (5 / 800) 58
  558. 000281 ELSE
  559. 000282 1 COMPUTE COMMISSION ROUNDED = 173
  560. 000283 1 IN-DEPOSIT-AMOUNT * (7 / 800) 58
  561. 000284 END-IF.
  562. 000285
  563. 000286 WRITE PRINT-RECORD FROM PRINT-LINE-1 AFTER 2. 65 164
  564. 000287
  565. 000288 COMPUTE LINE-COUNT = LINE-COUNT + 1. 197 197
  566. 000289
  567. 000290 COMPUTE RECORD-COUNT = RECORD-COUNT + 1. 201 201
  568. 000291
  569. 000292 READ DAILY-SALES 52
  570. 000293 1 AT END MOVE 'Y' TO EOF-FLAG2 82
  571. 000294 END-READ.
  572. 000295
  573. 000296 0200-EXIT. EXIT.
  575. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 9
  576. LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
  577. 000298
  578. 000299 0300-PROCESS-RECORD2.
  579. 000300
  580. 000301 IF LINE-COUNT-2 > 15 199
  581. 000302 1 PERFORM 0500-NEW-PAGE2. 328
  582. 000303
  583. 000304
  584. 000305 WRITE PRINT-RECORD FROM PRINT-LINE-2 AFTER 2. 65 175
  585. 000306
  586. 000307 COMPUTE LINE-COUNT-2 = LINE-COUNT-2 + 1. 199 199
  587. 000308
  588. 000309
  589. 000310 0300-EXIT. EXIT.
  590. 000311
  591. 000312 0400-NEW-PAGE.
  592. 000313
  593. 000314 COMPUTE PAGE-NUM = PAGE-COUNT-2 + 1. 96 195
  594. 000315
  595. 000316 WRITE PRINT-RECORD FROM HEADER-L1 AFTER PAGE. 65 85
  596. 000317
  597. 000318 WRITE PRINT-RECORD FROM HEADER-L2-R1 AFTER 1. 65 98
  598. 000319
  599. 000320 WRITE PRINT-RECORD FROM HEADER-L3-R1 AFTER 1. 65 109
  600. 000321
  601. 000322 WRITE PRINT-RECORD FROM HEAD-DIVIDE AFTER 1. 65 125
  602. 000323
  603. 000324 MOVE 1 TO LINE-COUNT-2. 199
  604. 000325
  605. 000326 0400-EXIT. EXIT.
  606. 000327
  607. 000328 0500-NEW-PAGE2.
  608. 000329
  609. 000330 COMPUTE PAGE-NUM = PAGE-COUNT-2 + 1. 96 195
  610. 000331
  611. 000332 WRITE PRINT-RECORD FROM HEADER-L1 AFTER PAGE. 65 85
  612. 000333
  613. 000334 WRITE PRINT-RECORD FROM HEADER-L2-R2 AFTER 1. 65 127
  614. 000335
  615. 000336 WRITE PRINT-RECORD FROM HEADER-L3-R2 AFTER 1. 65 138
  616. 000337
  617. 000338 WRITE PRINT-RECORD FROM HEAD-DIVIDE AFTER 1. 65 125
  618. 000339
  619. 000340 MOVE 1 TO LINE-COUNT. 197
  620. 000341
  621. 000342 0500-EXIT. EXIT.
  622. 000343
  624. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 10
  625.  
  626. An "M" preceding a data-name reference indicates that the data-name is modified by this reference.
  627.  
  628. Defined Cross-reference of data names References
  629.  
  630. 134 BLS-REPORT
  631. 92 BROKER-FIRM
  632. 113 BROKER-HEADER
  633. 140 BROKER-HEADER-2
  634. 105 BSC-REPORT
  635. 110 CITY-HEADER
  636. 173 COMMISSION . . . . . . . . . . M279 M282
  637. 59 COMMISSION-FLAG. . . . . . . . 278
  638. 122 COMMISSION-HEADER
  639. 69 CURRENT-DATE
  640. 68 CURRENT-DATE-FIELDS. . . . . . M255
  641. 72 CURRENT-DAY
  642. 74 CURRENT-HOUR
  643. 75 CURRENT-MINUTE
  644. 71 CURRENT-MONTH
  645. 77 CURRENT-MS
  646. 76 CURRENT-SECOND
  647. 73 CURRENT-TIME
  648. 70 CURRENT-YEAR
  649. 52 DAILY-SALES. . . . . . . . . . 30 221 224 231 292
  650. 116 DEPOSIT-HEADER
  651. 78 DIFF-FROM-GMT
  652. 80 EOF-FLAGS
  653. 81 EOF-FLAG1. . . . . . . . . . . M211 215 M225
  654. 82 EOF-FLAG2. . . . . . . . . . . 229 M293
  655. 83 EOF-FLAG3. . . . . . . . . . . M237 241
  656. 182 EOR-STATS
  657. 125 HEAD-DIVIDE. . . . . . . . . . 322 338
  658. 147 HEADER-EOR
  659. 85 HEADER-L1. . . . . . . . . . . 316 332
  660. 98 HEADER-L2-R1 . . . . . . . . . 318
  661. 127 HEADER-L2-R2 . . . . . . . . . 334
  662. 109 HEADER-L3-R1 . . . . . . . . . 320
  663. 138 HEADER-L3-R2 . . . . . . . . . 336
  664. 56 IN-BROKER-CITY . . . . . . . . 265
  665. 57 IN-BROKER-NAME . . . . . . . . 267 274
  666. 58 IN-DEPOSIT-AMOUNT. . . . . . . 269 271 280 283
  667. 49 IN-SHARE-PRICE . . . . . . . . 253
  668. 55 INPUT-RECORD
  669. 197 LINE-COUNT . . . . . . . . . . 262 M288 288 M340
  670. 199 LINE-COUNT-2 . . . . . . . . . 301 M307 307 M324
  671. 165 OUT-BROKER-CITY. . . . . . . . M265
  672. 167 OUT-BROKER-NAME. . . . . . . . M267
  673. 177 OUT-BROKER-NAME2
  674. 88 OUT-DD
  675. 169 OUT-DEPOSIT. . . . . . . . . . M269
  676. 99 OUT-HH
  677. 128 OUT-HH-2
  678. 86 OUT-MM
  679. 101 OUT-MN
  680. 130 OUT-MN-2
  681. 103 OUT-SS
  682. 132 OUT-SS-2
  683. 90 OUT-YYYY
  685. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 11
  686.  
  687. Defined Cross-reference of data names References
  688.  
  689.  
  690. 193 PAGE-COUNT
  691. 195 PAGE-COUNT-2 . . . . . . . . . 314 330
  692. 96 PAGE-NUM . . . . . . . . . . . M314 M330
  693. 95 PG
  694. 164 PRINT-LINE-1 . . . . . . . . . 286
  695. 175 PRINT-LINE-2 . . . . . . . . . 305
  696. 65 PRINT-RECORD . . . . . . . . . M286 M305 M316 M318 M320 M322 M332 M334 M336 M338
  697. 62 PRINT-REPORT . . . . . . . . . 31 219 244
  698. 201 RECORD-COUNT . . . . . . . . . M290 290
  699. 203 RECORD-COUNT-2 . . . . . . . . M276 276
  700. 38 SALES-REPORT . . . . . . . . . 32 222 232 234 236 243
  701. 48 SHARE
  702. 162 SHARE-PRICE. . . . . . . . . . M253 271
  703. 143 SHARES-HEADER-2
  704. 171 SHARES-SOLD. . . . . . . . . . M271 273 275
  705. 119 SHARES-SOLD-HEADER
  706. 179 SHARES-SOLD2
  707. 45 STOCK-PRICE. . . . . . . . . . 29 208 210 217
  708. 42 TEMP-BROKER. . . . . . . . . . M274
  709. 43 TEMP-SHARES-SOLD . . . . . . . M275
  710. 41 TEMP-STORAGE
  711. 158 TOTAL-COMMISSION-HEAD
  712. 190 TOTAL-COMMMISSION
  713. 186 TOTAL-DEPOSIT
  714. 152 TOTAL-DEPOSIT-HEAD
  715. 184 TOTAL-RECORDS
  716. 149 TOTAL-RECORDS-HEAD
  717. 188 TOTAL-SHARES
  718. 155 TOTAL-SHARES-HEAD
  720. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 12
  721.  
  722. Context usage is indicated by the letter preceding a procedure-name reference.
  723. These letters and their meanings are:
  724. A = ALTER (procedure-name)
  725. D = GO TO (procedure-name) DEPENDING ON
  726. E = End of range of (PERFORM) through (procedure-name)
  727. G = GO TO (procedure-name)
  728. P = PERFORM (procedure-name)
  729. T = (ALTER) TO PROCEED TO (procedure-name)
  730. U = USE FOR DEBUGGING (procedure-name)
  731.  
  732. Defined Cross-reference of procedures References
  733.  
  734. 248 0000-EXIT
  735. 206 0000-MAIN
  736. 257 0100-EXIT
  737. 251 0100-GET-SHAREPR . . . . . . . P214
  738. 296 0200-EXIT
  739. 260 0200-PROCESS-RECORD. . . . . . P228
  740. 310 0300-EXIT
  741. 299 0300-PROCESS-RECORD2 . . . . . P240
  742. 326 0400-EXIT
  743. 312 0400-NEW-PAGE. . . . . . . . . P263
  744. 342 0500-EXIT
  745. 328 0500-NEW-PAGE2 . . . . . . . . P302
  747. PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 ASSIGN3 Date 10/03/2014 Time 19:03:17 Page 13
  748.  
  749. Defined Cross-reference of programs References
  750.  
  751. 18 ASSIGN3
  752.  
  753.  
  754. * Statistics for COBOL program ASSIGN3:
  755. * Source records = 343
  756. * Data Division statements = 79
  757. * Procedure Division statements = 59
  758.  
  759. End of compilation 1, program ASSIGN3, no statements flagged.
  760.  
  761. Return code 0
  762. !! END OF JES SPOOL FILE !!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!