Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.tarl +++| IDENT TARL
00002 M00S00002.tarl +++| ENTRY RERUN
00003 M00S00003.tarl +++| ENTRY RGET
00004 M00S00004.tarl +++| ENTRY RPUT
00005 M00S00005.tarl +++| ENTRY RSECURE
00006 M00S00006.tarl +++| ENTRY SECURE
00007 M00S00007.tarl +++| ENTRY SRERUN
00008 M00S00008.tarl +++| ENTRY TINVOKE
00009 M00S00009.tarl +++| SYSCOM B1
00010 M00S00010.tarl +++| TITLE TARL - AUTOMATIC RECOVERY LIBRARY.
| Line S00011 Modification History |
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00011 M01S00011.ns2440 ---| COMMENT 80/06/20. TAF AUTOMATIC RECOVERY LIBRARY.
| Line S00001 Modification History |
M01 (Added by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00012 M01S00001.ns2440 +++|*COMMENT TARL - TAF AUTOMATIC RECOVERY LIBRARY.
| Line S00012 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00013 M01S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00014 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00015 M00S00013.tarl +++| TARL SPACE 4,10
00016 M00S00014.tarl +++|***** TARL - TAF AUTOMATIC RECOVERY LIBRARY.
00017 M00S00015.tarl +++|*
00018 M00S00016.tarl +++|* A. E. SCHIPPERS. 80/06/20.
00019 M00S00017.tarl +++|*
00020 M00S00018.tarl +++|* TARL IS A LIBRARY OF INTERFACE ROUTINES FOR COBOL5,
00021 M00S00019.tarl +++|* FORTRAN4 AND FORTRAN5 USER AND SYSTEM TASKS, MAKING
00022 M00S00020.tarl +++|* RECOVERY REQUESTS TO THE TRANSACTION FACILITY. DECK
00023 M00S00021.tarl +++|* *TARL* IS PLACED ON THREE DIFFERENT LIBRARIES CALLED
00024 M00S00022.tarl +++|* *TRANC5*, *TRANF4*, AND *TRANF5*. THE COBOL *ENTER*
00025 M00S00023.tarl +++|* VERB AND THE FORTRAN *CALL* STATEMENT INTERFACE USER AND
00026 M00S00024.tarl +++|* SYSTEM TASKS TO THE TRANSACTION FACILITY.
00027 M00S00025.tarl +++|*
00028 M00S00026.tarl +++|*IF DEF,TRANC5
00029 M00S00027.tarl +++|* NOTE THIS IS THE COBOL5 VERSION OF TARL.
00030 M00S00028.tarl +++|*ENDIF
00031 M00S00029.tarl +++|*IF DEF,TRANF4
00032 M00S00030.tarl +++|* NOTE THIS IS THE FORTRAN4 VERSION OF TARL.
00033 M00S00031.tarl +++|*ENDIF
00034 M00S00032.tarl +++|*IF DEF,TRANF5
00035 M00S00033.tarl +++|* NOTE THIS IS THE FORTRAN5 VERSION OF TARL.
00036 M00S00034.tarl +++|*ENDIF
00037 M00S00035.tarl +++|*
00038 M00S00036.tarl +++|*
00039 M00S00037.tarl +++|*** THE REQUESTS FOR *TAF* AUTOMATIC RECOVERY ARE AS FOLLOWS -
00040 M00S00038.tarl +++|*
00041 M00S00039.tarl +++|* TO RERUN A TRANSACTION COMMIT UNIT FOR A TERMINAL -
00042 M00S00040.tarl +++|* ENTER RERUN USING STATUS [,USERNAM].
00043 M00S00041.tarl +++|* CALL RERUN (STATUS[,USERNAM]).
00044 M00S00042.tarl +++|*
00045 M00S00043.tarl +++|* TO RETRIEVE USER DATA FROM THE *TAF* RECOVERY FILE -
00046 M00S00044.tarl +++|* ENTER RGET USING MESSAGE, INDEX, STATUS, MESSAGE-LENGTH
00047 M00S00045.tarl +++|* [, MESSAGE-UNITS].
00048 M00S00046.tarl +++|* CALL RGET (MESSAGE,INDEX,STATUS,MESSAGE-LENGTH
00049 M00S00047.tarl +++|* [,MESSAGE-UNITS]).
00050 M00S00048.tarl +++|*
00051 M00S00049.tarl +++|* TO PUT USER DATA ON THE TAF RECOVER FILE -
00052 M00S00050.tarl +++|* ENTER RPUT USING MESSAGE, INDEX, STATUS [,MESSAGE-LENGTH,
00053 M00S00051.tarl +++|* MESSAGE-UNITS].
00054 M00S00052.tarl +++|* CALL RPUT (MESSAGE,INDEX,STATUS,MESSAGE-LENGTH
00055 M00S00053.tarl +++|* [,MESSAGE-UNITS]).
00056 M00S00054.tarl +++|*
00057 M00S00055.tarl +++|* TO RETREVE THE SECURE MESSAGE FROM PERMANENT STORAGE -
00058 M00S00056.tarl +++|* ENTER RSECURE USING MESSAGE, STATUS, MESSAGE-LENGTH,
00059 M00S00057.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE.
00060 M00S00058.tarl +++|* CALL RSECURE (MESSAGE, STATUS, MESSAGE-LENGTH,
00061 M00S00059.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE).
00062 M00S00060.tarl +++|*
00063 M00S00061.tarl +++|* TO SAVE A SECURE MESSAGE -
00064 M00S00062.tarl +++|* ENTER SECURE USING MESSAGE, STATUS [, MESSAGE-LENGTH,
00065 M00S00063.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE].
00066 M00S00064.tarl +++|* CALL SECURE (MESSAGE, STATUS, MESSAGE-LENGTH
00067 M00S00065.tarl +++|* [, MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE]).
00068 M00S00066.tarl +++|*
00069 M00S00067.tarl +++|* TO ASSIGN A NEW TRANSACTION SEQUENCE NUMBER -
00070 M00S00068.tarl +++|* ENTER TINVOKE USING STATUS, NEW-SYS-ID [,OLD-SYS-ID].
00071 M00S00069.tarl +++|* CALL TINVOKE (STATUS, NEW-SYS-ID [, OLD-SYS-ID]).
00072 M00S00070.tarl +++|*
00073 M00S00071.tarl +++|*** THE PARAMETERS FOR *TAF* AUTOMATIC RECOVERY
00074 M00S00072.tarl +++|* REQUESTS ARE DEFINED BELOW.
00075 M00S00073.tarl +++|*
00076 M00S00074.tarl +++|* FORMAT-EFFECTOR PARAMETER TO INDICATE IF
00077 M00S00075.tarl +++|* FORMAT-EFFECTORS ARE USED.
00078 M00S00076.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00079 M00S00077.tarl +++|* NAME.
00080 M00S00078.tarl +++|* FORTRAN - INTERGER.
00081 M00S00079.tarl +++|*
00082 M00S00080.tarl +++|* INDEX INDEX FOR RECOVERY RECORD.
00083 M00S00081.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00084 M00S00082.tarl +++|* NAME.
00085 M00S00083.tarl +++|* FORTRAN - INTEGER.
00086 M00S00084.tarl +++|* VALUES ARE THE SAME AS FOR *NAM*.
00087 M00S00085.tarl +++|*
00088 M00S00086.tarl +++|* MESSAGE DATA ITEM CONTAINING THE RECOVERY MESSAGE.
00089 M00S00087.tarl +++|* COBOL - 01 LEVEL ITEM.
00090 M00S00088.tarl +++|* FORTRAN - HOLLERITH.
00091 M00S00089.tarl +++|*
00092 M00S00090.tarl +++|* MESSAGE-LENGTH LENGTH OF MESSAGE IN MESSAGE-UNITS.
00093 M00S00091.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00094 M00S00092.tarl +++|* NAME.
00095 M00S00093.tarl +++|* FORTRAN - INTEGER.
00096 M00S00094.tarl +++|*
00097 M00S00095.tarl +++|* MESSAGE-UNITS APPLICATION CHARACTER TYPE. THE TYPE IS
00098 M00S00096.tarl +++|* THE SAME AS FOR *NAM*.
00099 M00S00097.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00100 M00S00098.tarl +++|* NAME.
00101 M00S00099.tarl +++|* FORTRAN - INTEGER.
00102 M00S00100.tarl +++|*
00103 M00S00101.tarl +++|* NEW-SYS-ID NEW SYSTEM IDENTIFIER.
00104 M00S00102.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00105 M00S00103.tarl +++|* NAME.
00106 M00S00104.tarl +++|* FORTRAN - INTEGER.
00107 M00S00105.tarl +++|*
00108 M00S00106.tarl +++|* OLD-SYS-ID OLD SYSTEM IDENTIFIER.
00109 M00S00107.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00110 M00S00108.tarl +++|* NAME.
00111 M00S00109.tarl +++|* FORTRAN - INTEGER.
00112 M00S00110.tarl +++|*
00113 M00S00111.tarl +++|* STATUS STATUS OF REQUEST.
00114 M00S00112.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00115 M00S00113.tarl +++|* NAME.
00116 M00S00114.tarl +++|* FORTRAN - INTEGER.
00117 M00S00115.tarl +++|*
00118 M00S00116.tarl +++|* TRANSPARENT-MODE INDICATES IF TRANSPARENT MODE WAS USED.
00119 M00S00117.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA
00120 M00S00118.tarl +++|* NAME.
00121 M00S00119.tarl +++|* FORTRAN - INTEGER.
00122 M00S00120.tarl +++|* THE VALUE IS THE SAME AS FOR *NAM*.
00123 M00S00121.tarl +++|*
00124 M00S00122.tarl +++|* USERNAM 1-7 CHARACTER USER NAME.
00125 M00S00123.tarl +++|* COBOL - 01 LEVEL DATA ITEM.
00126 M00S00124.tarl +++|* FORTRAN - HOLLERITH.
00127 M00S00125.tarl +++|*
00128 M00S00126.tarl +++|
00129 M00S00127.tarl +++|* COMMON DECKS CALLED.
00130 M00S00128.tarl +++|
00131 M00S00129.tarl +++|*CALL COMKFLD
00132 M00S00130.tarl +++|*CALL COMKMAC
00133 M00S00131.tarl +++| LIST X
00134 M00S00132.tarl +++|
00135 M00S00133.tarl +++|* THE FOLLOWING COMMON DECKS USE *BSS* TO ASSIGN LOCATIONS
00136 M00S00134.tarl +++|* TO SYMBOLS. THE LIBRARY INTERFACE ROUTINES DO NOT WANT
00137 M00S00135.tarl +++|* TO ALLOCATE STORAGE FOR THESE SYMBOLS SO THE CURRENT ORIGIN
00138 M00S00136.tarl +++|* COUNTER IS SAVED BY *BEGN* AND IS RESTORED AFTER THE COMMON
00139 M00S00137.tarl +++|* DECKS ARE ASSEMBLED.
00140 M00S00138.tarl +++|
00141 M00S00139.tarl +++| BEGN BSS 0 SAVE CURRENT ORIGIN ADDRESS
00142 M00S00140.tarl +++|*CALL COMKRRD
00143 M00S00141.tarl +++|
00144 M00S00142.tarl +++| ORG BEGN RESTORE ORIGIN COUNTER
00145 M00S00143.tarl +++|
00146 M00S00144.tarl +++|* STORAGE FOR RECOVERY REQUEST PARAMETERS.
00147 M00S00145.tarl +++|
00148 M00S00146.tarl +++| PARML MAX TSEPL,TRGPL,TREPL,TTIPL MAXIMUM LENGTH
00149 M00S00147.tarl +++| PARM BSS PARML
00150 M00S00148.tarl +++| BSSZ 1 TERMINATE REQUEST WITH ZERO WORD
00151 M00S00149.tarl +++|
00152 M00S00150.tarl +++|
00153 M00S00151.tarl +++|* THE FOLOWING CODE IS CONDITIONALLY PUT ON THE
00154 M00S00152.tarl +++|* COMPILE FILE AT MODIFICATION TIME. THIS CODE
00155 M00S00153.tarl +++|* ALSO SETS VALUES FOR CONDITIONAL ASSEMBLY OF SOME
00156 M00S00154.tarl +++|* CODE LATER IN THIS DECK.
00157 M00S00155.tarl +++|
00158 M00S00156.tarl +++| .1 SET 0
00159 M00S00157.tarl +++|*IF DEF,TRANC5
00160 M00S00158.tarl +++| .1 SET .1+1
00161 M00S00159.tarl +++| .2 SET 0 COBOL5 VERSION
00162 M00S00160.tarl +++|*ENDIF
00163 M00S00161.tarl +++|*IF DEF,TRANF4
00164 M00S00162.tarl +++| .1 SET .1+1
00165 M00S00163.tarl +++| .2 SET 1 FORTRAN4 VERSION
00166 M00S00164.tarl +++|*ENDIF
00167 M00S00165.tarl +++|*IF DEF,TRANF5
00168 M00S00166.tarl +++| .1 SET .1+1
00169 M00S00167.tarl +++| .2 SET 2 FORTRAN5 VERSION
00170 M00S00168.tarl +++|*ENDIF
00171 M00S00169.tarl +++| .A IFNE .1,1
00172 M00S00170.tarl +++|
00173 M00S00171.tarl +++|* ONE AND ONLY ONE OF THE TLIBXX LIBRARIES MUST BE
00174 M00S00172.tarl +++|* DEFINED AT MODIFICATION TIME.
00175 M00S00173.tarl +++|
00176 M00S00174.tarl +++| ERR MODIFICATION ERRORS
00177 M00S00175.tarl +++|
00178 M00S00176.tarl +++| .A ENDIF
00179 M00S00177.tarl +++| RERUN SPACE 4,15
00180 M00S00178.tarl +++|** RERUN - RERUN TRANSACTION.
00181 M00S00179.tarl +++|*
00182 M00S00180.tarl +++|* ENTRY ENTER RERUN USING STATUS.
00183 M00S00181.tarl +++|*
00184 M00S00182.tarl +++|* CALL RERUN(STATUS).
00185 M00S00183.tarl +++|*
00186 M00S00184.tarl +++|* (A1) = FWA OF PARAMETER LIST.
00187 M00S00185.tarl +++|*
00188 M00S00186.tarl +++|* EXIT REQUEST IS PROCESSED.
00189 M00S00187.tarl +++|* (A0) = (A0) ON ENTRY.
00190 M00S00188.tarl +++|*
00191 M00S00189.tarl +++|* USES X - 1.
00192 M00S00190.tarl +++|*
00193 M00S00191.tarl +++|* CALLS IRR.
00194 M00S00192.tarl +++|
00195 M00S00193.tarl +++|
00196 M00S00194.tarl +++| VFD 42/0LRERUN,18/RERUN
00197 M00S00195.tarl +++|
00198 M00S00196.tarl +++| RERUN SUBR ENTRY/EXIT
00199 M00S00197.tarl +++| SX1 RFRE RERUN REQUEST
00200 M00S00198.tarl +++| RJ IRR ISSUE RECOVERY REQUEST
00201 M00S00199.tarl +++| EQ RERUNX RETURN
00202 M00S00200.tarl +++| RGET SPACE 4,15
00203 M00S00201.tarl +++|** RGET - GET DATA FROM RECOVERY FILE.
00204 M00S00202.tarl +++|*
00205 M00S00203.tarl +++|* ENTRY ENTER RGET USING MESSAGE, INDEX, STATUS,
00206 M00S00204.tarl +++|* MESSAGE-LENGTH [, MESSAGE-UNITS].
00207 M00S00205.tarl +++|*
00208 M00S00206.tarl +++|* CALL RGET(MESSAGE,INDEX,STATUS,MESSAGE-LENGTH
00209 M00S00207.tarl +++|* [,MESSAGE-UNITS]).
00210 M00S00208.tarl +++|*
00211 M00S00209.tarl +++|* (A1) = FWA OF PARAMETER LIST.
00212 M00S00210.tarl +++|*
00213 M00S00211.tarl +++|* EXIT REQUEST IS PROCESSED.
00214 M00S00212.tarl +++|* (A0) = (A0) ON ENTRY.
00215 M00S00213.tarl +++|*
00216 M00S00214.tarl +++|* USES X - 1.
00217 M00S00215.tarl +++|*
00218 M00S00216.tarl +++|* CALLS IRR.
00219 M00S00217.tarl +++|
00220 M00S00218.tarl +++|
00221 M00S00219.tarl +++| RGET SUBR ENTRY/EXIT
00222 M00S00220.tarl +++| SX1 RFRG RGET REQUEST
00223 M00S00221.tarl +++| RJ IRR ISSUE RECOVERY REQUEST
00224 M00S00222.tarl +++| EQ RGETX RETURN
00225 M00S00223.tarl +++| RPUT SPACE 4,20
00226 M00S00224.tarl +++|** RPUT - PUT DATA ON RECOVERY FILE.
00227 M00S00225.tarl +++|*
00228 M00S00226.tarl +++|* ENTRY ENTER RPUT USING MESSAGE, INDEX, STATUS
00229 M00S00227.tarl +++|* [,MESSAGE-LENGTH, MESSAGE-UNITS].
00230 M00S00228.tarl +++|*
00231 M00S00229.tarl +++|* CALL RPUT(MESSAGE,INDEX,STATUS,MESSAGE-LENGTH
00232 M00S00230.tarl +++|* [,MESSAGE-UNITS]).
00233 M00S00231.tarl +++|*
00234 M00S00232.tarl +++|* (A1) = FWA OF PARAMETER LIST.
00235 M00S00233.tarl +++|*
00236 M00S00234.tarl +++|* EXIT REQUEST IS PROCESSED.
00237 M00S00235.tarl +++|* (A0) = (A0) ON ENTRY.
00238 M00S00236.tarl +++|* TO *PAE* IF NOT ENOUGH PARAMETERS.
00239 M00S00237.tarl +++|*
00240 M00S00238.tarl +++|* CALLS IRR.
00241 M00S00239.tarl +++|*
00242 M00S00240.tarl +++|* USES A - 1, 2, 6.
00243 M00S00241.tarl +++|* X - 1, 2, 3, 4, 6.
00244 M00S00242.tarl +++|* B - 1, 2, 3, 4.
00245 M00S00243.tarl +++|*
00246 M00S00244.tarl +++|* CALLS IRR.
00247 M00S00245.tarl +++|
00248 M00S00246.tarl +++|
00249 M00S00247.tarl +++| .1 SET 0
00250 M00S00248.tarl +++|
00251 M00S00249.tarl +++| RPUT SUBR ENTRY/EXIT
00252 M00S00250.tarl +++| SB1 1
00253 M00S00251.tarl +++| SA2 A1 GET ADDRESS OF MESSAGE
00254 M00S00252.tarl +++| ZR X2,RPT3 IF END OF PARAMETER LIST
00255 M00S00253.tarl +++| .B IFEQ .2,0 IF COBOL5 VERSION
00256 M00S00254.tarl +++|
00257 M00S00255.tarl +++|* PROCESS PARAMETER LIST FOR COBOL5.
00258 M00S00256.tarl +++|
00259 M00S00257.tarl +++| .1 SET .1+1
00260 M00S00258.tarl +++| MX3 -18 GET LENGTH OF MESSAGE
00261 M00S00259.tarl +++| BX4 X2
00262 M00S00260.tarl +++| LX4 17-53
00263 M00S00261.tarl +++| BX6 -X3*X4
00264 M00S00262.tarl +++| SA6 RPTA SAVE LENGTH OF MESSAGE
00265 M00S00263.tarl +++| .B ENDIF
00266 M00S00264.tarl +++| .C IFEQ .2,1 IF FORTRAN4 VERSION
00267 M00S00265.tarl +++|
00268 M00S00266.tarl +++|* PROCESS PARAMETER LIST FOR FORTRAN4.
00269 M00S00267.tarl +++|
00270 M00S00268.tarl +++| .1 SET .1+1
00271 M00S00269.tarl +++|
00272 M00S00270.tarl +++|* NO SPECIAL PROCESSING NEEDED.
00273 M00S00271.tarl +++|
00274 M00S00272.tarl +++| .C ENDIF
00275 M00S00273.tarl +++| .D IFEQ .2,2 IF FORTRAN5 VERSION
00276 M00S00274.tarl +++|
00277 M00S00275.tarl +++|* PROCESS PARAMETER LIST FOR FORTRAN5.
00278 M00S00276.tarl +++|
00279 M00S00277.tarl +++| .1 SET .1+1
00280 M00S00278.tarl +++|
00281 M00S00279.tarl +++|* NO SPECIAL PROCESSING NEEDED.
00282 M00S00280.tarl +++|
00283 M00S00281.tarl +++| .D ENDIF
00284 M00S00282.tarl +++| SX6 X2 SAVE FWA OF MESSAGE
00285 M00S00283.tarl +++| SA6 PARM+RGMA
00286 M00S00284.tarl +++|
00287 M00S00285.tarl +++|* FORMAT STANDARD *TAF* REQUEST CALLING SEQUENCE.
00288 M00S00286.tarl +++|
00289 M00S00287.tarl +++| SB3 TRGPL+PARM LWA+1 OF PARAMETER TABLE
00290 M00S00288.tarl +++| RPT1 SB4 A6+B1 CURRENT FREE LOCATION IN TABLE
00291 M00S00289.tarl +++| SA2 A2+B1 GET NEXT PARAMETER
00292 M00S00290.tarl +++| GT B4,B3,RPT3 IF PARAMETER LIST TOO LARGE
00293 M00S00291.tarl +++| SX6 X2 SAVE PARAMETER IN PARAMETER TABLE
00294 M00S00292.tarl +++| SA6 B4
00295 M00S00293.tarl +++| ZR X2,RPT2 IF END OF PARAMETER LIST
00296 M00S00294.tarl +++| EQ RPT1 PROCESS NEXT PARAMETER
00297 M00S00295.tarl +++|
00298 M00S00296.tarl +++| RPT2 SB4 B4-PARM NUMBER OF PARAMETERS FOUND
00299 M00S00297.tarl +++| .E IFEQ .2,0 IF COBOL5 VERSION
00300 M00S00298.tarl +++| SB2 TRGRL-1 REQUIRED NUMBER OF COBOL5 PARAMETERS
00301 M00S00299.tarl +++| SA2 A1+RGML
00302 M00S00300.tarl +++| NZ X2,RPT2.1 IF NOT USER SUPPLIED LENGTH
00303 M00S00301.tarl +++| SX6 RPTA SAVE COBOL SUPPLIED LENGTH
00304 M00S00302.tarl +++| SA6 PARM+RGML
00305 M00S00303.tarl +++| SX6 B0+ ZERO WORD TERMINATOR
00306 M00S00304.tarl +++| SA6 A6+1
00307 M00S00305.tarl +++| .E ENDIF
00308 M00S00306.tarl +++| .F IFEQ .2,1 IF FORTRAN4 VERSION
00309 M00S00307.tarl +++| SB2 TRGRL REQUIRED NUMBER OF FORTRAN4 PARAMETERS
00310 M00S00308.tarl +++| .F ENDIF
00311 M00S00309.tarl +++| .G IFEQ .2,2 IF FORTRAN5 VERSION
00312 M00S00310.tarl +++| SB2 TRGRL REQUIRED NUMBER OF FORTRAN5 PARAMETERS
00313 M00S00311.tarl +++| .G ENDIF
00314 M00S00312.tarl +++| RPT2.1 LT B4,B2,RPT3 IF NOT ENOUGH PARAMETERS
00315 M00S00313.tarl +++| SA1 PARM INDICATE START OF PARAMETER LIST
00316 M00S00314.tarl +++| SX1 RFRP *RPUT* REQUEST
00317 M00S00315.tarl +++| RJ IRR ISSUE RECOVERY REQUEST
00318 M00S00316.tarl +++| EQ RPUTX RETURN
00319 M00S00317.tarl +++|
00320 M00S00318.tarl +++| RPT3 SA1 RPUT READ RETURN ADDRESS
00321 M00S00319.tarl +++| EQ PAE PROCESS ARGUMENT ERROR
00322 M00S00320.tarl +++|
00323 M00S00321.tarl +++| RPTA BSS 1
00324 M00S00322.tarl +++| RSECURE SPACE 4,15
00325 M00S00323.tarl +++|** RSECURE - RETRIEVE LAST *SECURE* MESSAGE.
00326 M00S00324.tarl +++|*
00327 M00S00325.tarl +++|* ENTRY ENTER RSECURE USING MESSAGE, STATUS, MESSAGE-LENGTH,
00328 M00S00326.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT MODE.
00329 M00S00327.tarl +++|*
00330 M00S00328.tarl +++|* CALL RSECURE(MESSAGE,STATUS,MESSAGE-LENGTH,
00331 M00S00329.tarl +++|* MESSAGE-UNITS,FORMAT-EFFECTOR,TRANSPARENT-MODE).
00332 M00S00330.tarl +++|*
00333 M00S00331.tarl +++|* (A1) = FWA OF PARAMETER LIST.
00334 M00S00332.tarl +++|*
00335 M00S00333.tarl +++|* EXIT REQUEST IS PROCESSED.
00336 M00S00334.tarl +++|* (A0) = (A0) ON ENTRY.
00337 M00S00335.tarl +++|*
00338 M00S00336.tarl +++|* USES X - 1.
00339 M00S00337.tarl +++|*
00340 M00S00338.tarl +++|* CALLS IRR.
00341 M00S00339.tarl +++|
00342 M00S00340.tarl +++|
00343 M00S00341.tarl +++| RSECURE SUBR ENTRY/EXIT
00344 M00S00342.tarl +++| SX1 RFRS *RSECURE* REQUEST
00345 M00S00343.tarl +++| RJ IRR ISSUE RECOVERY REQUEST
00346 M00S00344.tarl +++| EQ RSECUREX RETURN
00347 M00S00345.tarl +++| SRERUN SPACE 4,20
00348 M00S00346.tarl +++|** SRERUN - RERUN A TRANSACTION WITH ALTERNATE USERNAME.
00349 M00S00347.tarl +++|*
00350 M00S00348.tarl +++|* THIS REQUEST CAN ONLY BE USED BY SYSTEM TASKS.
00351 M00S00349.tarl +++|*
00352 M00S00350.tarl +++|* ENTRY ENTER SRERUN USING STATUS[, USERNAM].
00353 M00S00351.tarl +++|*
00354 M00S00352.tarl +++|* CALL SRERUN (STATUS[,USERNAM]).
00355 M00S00353.tarl +++|*
00356 M00S00354.tarl +++|* (A1) = FWA OF PARAMETER LIST.
00357 M00S00355.tarl +++|*
00358 M00S00356.tarl +++|* EXIT REQUEST PROCESSED.
00359 M00S00357.tarl +++|* (A0) = SAME AS ENTRY.
00360 M00S00358.tarl +++|*
00361 M00S00359.tarl +++|* USES X = 1.
00362 M00S00360.tarl +++|*
00363 M00S00361.tarl +++|* CALLS IRR.
00364 M00S00362.tarl +++|
00365 M00S00363.tarl +++|
00366 M00S00364.tarl +++| VFD 42/0LSRERUN,18/SRERUN
00367 M00S00365.tarl +++|
00368 M00S00366.tarl +++| SRERUN SUBR ENTRY/EXIT
00369 M00S00367.tarl +++| SX1 RFSR SRERUN REQUEST
00370 M00S00368.tarl +++| RJ IRR ISSUE RECOVERY REQUEST
00371 M00S00369.tarl +++| EQ SRERUNX RETURN
00372 M00S00370.tarl +++|
00373 M00S00371.tarl +++| SECURE SPACE 4,20
00374 M00S00372.tarl +++|** SECURE - TRANSACTION IS SECURE.
00375 M00S00373.tarl +++|*
00376 M00S00374.tarl +++|* ENTRY ENTER SECURE USING MESSAGE, STATUS[, MESSAGE-LENGTH,
00377 M00S00375.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE].
00378 M00S00376.tarl +++|*
00379 M00S00377.tarl +++|* CALL SECURE(MESSAGE,STATUS,MESSAGE-LENGTH
00380 M00S00378.tarl +++|* [,MESSAGE-UNITS,FORMAT-EFFECTOR,TRANSPARENT-MODE]).
00381 M00S00379.tarl +++|*
00382 M00S00380.tarl +++|* (A1) = FWA OF PARAMETER LIST.
00383 M00S00381.tarl +++|*
00384 M00S00382.tarl +++|* EXIT REQUEST IS PROCESSED.
00385 M00S00383.tarl +++|* (A0) = (A0) ON ENTRY.
00386 M00S00384.tarl +++|* TO *PAE* IF PARAMETER ERROR.
00387 M00S00385.tarl +++|*
00388 M00S00386.tarl +++|* USES A - 2, 6.
00389 M00S00387.tarl +++|* X - 2, 6.
00390 M00S00388.tarl +++|* B - 1, 3, 4.
00391 M00S00389.tarl +++|*
00392 M00S00390.tarl +++|* CALLS IRR.
00393 M00S00391.tarl +++|
00394 M00S00392.tarl +++|
00395 M00S00393.tarl +++| .1 SET 0
00396 M00S00394.tarl +++|
00397 M00S00395.tarl +++| SECURE SUBR ENTRY/EXIT
00398 M00S00396.tarl +++| SB1 1
00399 M00S00397.tarl +++| SA2 A1
00400 M00S00398.tarl +++| ZR X2,SEC3 IF END OF PARAMETER LIST
00401 M00S00399.tarl +++| .H IFEQ .2,0 IF COBOL5 VERSION
00402 M00S00400.tarl +++|
00403 M00S00401.tarl +++|* PROCESS PARAMETER LIST FOR COBOL5.
00404 M00S00402.tarl +++|
00405 M00S00403.tarl +++| .1 SET .1+1
00406 M00S00404.tarl +++| MX3 -18 GET LENGTH OF MESSAGE
00407 M00S00405.tarl +++| BX4 X2
00408 M00S00406.tarl +++| LX4 17-53
00409 M00S00407.tarl +++| BX6 -X3*X4
00410 M00S00408.tarl +++| SA6 SECA SAVE LENGTH OF MESSAGE
00411 M00S00409.tarl +++| SX6 SECA SAVE ADDRESS OF LENGTH
00412 M00S00410.tarl +++| SA6 PARM+SEML
00413 M00S00411.tarl +++| .H ENDIF
00414 M00S00412.tarl +++| .I IFEQ .2,1 IF FORTRAN4 VERSION
00415 M00S00413.tarl +++|
00416 M00S00414.tarl +++|* PROCESS PARAMETER LIST FOR FORTRAN4.
00417 M00S00415.tarl +++|
00418 M00S00416.tarl +++| .1 SET .1+1
00419 M00S00417.tarl +++|
00420 M00S00418.tarl +++|* NO SPECIAL PROCESSING NEEDED.
00421 M00S00419.tarl +++|
00422 M00S00420.tarl +++| .I ENDIF
00423 M00S00421.tarl +++| .J IFEQ .2,2 IF FORTRAN5 VERSION
00424 M00S00422.tarl +++|
00425 M00S00423.tarl +++|* PROCESS PARAMETER LIST FOR FORTRAN5.
00426 M00S00424.tarl +++|
00427 M00S00425.tarl +++| .1 SET .1+1
00428 M00S00426.tarl +++|
00429 M00S00427.tarl +++|* NO SPECIAL PROCESSING NEEDED.
00430 M00S00428.tarl +++|
00431 M00S00429.tarl +++| .J ENDIF
00432 M00S00430.tarl +++| SX6 X2 SAVE FWA OF MESSAGE
00433 M00S00431.tarl +++| SA6 PARM+SEMA
00434 M00S00432.tarl +++| SA2 A2+B1 GET STATUS
00435 M00S00433.tarl +++| ZR X2,SEC3 IF END OF PARAMETER LIST
00436 M00S00434.tarl +++| SX6 X2 SAVE FWA OF STATUS
00437 M00S00435.tarl +++| SA2 A2+B1
00438 M00S00436.tarl +++| SA6 PARM+SEST
00439 M00S00437.tarl +++| SB3 TSEPL+PARM LWA+1 OF PARAMETER TABLE
00440 M00S00438.tarl +++| .K IFEQ .2,0 IF COBOL5 VERSION
00441 M00S00439.tarl +++| SB4 A6+1
00442 M00S00440.tarl +++| NZ X2,SEC.1 IF NOT END OF PARAMETER LIST
00443 M00S00441.tarl +++| SX6 SECA SAVE COBOL SUPPLIED LENGTH
00444 M00S00442.tarl +++| SA6 PARM+SEML
00445 M00S00443.tarl +++| BX6 X6-X6 STORE ZERO WORD TERMINATIOR
00446 M00S00444.tarl +++| SA6 A6+B1
00447 M00S00445.tarl +++| EQ SEC2 ISSUE REQUEST
00448 M00S00446.tarl +++| .K ENDIF
00449 M00S00447.tarl +++| .L IFEQ .2,1 IF FORTRAN4 VERSION
00450 M00S00448.tarl +++| ZR X2,SEC3 IF END OF PARAMETER LIST
00451 M00S00449.tarl +++| .L ENDIF
00452 M00S00450.tarl +++| .M IFEQ .2,2 IF FORTRAN5 VERSION
00453 M00S00451.tarl +++| ZR X2,SEC3 IF END OF PARAMETER LIST
00454 M00S00452.tarl +++| .M ENDIF
00455 M00S00453.tarl +++| SEC.1 SX6 X2
00456 M00S00454.tarl +++| SA6 PARM+SEML SAVE FWA OF MESSAGE LENGTH
00457 M00S00455.tarl +++|
00458 M00S00456.tarl +++|* FORMAT STANDARD *TAF* REQUEST CALLING SEQUENCE.
00459 M00S00457.tarl +++|
00460 M00S00458.tarl +++| SB4 A6+B1 ADDRESS OF REST OF PARAMETER TABLE
00461 M00S00459.tarl +++| SEC1 SA2 A2+B1 GET NEXT ITEM
00462 M00S00460.tarl +++| SX6 X2 STORE PARAMETER IN TABLE
00463 M00S00461.tarl +++| GT B4,B3,SEC3 IF PARAMETER LIST TOO LARGE
00464 M00S00462.tarl +++| SA6 B4
00465 M00S00463.tarl +++| ZR X2,SEC2 IF END OF PARAMETER LIST
00466 M00S00464.tarl +++| SB4 B4+B1
00467 M00S00465.tarl +++| EQ SEC1 PROCESS NEXT PARAMETER
00468 M00S00466.tarl +++|
00469 M00S00467.tarl +++| SEC2 SA1 PARM ADDRESS OF PARMAETER TABLE
00470 M00S00468.tarl +++| SX1 RFSE *SECURE* REQUEST
00471 M00S00469.tarl +++| RJ IRR ISSUE RECOVERY REQUEST
00472 M00S00470.tarl +++| EQ SECUREX RETURN
00473 M00S00471.tarl +++|
00474 M00S00472.tarl +++| SEC3 SA1 SECURE READ RETURN ADDRESS
00475 M00S00473.tarl +++| EQ PAE PROCESS ARGUMENT ERROR
00476 M00S00474.tarl +++|
00477 M00S00475.tarl +++|
00478 M00S00476.tarl +++| SECA BSS 1
00479 M00S00477.tarl +++| TINVOKE SPACE 4,20
00480 M00S00478.tarl +++|** TINVOKE - ASSIGN A NEW SYSTEM IDENTIFIER.
00481 M00S00479.tarl +++|*
00482 M00S00480.tarl +++|* ENTRY ENTER TINVOKE USING STATUS, NEW-SYS-ID[, OLD-SYS-ID].
00483 M00S00481.tarl +++|*
00484 M00S00482.tarl +++|* CALL TINVOKE(STATUS,NEW-SYS-ID[,OLD-SYS-ID]).
00485 M00S00483.tarl +++|*
00486 M00S00484.tarl +++|* (A1) = FWA OF PARAMETER LIST.
00487 M00S00485.tarl +++|*
00488 M00S00486.tarl +++|* EXIT REQUEST IS PROCESSED.
00489 M00S00487.tarl +++|* (A0) = (A0) ON ENTRY.
00490 M00S00488.tarl +++|*
00491 M00S00489.tarl +++|* USES X - 1.
00492 M00S00490.tarl +++|* CALLS IRR.
00493 M00S00491.tarl +++|
00494 M00S00492.tarl +++|
00495 M00S00493.tarl +++| TINVOKE SUBR ENTRY/EXIT
00496 M00S00494.tarl +++| SX1 RFTI *TINVOKE* REQUEST
00497 M00S00495.tarl +++| RJ IRR ISSUE RECOVERY REQUEST
00498 M00S00496.tarl +++| EQ TINVOKEX RETURN
00499 M00S00497.tarl +++| PAE SPACE 4,15
00500 M00S00498.tarl +++|** PAE - PROCESS ARGUMENT ERROR.
00501 M00S00499.tarl +++|*
00502 M00S00500.tarl +++|* ENTRY (X1) = CALLING ADDRESS.
00503 M00S00501.tarl +++|*
00504 M00S00502.tarl +++|* EXIT PROGRAM WILL ABORT.
00505 M00S00503.tarl +++|*
00506 M00S00504.tarl +++|* USES A - 2, 6.
00507 M00S00505.tarl +++|* X - 1, 2, 6.
00508 M00S00506.tarl +++|*
00509 M00S00507.tarl +++|* MACROS ARGERR.
00510 M00S00508.tarl +++|
00511 M00S00509.tarl +++|
00512 M00S00510.tarl +++| PAE MX6 -30
00513 M00S00511.tarl +++| LX1 29-59
00514 M00S00512.tarl +++| SA2 X1-1 READ TRACE BACK WORD
00515 M00S00513.tarl +++| BX6 -X6*X2
00516 M00S00514.tarl +++| SA6 PAEA
00517 M00S00515.tarl +++| ARGERR A6 EXIT TO EXECUTIVE
00518 M00S00516.tarl +++|
00519 M00S00517.tarl +++| PAEA BSSZ 1
00520 M00S00518.tarl +++| IRR SPACE 4,15
00521 M00S00519.tarl +++|** IRR - ISSUE RECOVERY REQUEST.
00522 M00S00520.tarl +++|*
00523 M00S00521.tarl +++|* ENTRY (A1) = FWA OF REQUEST PARAMETER LIST.
00524 M00S00522.tarl +++|* (X1) = FUNCTION CODE.
00525 M00S00523.tarl +++|*
00526 M00S00524.tarl +++|* EXIT (A1) = FWA OF RETURN PARAMETER LIST.
00527 M00S00525.tarl +++|*
00528 M00S00526.tarl +++|* USES X - 1, 6, 7.
00529 M00S00527.tarl +++|* B - 1.
00530 M00S00528.tarl +++|*
00531 M00S00529.tarl +++|* CALLS SYS=.
00532 M00S00530.tarl +++|
00533 M00S00531.tarl +++|
00534 M00S00532.tarl +++| IRR SUBR ENTRY/EXIT
00535 M00S00533.tarl +++| SB1 1
00536 M00S00534.tarl +++| SX6 3RREC PREPARE RECOVERY REQUEST
00537 M00S00535.tarl +++| SX7 A1 PARAMETER LIST ADDRESS
00538 M00S00536.tarl +++| LX6 59-17
00539 M00S00537.tarl +++| BX6 X7+X6
00540 M00S00538.tarl +++| LX1 35-17 REQUEST CODE
00541 M00S00539.tarl +++| BX6 X6+X1
00542 M00S00540.tarl +++| RJ =XSYS= ISSUE REQUEST
00543 M00S00541.tarl +++| EQ IRRX RETURN
00544 M00S00542.tarl +++| END