API tools faq
paste
Guest User

Untitled

a guest
Jul 15th, 2018
267
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.83 KB | None | 0 0
raw download clone embed print report
  1. TITLE 'PDYNV010 - REGISTER EQUATES' 00440000
  2. R0 EQU 0 * 00450000
  3. R1 EQU 1 * 00460000
  4. R2 EQU 2 * 00470000
  5. R3 EQU 3 * 00480000
  6. R4 EQU 4 * 00490000
  7. R5 EQU 5 * 00500000
  8. R6 EQU 6 * 00510000
  9. R7 EQU 7 * 00520000
  10. R8 EQU 8 * 00530000
  11. R9 EQU 9 * 00540000
  12. R10 EQU 10 * 00550000
  13. R11 EQU 11 * 00560000
  14. R12 EQU 12 * 00570000
  15. R13 EQU 13 * 00580000
  16. R14 EQU 14 * 00590000
  17. R15 EQU 15 * 00600000
  18. TITLE 'PDYNV010 - DCB DSECT' 00760000
  19. DCBD DSORG=PS 00760200
  20. TITLE 'PDYNV010 - PROGRAM' 00761001
  21. PDYNV010 CSECT 00770000
  22. STM R14,R12,12(R13) 00780000
  23. LR R3,R15 00790000
  24. USING PDYNV010,R3 00820000
  25. ST R13,SAVEAREA+4 00830000
  26. LR R2,R13 00840000
  27. LA R13,SAVEAREA 00850000
  28. ST R13,8(R2) 00860000
  29. OPEN (OLDHIST,INPUT,STATHIST) 01250000
  30. LTR R15,R15 01260000
  31. BNZ NOOPEN 01270000
  32. LA R4,OLDHIST 01280000
  33. USING IHADCB,R4 01290000
  34. TM DCBOFLGS,DCBBIT3 01300000
  35. BZ NOOPEN 01310000
  36. DROP R4 01320000
  37. SPACE 2 01321003
  38. TIME DEC,STORADD,LINKAGE=SYSTEM,DATETYPE=YYYYDDD 01322003
  39. SPACE 2 01323003
  40. MVO STOR1,STORADD+8(4) 01326003
  41. OI STOR1+3,X'0F' YYYYDDDF 01327003
  42. MVC CDATE,STOR1 01328003
  43. SPACE 2 01329003
  44. CP CDATE+2(2),=PL2'46' 01330201
  45. BL SUBYEAR 01330300
  46. SP CDATE+2(2),=PL2'45' 01330401
  47. B GET 01330500
  48. SUBYEAR DS 0H 01330600
  49. SP CDATE+1(3),=PL3'1000' 01330701
  50. AP CDATE+2(2),=PL2'365' 01330801
  51. SP CDATE+2(2),=PL2'45' 01330901
  52. GET DS 0H 01332000
  53. GET OLDHIST,IOHIST 02890000
  54. CP DAT,CDATE 03781600
  55. BNH GET 03781700
  56. PUT RPL=HISTRPL 03791000
  57. LTR R15,R15 03791100
  58. BNZ NOPUTH 03791200
  59. B GET 03791300
  60. CLOSE DS 0H 03791500
  61. CLOSE (OLDHIST,,STATHIST) 03791600
  62. GOBACK DS 0H 03800000
  63. LR R15,R7 03810000
  64. L R13,SAVEAREA+4 03820000
  65. RETURN (14,12),RC=(15) 03830000
  66. NOOPEN DS 0H 03871100
  67. LA R7,24 03872000
  68. B GOBACK 03873000
  69. NOPUTH DS 0H 03880000
  70. LA R7,32 03890000
  71. B CLOSE 03900000
  72. TITLE 'PDYNV010 - DATA AREAS' 04180000
  73. STORADD DS 2D HHMMSSTH XXXXXXXX 0YYYYDDD 00000000 04181002
  74. STOR1 DS F YYYYDDDF 04182002
  75. SPACE 2 04183002
  76. ARG DS F 04190000
  77. CDATE DS F 04200000
  78. IOHIST DS 0CL25 04381000
  79. DAT DS F 04384000
  80. TOD DS F
  81. MEM DS CL8
  82. FLG DS CL1
  83. JOB DS CL8
  84. SAVEAREA DC 18F'0'
  85. TITLE 'PDYNV010 - ACBS, RPLS, DCBS'
  86. STATHIST ACB MACRF=(ADR,OUT,RST),DDNAME=STATHIST
  87. HISTRPL RPL ACB=STATHIST,AREA=IOHIST,AREALEN=25, X04940000
  88. OPTCD=(ADR),RECLEN=25,ARG=ARG 04950000
  89. OLDHIST DCB DSORG=PS,MACRF=(GM),RECFM=FB,LRECL=25, X08370000
  90. DDNAME=OLDHIST,EODAD=CLOSE 08380000
  91. LTORG 08390000
  92. END
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!