Table of Contents

DMMSTA Source

References

Source Listing

DMMSTA.ASSEMBLE.txt
  1. STA TITLE 'DMMSTA (IPCS) VM/370 - RELEASE 6' 00001000
  2. * 00002000
  3. * MODULE NAME: STAT 00003000
  4. * 00004000
  5. * 00005000
  6. * FUNCTION: DISPLAYS STATUS OF A GIVEN PROBLEM, GROUP OF 00006000
  7. * PROBLEMS, OR ALL PROBLEMS. 00007000
  8. * 00008000
  9. * 00009000
  10. * ATTRIBUTES: NON-REENTRANT 00010000
  11. * NON-REUSABLE 00011000
  12. * 00012000
  13. * 00013000
  14. * ENTRY POINTS: DMMSTA 00014000
  15. * 00015000
  16. * 00016000
  17. * ENTRY CONDITIONS: R1 POINTS TO PASSED PARMS 00017000
  18. * MODULE NAME LENGTH 8 00018000
  19. * PARM1 (ALL OR PNUM) LENGTH 8 00019000
  20. * PARM2 (SRCH ARG1) LENGTH 8 00020000
  21. * PARM3 (SRCH ARG2) LENGTH 8 00021000
  22. * 00022000
  23. * 00023000
  24. * EXIT CONDITIONS: RETURN CODE IN R15 00024000
  25. * 0 NORMAL RETURN, FUNCTION PERFORMED 00025000
  26. * 4 PROBLEM NUMBER NOT FOUND IN SYMPTOM SUMMARY 00026000
  27. * 8 UNCORRECTABLE ERROR OCCURRED 00027000
  28. * 00028000
  29. * 00029000
  30. * CALLS TO OTHER ROUTINES: NONE 00030000
  31. * 00031000
  32. * 00032000
  33. * EXTERNAL REFERENCES: NONE 00033000
  34. * 00034000
  35. * 00035000
  36. * TABLES/WORKAREAS: NONE 00036000
  37. * 00037000
  38. * 00038000
  39. * REGISTER USAGE: R13 SAVEAREA 00039000
  40. * R12 BASE 00040000
  41. * R11 SYMSECT DSECT (SYMPTOM SUMMARY CONTROL RECORD) 00041000
  42. * R10 WORK 00042000
  43. * R9 CURRENT RECORD NUMBER WITHIN SYMPTOM SUMMARY 00043000
  44. * R8 INTERNAL LINK REGISTER 00044000
  45. * R7 POINTER TO TERMINAL OUTPUT RECORD 00045000
  46. * R6 LENGTH OF TERMINAL OUTPUT RECORD 00046000
  47. * R2,R3,R4,R5 WORK 00047000
  48. * R1 POINTER TO PARMS 00048000
  49. * 00049000
  50. * 00050000
  51. * NOTES: 00051000
  52. * 00052000
  53. * 00053000
  54. * OPERATION: 00054000
  55. * 00055000
  56. * I. STAT ALL LOCAL 00056000
  57. * 11. STAT ALL AAAAAA BBBBBB 00057000
  58. * 111. STAT NNNNN 00058000
  59. * 1V. USER PROMPT INTERNAL SUBROUTINE 00059000
  60. * 00060000
  61. * UPON ENTRY IT IS DETERMINED IF ANY PARMS HAVE BEEN SUPPLIED. 00061000
  62. * IF NOT THE USER PROMPT SUBROUTINE IS ENTERED. 00062000
  63. * IF PARMS WERE PASSED THEY ARE EXAMINED FOR VALIDITY AND THE 00063000
  64. * APPROPRIATE ROUTINE IS ENTERED. 00064000
  65. * 00065000
  66. * I. STAT ALL 00066000
  67. * 00067000
  68. * A. LALLSW SWITCH IS SET INDICATING STAT ALL. 00068000
  69. * B. THE OLD 'STATALL LOCAL A1' FILE IS ERASED. 00069000
  70. * C. THE HDR IS PUT OUT IN THE NEW 'STATALL LOCAL A1' FILE. 00070000
  71. * D. THE SYMPTOM SUMMARY FILE IS READ AND THE FIRST CTL RCD 00071000
  72. * IS PUT OUT IN THE 'STATALL LOCAL A1' FILE. 00072000
  73. * E. THE POSITION OF THE NEXT SYMPTOM SUMMARY CONTROL RCD IS 00073000
  74. * CALCULATED AND READ. THE RCD IS ADDED TO 'STATALL LOCAL A1' 00074000
  75. * F. WHEN END OF FILE IS REACHED ON THE SYMPTOM SUMMARY FILE 00075000
  76. * THE 'STATALL LOCAL A1' FILE IS CLOSED AND THE USER IS 00076000
  77. * INFORMED THAT THE FILE HAS BEEN CREATED. 00077000
  78. * G. NORMAL EXIT IS TAKEN. 00078000
  79. * 00079000
  80. * II. STAT ALL AAAAA BBBBB 00080000
  81. * 00081000
  82. * A. AAAAA IS EXAMINED FOR VALIDITY AND R2 (STATUS OR LAST 00082000
  83. * FUNCTION) OR R4 (FAILURE TYPE) IS LOADED WITH THE ADDR OF 00083000
  84. * THE USER SUPPLIED SEARCH ARGUMENT. 00084000
  85. * B. IF THERE IS A BBBBB IT IS ALSO EXAMINED FOR A VALID SRCH 00085000
  86. * ARGUMENT AND THE APPROPRIATE REGISTER LOADED TO POINT IT. 00086000
  87. * (THE BBBBB ARGUMENT WILL SUPERCEDE THE AAAAA ARG IF THEY 00087000
  88. * ARE OF THE SAME TYPE I.E. BOTH STATUS OR BOTH FAILURE). 00088000
  89. * C. THE SYMPTOM SUMMARY FILE CTL RCDS ARE NOW SEARCHED FOR 00089000
  90. * MATCHES AND ANY MATCHES ARE DISPLAYED ON THE TERMINAL. 00090000
  91. * (BEFORE THE FIRST MATCH IS DISPLAYED A CP DIAGNOSE TO ERASE 00091000
  92. * THE SCREEN IS EXECUTED IN CASE THE TERMINAL IS A DISPLAY 00092000
  93. * DEVICE). 00093000
  94. * 00094000
  95. * III. STAT NNNNN (STATUS OF A SINGLE PROBLEM NNNNN) 00095000
  96. * 00096000
  97. * A. THE PASSED PARM IS EXAMINED FOR VALIDITY (NUMERICS) AND 00097000
  98. * IF IN ERROR (SEE IV.). 00098000
  99. * B. THE SYMPTOM SUMMARY FILE IS SEARCHED FOR THE PROB NUMBR 00099000
  100. * C. THE CTL RECORD IS DISPLAYED ON THE TERMINAL WHEN FOUND. 00100000
  101. * 00101000
  102. * IV. USER PROMPTING FOR A PROBLEM NUMBER. 00102000
  103. * 00103000
  104. * A. THE USER IS PROMPTED TO ENTER THE PROBLEM NUMBER OR 00104000
  105. * 00000 FOR A STATUS ALL REQUEST. 00105000
  106. * B. THE INPUT IS EXAMINED FOR VALIDITY AND NORMALIZED TO A 5 00106000
  107. * DIGIT NUMBER. 00107000
  108. * C. GO TO III. 00108000
  109. * 00109000
  110. * 00110000
  111. * ERROR MESSAGES: 00111000
  112. * 00112000
  113. * DMMSTA100S ERROR 'NNN' READING FILE 'FILENAME FILETYPE FM' 00113000
  114. * DMMSTA200S ERROR 'NNN' WRITING FILE 'FILENAME FILETYPE FM' 00114000
  115. * DMMSTA601S OPERAND NOT RECOGNIZED, STATALL ASSUMED 00115000
  116. * 00116000
  117. * 00117000
  118. EJECT 00118000
  119. DMMSTA CSECT @VA04250 00119000
  120. USING DMMSTA,R15 TEMPORARY ADDRESSABILITY @VA04250 00120000
  121. B START GO AROUND EYECATCHER @VA04250 00121000
  122. DS 0D @VA04250 00122000
  123. MODNAME DC C'DMMSTA ' MODULE NAME @VA04250 00123000
  124. RELLEV DC C'REL4LEV0' RELEASE AND LEVEL @V4075A1 00124000
  125. START STM R14,R12,12(R13) SAVE CALLER'S REGISTERS @VA04250 00125000
  126. LR R12,R15 ESTABLISH OUR BASE REGISTER @VA04250 00126000
  127. DROP R15 @VA04250 00127000
  128. USING DMMSTA,R12 START USING OUR BASE REGISTER @VA04250 00128000
  129. ST R13,SAVEAREA+8 SAVE ADDRESS OF CALLER'S SAVEAREA@VA04250 00129000
  130. LA R13,SAVEAREA ESTABLISH OUR SAVEAREA @VA04250 00130000
  131. LA R11,INPUT INPUT FOR SYMPTOM SUMMARY RCDS @VA04250 00131000
  132. USING SYMSECT,R11 SYMPTOM SUMMARY CTL RCD FORMAT @VA04250 00132000
  133. USING PARMSECT,R1 PASSED PARMS DSECT @VA04250 00133000
  134. * CHECK FOR TYPE OF STATUS REQUEST 00134000
  135. CLC PARM1,=C'ALL ' STATUS ALL COMMAND? @VA04250 00135000
  136. BE STATSRCH YES @VA04250 00136000
  137. CLI PARM1,FENCE ANYTHING AT ALL ENTERED? @VA04250 00137000
  138. BE SPNUM NO, GO PROMPT @VA04250 00138000
  139. TM PARM1,NUMERIC DID USER JUST SUPPLY PRB NMBR? @VA04250 00139000
  140. BO STATRDY YES @VA04250 00140000
  141. MVC M601PARM,PARM1 MOVE PAD PARM TO MESSAGE @VA04250 00141000
  142. B DOMSG601 GO TELL USER @VA04250 00142000
  143. STATRDY LA R0,EIGHT INDICATE WE HAVE READ 8 BYTES @VA04250 00143000
  144. LA R1,EIGHT(R1) POINT DIRECTLY TO DATA @VA04250 00144000
  145. B SPNUM2 GO CHECK FOR VALID NUMERIC DATA @VA04250 00145000
  146. *************************************************************** 00146000
  147. * STATUS ALL HAS BEEN REQUESTED. THE POSSIBILITES ARE: 00147000
  148. * STAT ALL OR A SEARCH FOR PROBLEMS IN CATEGORIES 00148000
  149. * SPECIFIED BY THE USER. 00149000
  150. * WE WILL CHECK FIRST FOR STAT ALL 00150000
  151. *************************************************************** 00151000
  152. STATSRCH CLI PARM2,BLANK IF NOTHING THEN @VA04250 00152000
  153. BE STALLOC ASSUME STATUS ALL @VA04250 00153000
  154. CLI PARM2,FENCE NOTHING? @VA04250 00154000
  155. BE STALLOC ASSUME STAT ALL LOC @VA04250 00155000
  156. *************************************************************** 00156000
  157. * THE USER WANTS SOME KIND OF SEARCH OF THE SYMPTOM SUMMARY 00157000
  158. * DONE. WE'LL ALLOW THE SEARCH OF SYMSTAT, SYMFAIL, AND SYMLFCT 00158000
  159. * FIELDS AGAINST THE VALUES SUPPLIED BY THE USER. 00159000
  160. *************************************************************** 00160000
  161. SR R2,R2 INDICATE NO STATUS VALUE AT START@VA04250 00161000
  162. LA R3,SYMSTAT THIS WILL BE USED AS A SEARCH PTR@VA04250 00162000
  163. SR R4,R4 INDICATE NO FAILURE VALUE FIRST @VA04250 00163000
  164. LA R5,SYMFAIL SUBSEQUENT COMPARES @VA04250 00164000
  165. CLC =C'AB ',PARM2 IS IT PSR CODE FOR ABEND? @VA04250 00165000
  166. BE CKMVAB YES @VA04250 00166000
  167. CLC =C'ABEND ',PARM2 LOOKING AT ABENDS? @VA04250 00167000
  168. BNE CKOPENU NO @VA04250 00168000
  169. CKMVAB LA R4,=C'ABEND ' USER WANTS TO FIND ALL ABENDS @VA04250 00169000
  170. CKOPENU CLC =C'OPENUSER',PARM2 ALL OPEN USER PROBLEMS? @VA04250 00170000
  171. BNE CKOPENI NO @VA04250 00171000
  172. LA R2,=C'OPENUSER' SAVE FOR LATER COMPARE @VA04250 00172000
  173. CKOPENI CLC =C'OPENIBM ',PARM2 ALL OPENIBM PROBLEMS? @VA04250 00173000
  174. BNE CKOPEN NO @VA04250 00174000
  175. LA R2,=C'OPENIBM ' SAVE FOR LATER COMPARE @VA04250 00175000
  176. CKOPEN CLC =C'OPEN ',PARM2 ALL OPEN PROBLEMS? @VA04250 00176000
  177. BNE CKAPAR NO @VA04250 00177000
  178. LA R2,=C'OPEN ' SAVE PARM FOR LATER COMPARE @VA04250 00178000
  179. CKAPAR CLC =C'APARED ',PARM2 ALL PROBLEMS APARED? @VA04250 00179000
  180. BNE CKMSG NO @VA04250 00180000
  181. LA R2,=C'APARED ' SAVE PARM FOR LATER COMPARE @VA04250 00181000
  182. CKMSG CLC =C'MS ',PARM2 ALL MESSAGES? @VA04250 00182000
  183. BE CKMVMSG YES @VA04250 00183000
  184. CLC =C'MSG ',PARM2 ALL MESSAGES? @VA04250 00184000
  185. BNE CKINCO NO @VA04250 00185000
  186. CKMVMSG LA R4,=C'MS ' SAVE PARM FOR LATER COMPARE @VA04250 00186000
  187. CKINCO CLC =C'IN ',PARM2 ALL INCORRECT OUTS? @VA04250 00187000
  188. BE CKMVIN YES @VA04250 00188000
  189. CLC =C'INCORR ',PARM2 ALL INCORRECT OUTS? @VA04250 00189000
  190. BNE CKINF NO @VA04250 00190000
  191. CKMVIN LA R4,=C'INCORR ' SAVE PARM FOR LATER COMPARE @VA04250 00191000
  192. CKINF CLC =C'INF ',PARM2 ALL INFORMATION PROBLEMS? @VA04250 00192000
  193. BNE CKWAIT NO @VA04250 00193000
  194. LA R4,=C'INF ' POINT TO INF FOR LATER COMPARE @VA04250 00194000
  195. CKWAIT CLC =C'WAIT',PARM2 ALL WAIT TYPE? @VA04250 00195000
  196. BE CKMVWS YES @VA04250 00196000
  197. CLC =C'WS ',PARM2 PSR CODE FOR WAIT STATE? @VA04250 00197000
  198. BNE CKLOOP NO @VA04250 00198000
  199. CKMVWS LA R4,=C'WAIT ' SAVE PARM FOR LATER COMPARE @VA04250 00199000
  200. CKLOOP CLC =C'LOO',PARM2 ALL LOOPS? @VA04250 00200000
  201. BE CKMVLP YES @VA04250 00201000
  202. CLC =C'LP ',PARM2 PSR CODE FOR LOOP? @VA04250 00202000
  203. BNE CKPERF NO @VA04250 00203000
  204. CKMVLP LA R4,=C'LOOP ' SAVE PARM FOR LATER COMPARE @VA04250 00204000
  205. CKPERF CLC =C'PERFORM ',PARM2 PERFORMANCE PROBLEMS? @VA04250 00205000
  206. BE CKMVPR YES @VA04250 00206000
  207. CLC =C'PR ',PARM2 PSR CODE FOR PERFORMANCE? @VA04250 00207000
  208. BNE CKDOC NO @VA04250 00208000
  209. CKMVPR LA R4,=C'PERFORM ' SAVE PARM FOR LATER COMPARE @VA04250 00209000
  210. CKDOC CLC =C'DOC ',PARM2 DOCUMENTATION PROBLEMS? @VA04250 00210000
  211. BE CKMVDD YES @VA04250 00211000
  212. CLC =C'DD ',PARM2 PSR CODE FOR DOCUMENTATION? @VA04250 00212000
  213. BNE CKCLOSE NO @VA04250 00213000
  214. CKMVDD LA R4,=C'DOC ' SAVE PARM FOR LATER COMPARE @VA04250 00214000
  215. CKCLOSE CLC =C'CLOSED ',PARM2 ALL CLOSED PROBLEMS? @VA04250 00215000
  216. BNE CKNEED NO @VA04250 00216000
  217. LA R2,=C'CLOSED ' SAVE PARM FOR LATER COMPARE @VA04250 00217000
  218. CKNEED CLC =C'NEEDINFO',PARM2 ALL PROBLEMS AWAITING INFO? @VA04250 00218000
  219. BNE CKPTF1 NO @VA04250 00219000
  220. LA R2,=C'NEEDINFO' SAVE PARM FOR LATER COMPARE @VA04250 00220000
  221. CKPTF1 CLC =C'PTFON ',PARM2 ALL PROBLEMS IN PTF APPLIED @VA04250 00221000
  222. BNE CKPTF2 NO @VA04250 00222000
  223. LA R2,=C'PTFON ' SAVE PARM FOR LATER COMPARE @VA04250 00223000
  224. CKPTF2 CLC =C'PTFRCVD ',PARM2 ALL PROBLEMS WITH AVAILABLE P@VA04250 00224000
  225. BNE CK1ABEND NO @VA04250 00225000
  226. LA R2,=C'PTFRCVD ' SAVE PARM FOR COMPARES @VA04250 00226000
  227. CK1ABEND CLC =C'ABEND ',PARM3 LOOKING AT ABENDS? @VA04250 00227000
  228. BE CK1MVABE YES @VA04250 00228000
  229. CLC =C'AB ',PARM3 LOOKING AT ABENDS? @VA04250 00229000
  230. BNE CK1OPENU NO @VA04250 00230000
  231. CK1MVABE LA R4,=C'ABEND ' SAVE PARM FOR LATER COMPARE @VA04250 00231000
  232. CK1OPENU CLC =C'OPENUSER',PARM3 ALL OPEN USER PROBLEMS? @VA04250 00232000
  233. BNE CK1OPENI NO @VA04250 00233000
  234. LA R2,=C'OPENUSER' SAVE FOR LATER COMPARE @VA04250 00234000
  235. CK1OPENI CLC =C'OPENIBM ',PARM3 ALL OPENIBM PROBLEMS? @VA04250 00235000
  236. BNE CK1OPEN NO @VA04250 00236000
  237. LA R2,=C'OPENIBM ' SAVE FOR LATER COMPARE @VA04250 00237000
  238. CK1OPEN CLC =C'OPEN ',PARM3 ALL OPEN PROBLEMS? @VA04250 00238000
  239. BNE CK1APAR NO @VA04250 00239000
  240. LA R2,=C'OPEN ' SAVE FOR LATER COMPARE @VA04250 00240000
  241. CK1APAR CLC =C'APARED ',PARM3 ALL APARED PROBLEMS? @VA04250 00241000
  242. BNE CK1MSG NO @VA04250 00242000
  243. LA R2,=C'APARED ' SAVE PARM FOR LATER COMPARE @VA04250 00243000
  244. CK1MSG CLC =C'MS ',PARM3 ALL MESSAGES? @VA04250 00244000
  245. BE CK1MVMSG YES @VA04250 00245000
  246. CLC =C'MSG ',PARM3 ALL MESSAGES? @VA04250 00246000
  247. BNE CK1INCO NO @VA04250 00247000
  248. CK1MVMSG LA R4,=C'MS ' SAVE PARM FOR LATER COMPARE @VA04250 00248000
  249. CK1INCO CLC =C'IN ',PARM3 INCORRECT OUTS? @VA04250 00249000
  250. BE CK1MVINC YES @VA04250 00250000
  251. CLC =C'INCORR ',PARM3 INCORRECT OUTS? @VA04250 00251000
  252. BNE CK1INF NO @VA04250 00252000
  253. CK1MVINC LA R4,=C'INCORR ' SAVE PARM FOR LATER COMPARE @VA04250 00253000
  254. CK1INF CLC =C'INF ',PARM3 INFORMATION TYPE PROBLEMS? @VA04250 00254000
  255. BNE CK1WAIT NO @VA04250 00255000
  256. LA R4,=C'INF ' SAVE DATA FOR LATER COMPARE @VA04250 00256000
  257. CK1WAIT CLC =C'WAIT ',PARM3 ALL WAIT TYPE? @VA04250 00257000
  258. BE CK1MVWS YES @VA04250 00258000
  259. CLC =C'WS ',PARM3 PSR CODE FOR WAIT STATE? @VA04250 00259000
  260. BNE CK1LOOP NO @VA04250 00260000
  261. CK1MVWS LA R4,=C'WAIT ' SAVE PARM FOR LATER COMPARE @VA04250 00261000
  262. CK1LOOP CLC =C'LOOP ',PARM3 ALL LOOPS? @VA04250 00262000
  263. BE CK1MVLP YES @VA04250 00263000
  264. CLC =C'LP ',PARM3 PSR CODE FOR LOOP? @VA04250 00264000
  265. BNE CK1PERF NO @VA04250 00265000
  266. CK1MVLP LA R4,=C'LOOP ' SAVE PARM FOR LATER COMPARE @VA04250 00266000
  267. CK1PERF CLC =C'PERFORM ',PARM3 PERFORMANCE PROBLEMS? @VA04250 00267000
  268. BE CK1MVPR YES @VA04250 00268000
  269. CLC =C'PR ',PARM3 PSR CODE FOR PERFORMANCE? @VA04250 00269000
  270. BNE CK1DOC NO @VA04250 00270000
  271. CK1MVPR LA R4,=C'PERFORM ' SAVE PARM FOR LATER COMPARE @VA04250 00271000
  272. CK1DOC CLC =C'DOC ',PARM3 DOCUMENTATION PROBLEMS? @VA04250 00272000
  273. BE CK1MVDD YES @VA04250 00273000
  274. CLC =C'DD ',PARM3 PSR CODE FOR DOCUMENTATION? @VA04250 00274000
  275. BNE CK1CLOSE NO @VA04250 00275000
  276. CK1MVDD LA R4,=C'DOC ' SAVE PARM FOR LATER COMPARE @VA04250 00276000
  277. CK1CLOSE CLC =C'CLOSED ',PARM3 ALL CLOSED PROBLEMS? @VA04250 00277000
  278. BNE CK1NEED NO @VA04250 00278000
  279. LA R2,=C'CLOSED ' SAVE PARM FOR LATER COMPARE @VA04250 00279000
  280. CK1NEED CLC =C'NEEDINFO',PARM3 ALL PROBLEMS WAITING ON INFO?@VA04250 00280000
  281. BNE CK1PTF1 NO @VA04250 00281000
  282. LA R2,=C'NEEDINFO' SAVE PARM FOR LATER COMPARES @VA04250 00282000
  283. CK1PTF1 CLC =C'PTFON ',PARM3 ALL PROBS IN PTF APPLIED STAT@VA04250 00283000
  284. BNE CK1PTF2 NO @VA04250 00284000
  285. LA R2,=C'PTFON ' SAVE PARM FOR LATER COMPARE @VA04250 00285000
  286. CK1PTF2 CLC =C'PTFRCVD ',PARM3 ALL PROBLEMS WITH PTFS AVAILA@VA04250 00286000
  287. BNE CK2CONT NO @VA04250 00287000
  288. LA R2,=C'PTFRCVD ' SAVE PARM FOR COMPARES @VA04250 00288000
  289. CK2CONT LTR R2,R2 ANY VALID STAT SEARCH? @VA04250 00289000
  290. BNZ CK2CONT2 YES @VA04250 00290000
  291. LTR R4,R4 ANY VALID SYMPTOM NAME? @VA04250 00291000
  292. BNZ CK2CONT2 YES @VA04250 00292000
  293. MVC M601PARM,PARM2 MOVE PAD PARM TO MESSAGE @VA04250 00293000
  294. DOMSG601 WRTERM MSG601,MSG601L @VA04250 00294000
  295. B RETCOD4 TAKE ERROR EXIT @VA04250 00295000
  296. CK2CONT2 LA R9,ONE START WITH THE FIRST RECORD @VA04250 00296000
  297. CKREAD FSREAD 'SYMPTOM SUMMARY A1',BUFFER=INPUT,RECNO=(R9),BSIZE=80 00297000
  298. C R15,EOF EOF? @VA04250 00298000
  299. BNE CKRDER NO @VA04250 00299000
  300. CLI CKSW,ON ANYTHING BEEN PUT OUT? @VA04250 00300000
  301. BE CKFSCLS YES, GO CLOSE FILE @VA04250 00301000
  302. ST R15,WK SAVE RETURN CODE @VA04250 00302000
  303. WRTERM 'NO MATCHES FOUND' @VA04250 00303000
  304. CKFSCLS FSCLOSE 'SYMPTOM SUMMARY A1' @VA04250 00304000
  305. B NORMEXIT GO TAKE NORMAL EXIT @VA04250 00305000
  306. CKRDER LTR R15,R15 ERROR? @VA04250 00306000
  307. BNZ RDERR REALLY WAS AN ERROR @VA04250 00307000
  308. LTR R2,R2 ANY STAT COMPARE? @VA04250 00308000
  309. BZ CKFAILCK NO GO DO FAILURE COMPARE @VA04250 00309000
  310. CLC 0(FIRST4,R2),SYMSTAT THIS PROBLEM MATCH REQUEST?@VA04250 00310000
  311. BE CKSTATCK THIS IS A CANDIDATE @VA04250 00311000
  312. CLC 0(FIRST4,R2),SYMLFCT CHECK LAST FUNCTION FIELD @VA04250 00312000
  313. BE CKSTATCK THIS IS A CANDIDATE, CHECK MORE @VA04250 00313000
  314. CKINCR SR R1,R1 SET FOR IC INSTRUCTION @VA04250 00314000
  315. IC R1,SYMCCNT GET NUMBER OF CARDS IN THIS ONE @VA04250 00315000
  316. LA R9,ONE(R9,R1) GET NEXT RECORD NUMBER TO READ @VA04250 00316000
  317. B CKREAD GO READ NEXT CONTROL RECORD @VA04250 00317000
  318. CKSTATCK CLC =C'OPEN',0(R2) LOOKING AT OPEN PROBLEMS? @VA04250 00318000
  319. BNE CKFAILCK NO @VA04250 00319000
  320. CLC TYPEDISP(LAST4,R2),BLANKS ALL OPEN PROBLEMS? @VA04250 00320000
  321. BE CKFAILCK YES @VA04250 00321000
  322. CLC SYMSTAT,0(R2) CHECK PRECISELY FOR USER OR IBM @VA04250 00322000
  323. BNE CKINCR NOT WHAT WE ARE LOOKING FOR @VA04250 00323000
  324. CKFAILCK LTR R4,R4 ANY FAILURE COMPARE? @VA04250 00324000
  325. BNZ CKFAIL2 YES, DO IT @VA04250 00325000
  326. LTR R2,R2 DID WE ALREADY GET A HIT? @VA04250 00326000
  327. BZ CKINCR NO @VA04250 00327000
  328. BAL R8,CKWRT GO WRITE IT @VA04250 00328000
  329. B CKINCR NOW GO GET NEXT RECORD @VA04250 00329000
  330. CKFAIL2 CLC 0(FIRST3,R4),SYMFAIL THIS PROBLEM MATCH REQ? @VA04250 00330000
  331. BE CKFAIL3 YES @VA04250 00331000
  332. CLC =C'MS',SYMFAIL MESSAGE TYPE FAILURE? @VA04250 00332000
  333. BNE CKINCR NO @VA04250 00333000
  334. CKFAIL2A CLC 0(FIRST2,R4),SYMFAIL ARE WE LOOKING FOR MSGS? @VA04250 00334000
  335. BNE CKINCR NO @VA04250 00335000
  336. CKFAIL3 BAL R8,CKWRT GO PUT THIS STATUS RECORD OUT @VA04250 00336000
  337. B CKINCR CONTINUE @VA04250 00337000
  338. EJECT 00338000
  339. *************************************************************** 00339000
  340. * THIS CCW WILL ERASE THE SCREEN IF A 3270 TYPE TERMINAL 00340000
  341. * THE FUNCTION WILL BE IGNORED IF THE TERMINAL IS NOT A 3270 00341000
  342. *************************************************************** 00342000
  343. DS 0D @VA04250 00343000
  344. ERASECCW DC X'19',X'000000',X'20',X'FF',H'1' @VA04250 00344000
  345. CKWRT CLI CKSW,ON HAVE WE ALREADY WRITTEN THE HDR? @VA04250 00345000
  346. BE CKNOHEAD YES @VA04250 00346000
  347. MVI CKSW,ON DON'T DO THIS AGAIN @VA04250 00347000
  348. LA R6,ERASECCW THIS WILL HAVE NO EFFECT IF WE @VA04250 00348000
  349. LA R7,CONSADDR ARE NOT ON A 3270 @VA04250 00349000
  350. *************************************************************** 00350000
  351. * CP DIAGNOSE INSTRUCTION FOR CONSOLE SCREEN ERASE 00351000
  352. *************************************************************** 00352000
  353. DC X'83670058' 3270 CONSOLE FUNCTION @VA04250 00353000
  354. SPACE 1 00354000
  355. LA R6,HEAD1 HEADER FOR OUTPUT @VA04250 00355000
  356. LA R7,L'HEAD1 LENGTH OF HEADER FOR OUTPUT @VA04250 00356000
  357. WRTERM (R6),(R7) DISPLAY ON TERMINAL @VA04250 00357000
  358. CKNOHEAD LA R6,INPUT INPUT CONTAINS A SUMMARY HEADER @VA04250 00358000
  359. LA R7,OUTLEN1 LENGTH OF OUTPUT @VA04250 00359000
  360. WRTERM (R6),(R7) DISPLAY ON TERMINAL @VA04250 00360000
  361. BR R8 RETURN @VA04250 00361000
  362. EJECT 00362000
  363. *************************************************************** 00363000
  364. * THIS ROUTINE CREATES A STATALL LOCAL FILE FOR THE USER 00364000
  365. *************************************************************** 00365000
  366. STALLOC MVI LALLSW,ALL SET SWITCH FOR STATUS ALL @VA04250 00366000
  367. FSERASE 'STATALL LOCAL A1' @VA04250 00367000
  368. LA R2,HEAD1 POINT TO HEADER RECORD FOR OUTPUT@VA04250 00368000
  369. BAL R8,FSWRITE GO PUT HEADER IN FILE @VA04250 00369000
  370. B DORD GO READ FILE @VA04250 00370000
  371. FSWRITE FSWRITE 'STATALL LOCAL A1',BUFFER=(R2),BSIZE=80 @VA04250 00371000
  372. LTR R15,R15 GOOD WRITE? @VA04250 00372000
  373. BNZ WRTERR NO @VA04250 00373000
  374. BR R8 RETURN TO CALLER @VA04250 00374000
  375. WRTERR CVD R15,WK CONVERT RETURN CODE TO DECIMAL @VA04250 00375000
  376. UNPK WRCODE,WK+SIX(RCSIZE) UNPACK INTO MESSAGE @VA04250 00376000
  377. OI WCODEEND,NUMERIC MAKE IT READABLE @VA04250 00377000
  378. LA R7,MSGWRTER 'DMMSTA200S ERROR 'NNN' WRITING..@VA04250 00378000
  379. LA R6,WRLNTH LENGTH OF ERROR MESSAGE @VA04250 00379000
  380. BAL R8,WRTERM GO DISPLAY MESSAGE ON TERMINAL @VA04250 00380000
  381. B RETCOD8 TAKE ERROR EXIT @VA04250 00381000
  382. EJECT 00382000
  383. *************************************************************** 00383000
  384. * PROMPT FOR PROBLEM NUMBER OR ALL 00384000
  385. *************************************************************** 00385000
  386. SPNUM LA R7,MSGPNUM 'ENTER PROBLEM NUMBER' @VA04250 00386000
  387. LA R6,L'MSGPNUM LENGTH OF PROMPT MESSAGE @VA04250 00387000
  388. BAL R8,WRTERM GO DISPLAY PROMPT ON TERMINAL @VA04250 00388000
  389. BAL R8,RDTERM GO READ USER RESPONSE @VA04250 00389000
  390. SPNUM2 LTR R0,R0 DID USER ENTER ANYTHING? @VA04250 00390000
  391. BZ SPNUM NO, GO REPROMPT @VA04250 00391000
  392. LA R2,L'XXXXX PROBLEM NUMBERS ARE 5 DIGITS @VA04250 00392000
  393. LR R3,R0 GET LENGTH @VA04250 00393000
  394. CR R3,R2 MORE THAN 5 ENTERED? @VA04250 00394000
  395. BNH SPNUM4 NO @VA04250 00395000
  396. LA R4,0(R3,R1) POINT PAST END OF INPUT @VA04250 00396000
  397. BCTR R4,0 POINT TO LAST BYTE @VA04250 00397000
  398. SPNUMLP CLI 0(R4),BLANK BLANK AT END? @VA04250 00398000
  399. BNE SPNXT NO, FOUND END OF VALID DATA @VA04250 00399000
  400. BCTR R4,0 POINT TO PREVIOUS BYTE OF INPUT @VA04250 00400000
  401. BCT R3,SPNUMLP CONTINUE CHECKING @VA04250 00401000
  402. B SPNUM USER ENTERED ALL BLANKS @VA04250 00402000
  403. SPNXT CR R3,R2 5 OR LESS NOW? @VA04250 00403000
  404. BNH SPNUM4 NO, WE'RE OK SO FAR @VA04250 00404000
  405. LA R7,MSGMAX 'MAX NUMBER MAY BE 5 DIGITS' @VA04250 00405000
  406. LA R6,L'MSGMAX LENGTH OF MESSAGE @VA04250 00406000
  407. BAL R8,WRTERM GO TELL USER @VA04250 00407000
  408. B SPNUM GO REPROMPT FOR NUMBER @VA04250 00408000
  409. SPNUM4 SR R4,R4 WE'LL KEEP COUNT HERE @VA04250 00409000
  410. LR R5,R1 GET DATA POINTER @VA04250 00410000
  411. CLI 0(R5),BLANK USER MAY HAVE ENTERED BLANKS @VA04250 00411000
  412. BE SPNUM WHAT'S THIS? @VA04250 00412000
  413. CHKLOOP TM 0(R5),NUMERIC CHECK FOR NUMERIC INPUT @VA04250 00413000
  414. BNO STEND NOT NUMERIC @VA04250 00414000
  415. LA R5,ONE(R5) POINT TO NEXT INPUT BYTE @VA04250 00415000
  416. LA R4,ONE(R4) COUNT THE NUMBER OF INPUT BYTES @VA04250 00416000
  417. BCT R3,CHKLOOP DO THIS FOR LENGTH OF INPUT @VA04250 00417000
  418. STEND CLI 0(R5),BLANK TRAILING BLANK? @VA04250 00418000
  419. BNE SPNUM NO, INVALID INPUT @VA04250 00419000
  420. LTR R4,R4 ANYTHING GOOD HERE? @VA04250 00420000
  421. BZ SPNUM NO, GO PROMPT AGAIN @VA04250 00421000
  422. LA R3,XXXXX POINT TO WHERE PNUM WILL GO @VA04250 00422000
  423. LA R2,L'XXXXX MAX OF 5 BYTE PROBLEM NUMBER @VA04250 00423000
  424. SR R2,R4 GET NUMBER OF BYTES WE'LL SUPPLY @VA04250 00424000
  425. LA R3,0(R3,R2) CALCULATE NEW OUTPUT POINTER @VA04250 00425000
  426. BCTR R4,0 FOR EXECUTE @VA04250 00426000
  427. EX R4,PNMVC MOVE IN USER ENTERED NUMBER @VA04250 00427000
  428. CLC XXXXX,=C'00000' ALL ASKED FOR? @VA04250 00428000
  429. BNE DORD GO FIND THE REQSTD STATUS HEADER @VA04250 00429000
  430. SALL B STALLOC GO PROCESS STAT ALL @VA04250 00430000
  431. DORD LA R9,ONE START WITH RECORD 1 @VA04250 00431000
  432. SR R10,R10 @VA04250 00432000
  433. *************************************************************** 00433000
  434. * GET NEXT SYMPTOM SUMMARY CONTROL RECORD 00434000
  435. *************************************************************** 00435000
  436. FSREAD FSREAD 'SYMPTOM SUMMARY A1',RECNO=(R9),BUFFER=INPUT,BSIZE=80 00436000
  437. LTR R15,R15 ERROR ON READ? @VA04250 00437000
  438. BNZ RDERR YES @VA04250 00438000
  439. CLI LALLSW,ALL ALL ASKED FOR? @VA04250 00439000
  440. BNE DOCMPR NO WE MUST EXAMINE IT CLOSELY @VA04250 00440000
  441. LA R2,INPUT POINT TO STATUS HEADER WE GOT @VA04250 00441000
  442. IC R10,SYMCCNT GET THE NO. OF KEYWORK CARDS @VA08802 00442200
  443. MVI SYMCCNT,X'40' BLANK THE COUNT FIELD FOR PRINT @VA08802 00442400
  444. BAL R8,FSWRITE ADD TO 'STATALL LOCAL A1' @VA08802 00442600
  445. LA R9,ONE(R9,R10) RECORD NUMBER OF NEXT CTL RCD @VA04250 00444000
  446. B FSREAD GO READ IN THE CONTROL RECORD @VA04250 00445000
  447. DOCMPR CLC XXXXX,INPUT HAVE WE FOUND THE PROBLEM NUMBER?@VA04250 00446000
  448. BE SFOUND YES @VA04250 00447000
  449. IC R10,SYMCCNT GET NUMBER OF KEYWORD CARDS. @VA04250 00448000
  450. LA R9,ONE(R9,R10) GET NEXT STATUS RCD NUMBER @VA04250 00449000
  451. B FSREAD CONTINUE @VA04250 00450000
  452. PNMVC MVC 0(0,R3),0(R1) EXECUTED MOVE INSTRUCTION @VA04250 00451000
  453. SFOUND LA R7,HEAD1 PUT OUT HEADER ON TERMINAL. @VA04250 00452000
  454. LA R6,CARDLEN LENGTH OF HEADER @VA04250 00453000
  455. BAL R8,WRTERM GO DISPLAY HEADER ON TERMINAL @VA04250 00454000
  456. LA R7,INPUT POINT TO PROBLEM CONTROL RECORD @VA04250 00455000
  457. LA R6,CARDLEN LENGTH OF RECORD @VA04250 00456000
  458. BAL R8,WRTERM PUT OUT STATUS OF PROBLEM. @VA04250 00457000
  459. B NORMEXIT ALL DONE @VA04250 00458000
  460. EJECT 00459000
  461. *************************************************************** 00460000
  462. * CLEANUP AND ERROR ROUTINES. 00461000
  463. *************************************************************** 00462000
  464. RDERR ST R15,WK SAVE RETURN CODE @VA04250 00463000
  465. CLI LALLSW,ALL STAT ALL? @VA04250 00464000
  466. BNE RDERR2 NO @VA04250 00465000
  467. FSCLOSE 'STATALL LOCAL A1' @VA04250 00466000
  468. RDERR2 FSCLOSE 'SYMPTOM SUMMARY A1' @VA04250 00467000
  469. CLC EOF,WK EOF FROM FSREAD? @VA04250 00468000
  470. BNE RDERR4 NO @VA04250 00469000
  471. CLI LALLSW,ALL STAT ALL? @VA04250 00470000
  472. BE RDERR3 YES,THIS IS NORMAL @VA04250 00471000
  473. LA R7,MSGNTFND 'PROBLEM NOT FOUND IN SUMMARY' @VA04250 00472000
  474. LA R6,L'MSGNTFND LENGTH OF ERROR MESSAGE @VA04250 00473000
  475. BAL R8,WRTERM PUT ERROR MESSAGE ON TERMINAL @VA04250 00474000
  476. B RETCOD4 TAKE RETURN CODE 4 EXIT @VA04250 00475000
  477. RDERR3 LA R7,MSGGSTAT 'STATALL LOCAL A1 FILE CREATED' @VA04250 00476000
  478. LA R6,L'MSGGSTAT LENGTH OF INFORMATION MESSAGE @VA04250 00477000
  479. BAL R8,WRTERM GO DISPLAY MESSAGE ON TERMINAL @VA04250 00478000
  480. B NORMEXIT TAKE NORMAL EXIT @VA04250 00479000
  481. RDERR4 L R2,WK GET RETURN CODE @VA04250 00480000
  482. CVD R2,WK CONVERT IT TO DECIMAL @VA04250 00481000
  483. UNPK RDCODE,WK+SIX(RCSIZE) UNPACK IT INTO MESSAGE @VA04250 00482000
  484. OI RCODEEND,NUMERIC MAKE IT PRINTABLE @VA04250 00483000
  485. LA R7,MSGRDERR 'DMMSTA100S ERROR 'NNN' READING..@VA04250 00484000
  486. LA R6,RDLNTH LENGTH OF MESSAGE @VA04250 00485000
  487. BAL R8,WRTERM DISPLAY MESSAGE ON TERMINAL @VA04250 00486000
  488. B RETCOD8 TAKE ERROR EXIT @VA04250 00487000
  489. *************************************************************** 00488000
  490. * TERMINAL WRITE 00489000
  491. *************************************************************** 00490000
  492. WRTERM WRTERM (R7),(R6) WRITE ON TERMINAL @VA04250 00491000
  493. BR R8 RETURN TO CALLER @VA04250 00492000
  494. *************************************************************** 00493000
  495. * TERMINAL READ ROUTINE 00494000
  496. *************************************************************** 00495000
  497. RDTERM RDTERM INPUT READ USER RESPONSE @VA04250 00496000
  498. LA R1,INPUT POINT TO DATA @VA04250 00497000
  499. LTR R0,R0 ANYTHING ENTERED? @VA04250 00498000
  500. BZ RDEXIT NO @VA04250 00499000
  501. LA R2,SIXTEEN CHECK SOME OF THE INPUT @VA04250 00500000
  502. RDLOOP CLI 0(R1),BLANK LEADING BLANK? @VA04250 00501000
  503. BNE RDEXIT NO @VA04250 00502000
  504. LA R1,ONE(R1) POINT TO NEXT BYTE @VA04250 00503000
  505. BCTR R0,0 DECREMENT COUNT @VA04250 00504000
  506. LTR R0,R0 ANY MORE INPUT? @VA04250 00505000
  507. BZ RDEXIT NO @VA04250 00506000
  508. BCT R2,RDLOOP CHECK SOME MORE @VA04250 00507000
  509. RDEXIT CLC HX,0(R1) USER TRYING TO QUIT? @VA04250 00508000
  510. BE RETCOD4 YES @VA04250 00509000
  511. BR R8 RETURN TO CALLER @VA04250 00510000
  512. EJECT 00511000
  513. *************************************************************** 00512000
  514. * EXIT ROUTINES 00513000
  515. *************************************************************** 00514000
  516. NORMEXIT L R13,8(R13) RESTORE CALLER'S SAVEAREA POINTER@VA04250 00515000
  517. LM R14,R12,12(R13) RESTORE CALLER'S REGISTERS @VA04250 00516000
  518. SR R15,R15 RETURN CODE ZERO @VA04250 00517000
  519. BR R14 RETURN TO CALLER @VA04250 00518000
  520. RETCOD8 L R13,8(R13) RESTORE CALLER'S SAVEAREA POINTER@VA04250 00519000
  521. LM R14,R12,12(R13) RESTORE CALLER'S REGISTERS @VA04250 00520000
  522. LA R15,8 RETURN CODE 8 (ERROR) @VA04250 00521000
  523. BR R14 RETURN TO CALLER @VA04250 00522000
  524. RETCOD4 L R13,8(R13) RESTORE CALLER'S SAVEAREA POINTER@VA04250 00523000
  525. LM R14,R12,12(R13) RESTORE CALLER'S REGISTERS @VA04250 00524000
  526. LA R15,4 RETURN CODE 4 (PROBLEM NOT FOUND)@VA04250 00525000
  527. BR R14 RETURN TO CALLER @VA04250 00526000
  528. EJECT 00527000
  529. *************************************************************** 00528000
  530. * SAVEAREAS, CONSTANTS, AND EQUATES 00529000
  531. *************************************************************** 00530000
  532. SAVEAREA DS 18F OUR SAVEAREA @VA04250 00531000
  533. HX DC C'HX' HALT EXECUTION TEST @VA04250 00532000
  534. BLANKS DC C' ' BLANKS AS ADVERTIZED @VA04250 00533000
  535. NUMERIC EQU X'F0' USED TO TEST DATA FOR NUMERICS @VA04250 00534000
  536. FIRST2 EQU 2 PARTIAL COMPARE LENGTH OF 2 @VA04250 00535000
  537. FIRST3 EQU 3 PARTIAL COMPARE LENGTH OF 3 @VA04250 00536000
  538. FIRST4 EQU 4 PARTIAL COMPARE LENGTH OF 4 @VA04250 00537000
  539. LAST4 EQU 4 PARTIAL COMPARE LENGTH OF 4 @VA04250 00538000
  540. EOF DC F'12' EOF RETURN CODE @VA04250 00539000
  541. CONSADDR EQU 9 CONSOLE ADDRESS FOR SCREEN ERASE @VA04250 00540000
  542. CARDLEN EQU 80 LENGTH OF DATA UNIT @VA04250 00541000
  543. OUTLEN1 EQU 79 LENGTH OF OUTPUT @VA04250 00542000
  544. ONE EQU 1 FOR INCREMENT AND DECREMENT OF 1 @VA04250 00543000
  545. RCSIZE EQU 2 SIZE OF USABLE RETURN CODE @VA04250 00544000
  546. TYPEDISP EQU 4 DISPLACEMENT TO FIND OPEN TYPE @VA04250 00545000
  547. SIX EQU 6 FOR MVC LENGTH OR DISP ETC. @VA04250 00546000
  548. EIGHT EQU 8 LENGTH OF EACH PASSED PARM @VA04250 00547000
  549. SIXTEEN EQU 16 LENGTH OF INPUT TO BE CHECKED @VA04250 00548000
  550. SPACE 1 00549000
  551. *************************************************************** 00550000
  552. PRBXXXXX DS 0CL8 PROBLEM NUMBER IN FORM 'PRBXXXXX'@VA04250 00551000
  553. PRB DC C'PRB' PRB (PROBLEM) @VA04250 00552000
  554. XXXXX DC C'00000' DEFAULT PROBLEM NUMBER OF 00000 @VA04250 00553000
  555. *************************************************************** 00554000
  556. SPACE 1 00555000
  557. WK DS D DOUBLE WORD WORK AREA @VA04250 00556000
  558. INPUT DS CL132 INPUT AREA @VA04250 00557000
  559. SPACE 1 00558000
  560. *************************************************************** 00559000
  561. CKSW DC X'00' STATALL OUTPUT INDICATOR @VA04250 00560000
  562. ON EQU X'01' SWITCH IS ON (DATA HAS GONE OUT) @VA04250 00561000
  563. *************************************************************** 00562000
  564. SPACE 1 00563000
  565. *************************************************************** 00564000
  566. MSGPNUM DC C'ENTER PROBLEM NUMBER. (OR 00000 FOR ALL)' @VA04250 00565000
  567. MSGMAX DC C'MAXIMUM PROBLEM NUMBER IS 5 DIGITS. --REENTER--' 00566000
  568. MSGGSTAT DC C'STATALL LOCAL A1 FILE CREATED' @VA04250 00567000
  569. MSGNTFND DC C'PROBLEM NOT FOUND IN SYMPTOM SUMMARY FILE' @VA04250 00568000
  570. MSGRDERR DC C'DMMSTA100S ERROR ''' @VA04250 00569000
  571. RDCODE DS CL3 RETURN CODE FROM FSREAD @VA04250 00570000
  572. RCODEEND EQU RDCODE+2 LAST BYTE OF UNPACKED RETURN CODE@VA04250 00571000
  573. DC C''' READING FILE ''SYMPTOM SUMMARY A1''' @VA04250 00572000
  574. RDLNTH EQU *-MSGRDERR LENGTH OF ERROR MESSAGE @VA04250 00573000
  575. MSGWRTER DC C'DMMSTA200S ERROR ''' @VA04250 00574000
  576. WRCODE DS CL3 FSWRITE RETURN CODE @VA04250 00575000
  577. WCODEEND EQU WRCODE+2 LAST BYTE OF UNPACKED RETURN CODE@VA04250 00576000
  578. DC C''' WRITING FILE ''STATALL LOCAL A1''' @VA04250 00577000
  579. WRLNTH EQU *-MSGWRTER LENGTH OF ERROR MESSAGE @VA04250 00578000
  580. MSG601 DC C'DMMSTA601S OPERAND ''' @VA04250 00579000
  581. M601PARM DS CL8 BAD PARM @VA04250 00580000
  582. DC C''' NOT RECOGNIZED' @VA04250 00581000
  583. MSG601L EQU *-MSG601 LENGTH OF MESSAGE @VA04250 00582000
  584. *************************************************************** 00583000
  585. SPACE 1 00584000
  586. *************************************************************** 00585000
  587. LALLSW DC X'00' ALL STATUS IS NOT SPECIFIED @VA04250 00586000
  588. ALL EQU X'01' INDICATES STAT ALL SPECIFIED @VA04250 00587000
  589. *************************************************************** 00588000
  590. SPACE 1 00589000
  591. HEAD1 DC C'PROB CREATED LAST LASTFNCT STATUS PTF/DUP/APAR X00590000
  592. PLC SEV FAILURE ENVIR' 00591000
  593. PATCH DC 50F'0' PATCH AREA @VA04250 00592000
  594. SPACE 1 00593000
  595. *************************************************************** 00594000
  596. * DSECT OF PASSED PARMS 00595000
  597. *************************************************************** 00596000
  598. PARMSECT DSECT @VA04250 00597000
  599. PARMPROG DS CL8 NAME OF PROGRAM INVOKED @VA04250 00598000
  600. PARM1 DS CL8 'ALL' OR PROBLEM NUMBER @VA04250 00599000
  601. PARM2 DS CL8 FIRST SEARCH ARGUMENT @VA04250 00600000
  602. PARM3 DS CL8 SECOND SEARCH ARGUMENT @VA04250 00601000
  603. FENCE EQU X'FF' INDICATES END OF PARMS @VA04250 00602000
  604. BLANK EQU X'40' BLANK @VA04250 00603000
  605. *************************************************************** 00604000
  606. SPACE 1 00605000
  607. COPY SYMSECT @VA04250 00606000
  608. COPY INTSECT @VA04250 00607000
  609. REGEQU @VA04250 00608000
  610. END 00609000