cdc:nos2.source:opl.opl871:deck:tarl
Deck TARL
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.tarl +++| IDENT TARL 00002 M01S00002.tarl +++| ENTRY RERUN 00003 M01S00003.tarl +++| ENTRY RGET 00004 M01S00004.tarl +++| ENTRY RPUT 00005 M01S00005.tarl +++| ENTRY RSECURE 00006 M01S00006.tarl +++| ENTRY SECURE 00007 M01S00007.tarl +++| ENTRY SRERUN 00008 M01S00008.tarl +++| ENTRY TINVOKE 00009 M01S00009.tarl +++| SYSCOM B1 00010 M01S00010.tarl +++| TITLE TARL - AUTOMATIC RECOVERY LIBRARY.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | tarl |
M02 (Updated by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00011 M02S00011.ns2440 ---| COMMENT 80/06/20. TAF AUTOMATIC RECOVERY LIBRARY. 00012 M01S00001.ns2440 +++|*COMMENT TARL - TAF AUTOMATIC RECOVERY LIBRARY.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | tarl |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00013 M02S00012.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1980. 00014 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00015 M01S00013.tarl +++| TARL SPACE 4,10 00016 M01S00014.tarl +++|***** TARL - TAF AUTOMATIC RECOVERY LIBRARY. 00017 M01S00015.tarl +++|* 00018 M01S00016.tarl +++|* A. E. SCHIPPERS. 80/06/20. 00019 M01S00017.tarl +++|* 00020 M01S00018.tarl +++|* TARL IS A LIBRARY OF INTERFACE ROUTINES FOR COBOL5, 00021 M01S00019.tarl +++|* FORTRAN4 AND FORTRAN5 USER AND SYSTEM TASKS, MAKING 00022 M01S00020.tarl +++|* RECOVERY REQUESTS TO THE TRANSACTION FACILITY. DECK 00023 M01S00021.tarl +++|* *TARL* IS PLACED ON THREE DIFFERENT LIBRARIES CALLED 00024 M01S00022.tarl +++|* *TRANC5*, *TRANF4*, AND *TRANF5*. THE COBOL *ENTER* 00025 M01S00023.tarl +++|* VERB AND THE FORTRAN *CALL* STATEMENT INTERFACE USER AND 00026 M01S00024.tarl +++|* SYSTEM TASKS TO THE TRANSACTION FACILITY. 00027 M01S00025.tarl +++|* 00028 M01S00026.tarl +++|*IF DEF,TRANC5 00029 M01S00027.tarl +++|* NOTE THIS IS THE COBOL5 VERSION OF TARL. 00030 M01S00028.tarl +++|*ENDIF 00031 M01S00029.tarl +++|*IF DEF,TRANF4 00032 M01S00030.tarl +++|* NOTE THIS IS THE FORTRAN4 VERSION OF TARL. 00033 M01S00031.tarl +++|*ENDIF 00034 M01S00032.tarl +++|*IF DEF,TRANF5 00035 M01S00033.tarl +++|* NOTE THIS IS THE FORTRAN5 VERSION OF TARL. 00036 M01S00034.tarl +++|*ENDIF 00037 M01S00035.tarl +++|* 00038 M01S00036.tarl +++|* 00039 M01S00037.tarl +++|*** THE REQUESTS FOR *TAF* AUTOMATIC RECOVERY ARE AS FOLLOWS - 00040 M01S00038.tarl +++|* 00041 M01S00039.tarl +++|* TO RERUN A TRANSACTION COMMIT UNIT FOR A TERMINAL - 00042 M01S00040.tarl +++|* ENTER RERUN USING STATUS [,USERNAM]. 00043 M01S00041.tarl +++|* CALL RERUN (STATUS[,USERNAM]). 00044 M01S00042.tarl +++|* 00045 M01S00043.tarl +++|* TO RETRIEVE USER DATA FROM THE *TAF* RECOVERY FILE - 00046 M01S00044.tarl +++|* ENTER RGET USING MESSAGE, INDEX, STATUS, MESSAGE-LENGTH 00047 M01S00045.tarl +++|* [, MESSAGE-UNITS]. 00048 M01S00046.tarl +++|* CALL RGET (MESSAGE,INDEX,STATUS,MESSAGE-LENGTH 00049 M01S00047.tarl +++|* [,MESSAGE-UNITS]). 00050 M01S00048.tarl +++|* 00051 M01S00049.tarl +++|* TO PUT USER DATA ON THE TAF RECOVER FILE - 00052 M01S00050.tarl +++|* ENTER RPUT USING MESSAGE, INDEX, STATUS [,MESSAGE-LENGTH, 00053 M01S00051.tarl +++|* MESSAGE-UNITS]. 00054 M01S00052.tarl +++|* CALL RPUT (MESSAGE,INDEX,STATUS,MESSAGE-LENGTH 00055 M01S00053.tarl +++|* [,MESSAGE-UNITS]). 00056 M01S00054.tarl +++|* 00057 M01S00055.tarl +++|* TO RETREVE THE SECURE MESSAGE FROM PERMANENT STORAGE - 00058 M01S00056.tarl +++|* ENTER RSECURE USING MESSAGE, STATUS, MESSAGE-LENGTH, 00059 M01S00057.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE. 00060 M01S00058.tarl +++|* CALL RSECURE (MESSAGE, STATUS, MESSAGE-LENGTH, 00061 M01S00059.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE). 00062 M01S00060.tarl +++|* 00063 M01S00061.tarl +++|* TO SAVE A SECURE MESSAGE - 00064 M01S00062.tarl +++|* ENTER SECURE USING MESSAGE, STATUS [, MESSAGE-LENGTH, 00065 M01S00063.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE]. 00066 M01S00064.tarl +++|* CALL SECURE (MESSAGE, STATUS, MESSAGE-LENGTH 00067 M01S00065.tarl +++|* [, MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE]). 00068 M01S00066.tarl +++|* 00069 M01S00067.tarl +++|* TO ASSIGN A NEW TRANSACTION SEQUENCE NUMBER - 00070 M01S00068.tarl +++|* ENTER TINVOKE USING STATUS, NEW-SYS-ID [,OLD-SYS-ID]. 00071 M01S00069.tarl +++|* CALL TINVOKE (STATUS, NEW-SYS-ID [, OLD-SYS-ID]). 00072 M01S00070.tarl +++|* 00073 M01S00071.tarl +++|*** THE PARAMETERS FOR *TAF* AUTOMATIC RECOVERY 00074 M01S00072.tarl +++|* REQUESTS ARE DEFINED BELOW. 00075 M01S00073.tarl +++|* 00076 M01S00074.tarl +++|* FORMAT-EFFECTOR PARAMETER TO INDICATE IF 00077 M01S00075.tarl +++|* FORMAT-EFFECTORS ARE USED. 00078 M01S00076.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA 00079 M01S00077.tarl +++|* NAME. 00080 M01S00078.tarl +++|* FORTRAN - INTERGER. 00081 M01S00079.tarl +++|* 00082 M01S00080.tarl +++|* INDEX INDEX FOR RECOVERY RECORD. 00083 M01S00081.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA 00084 M01S00082.tarl +++|* NAME. 00085 M01S00083.tarl +++|* FORTRAN - INTEGER. 00086 M01S00084.tarl +++|* VALUES ARE THE SAME AS FOR *NAM*. 00087 M01S00085.tarl +++|* 00088 M01S00086.tarl +++|* MESSAGE DATA ITEM CONTAINING THE RECOVERY MESSAGE. 00089 M01S00087.tarl +++|* COBOL - 01 LEVEL ITEM. 00090 M01S00088.tarl +++|* FORTRAN - HOLLERITH. 00091 M01S00089.tarl +++|* 00092 M01S00090.tarl +++|* MESSAGE-LENGTH LENGTH OF MESSAGE IN MESSAGE-UNITS. 00093 M01S00091.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA 00094 M01S00092.tarl +++|* NAME. 00095 M01S00093.tarl +++|* FORTRAN - INTEGER. 00096 M01S00094.tarl +++|* 00097 M01S00095.tarl +++|* MESSAGE-UNITS APPLICATION CHARACTER TYPE. THE TYPE IS 00098 M01S00096.tarl +++|* THE SAME AS FOR *NAM*. 00099 M01S00097.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA 00100 M01S00098.tarl +++|* NAME. 00101 M01S00099.tarl +++|* FORTRAN - INTEGER. 00102 M01S00100.tarl +++|* 00103 M01S00101.tarl +++|* NEW-SYS-ID NEW SYSTEM IDENTIFIER. 00104 M01S00102.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA 00105 M01S00103.tarl +++|* NAME. 00106 M01S00104.tarl +++|* FORTRAN - INTEGER. 00107 M01S00105.tarl +++|* 00108 M01S00106.tarl +++|* OLD-SYS-ID OLD SYSTEM IDENTIFIER. 00109 M01S00107.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA 00110 M01S00108.tarl +++|* NAME. 00111 M01S00109.tarl +++|* FORTRAN - INTEGER. 00112 M01S00110.tarl +++|* 00113 M01S00111.tarl +++|* STATUS STATUS OF REQUEST. 00114 M01S00112.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA 00115 M01S00113.tarl +++|* NAME. 00116 M01S00114.tarl +++|* FORTRAN - INTEGER. 00117 M01S00115.tarl +++|* 00118 M01S00116.tarl +++|* TRANSPARENT-MODE INDICATES IF TRANSPARENT MODE WAS USED. 00119 M01S00117.tarl +++|* COBOL - 01 LEVEL COMPUTATIONAL-1 DATA 00120 M01S00118.tarl +++|* NAME. 00121 M01S00119.tarl +++|* FORTRAN - INTEGER. 00122 M01S00120.tarl +++|* THE VALUE IS THE SAME AS FOR *NAM*. 00123 M01S00121.tarl +++|* 00124 M01S00122.tarl +++|* USERNAM 1-7 CHARACTER USER NAME. 00125 M01S00123.tarl +++|* COBOL - 01 LEVEL DATA ITEM. 00126 M01S00124.tarl +++|* FORTRAN - HOLLERITH. 00127 M01S00125.tarl +++|* 00128 M01S00126.tarl +++| 00129 M01S00127.tarl +++|* COMMON DECKS CALLED. 00130 M01S00128.tarl +++| 00131 M01S00129.tarl +++|*CALL COMKFLD 00132 M01S00130.tarl +++|*CALL COMKMAC 00133 M01S00131.tarl +++| LIST X 00134 M01S00132.tarl +++| 00135 M01S00133.tarl +++|* THE FOLLOWING COMMON DECKS USE *BSS* TO ASSIGN LOCATIONS 00136 M01S00134.tarl +++|* TO SYMBOLS. THE LIBRARY INTERFACE ROUTINES DO NOT WANT 00137 M01S00135.tarl +++|* TO ALLOCATE STORAGE FOR THESE SYMBOLS SO THE CURRENT ORIGIN 00138 M01S00136.tarl +++|* COUNTER IS SAVED BY *BEGN* AND IS RESTORED AFTER THE COMMON 00139 M01S00137.tarl +++|* DECKS ARE ASSEMBLED. 00140 M01S00138.tarl +++| 00141 M01S00139.tarl +++| BEGN BSS 0 SAVE CURRENT ORIGIN ADDRESS 00142 M01S00140.tarl +++|*CALL COMKRRD 00143 M01S00141.tarl +++| 00144 M01S00142.tarl +++| ORG BEGN RESTORE ORIGIN COUNTER 00145 M01S00143.tarl +++| 00146 M01S00144.tarl +++|* STORAGE FOR RECOVERY REQUEST PARAMETERS. 00147 M01S00145.tarl +++| 00148 M01S00146.tarl +++| PARML MAX TSEPL,TRGPL,TREPL,TTIPL MAXIMUM LENGTH 00149 M01S00147.tarl +++| PARM BSS PARML 00150 M01S00148.tarl +++| BSSZ 1 TERMINATE REQUEST WITH ZERO WORD 00151 M01S00149.tarl +++| 00152 M01S00150.tarl +++| 00153 M01S00151.tarl +++|* THE FOLOWING CODE IS CONDITIONALLY PUT ON THE 00154 M01S00152.tarl +++|* COMPILE FILE AT MODIFICATION TIME. THIS CODE 00155 M01S00153.tarl +++|* ALSO SETS VALUES FOR CONDITIONAL ASSEMBLY OF SOME 00156 M01S00154.tarl +++|* CODE LATER IN THIS DECK. 00157 M01S00155.tarl +++| 00158 M01S00156.tarl +++| .1 SET 0 00159 M01S00157.tarl +++|*IF DEF,TRANC5 00160 M01S00158.tarl +++| .1 SET .1+1 00161 M01S00159.tarl +++| .2 SET 0 COBOL5 VERSION 00162 M01S00160.tarl +++|*ENDIF 00163 M01S00161.tarl +++|*IF DEF,TRANF4 00164 M01S00162.tarl +++| .1 SET .1+1 00165 M01S00163.tarl +++| .2 SET 1 FORTRAN4 VERSION 00166 M01S00164.tarl +++|*ENDIF 00167 M01S00165.tarl +++|*IF DEF,TRANF5 00168 M01S00166.tarl +++| .1 SET .1+1 00169 M01S00167.tarl +++| .2 SET 2 FORTRAN5 VERSION 00170 M01S00168.tarl +++|*ENDIF 00171 M01S00169.tarl +++| .A IFNE .1,1 00172 M01S00170.tarl +++| 00173 M01S00171.tarl +++|* ONE AND ONLY ONE OF THE TLIBXX LIBRARIES MUST BE 00174 M01S00172.tarl +++|* DEFINED AT MODIFICATION TIME. 00175 M01S00173.tarl +++| 00176 M01S00174.tarl +++| ERR MODIFICATION ERRORS 00177 M01S00175.tarl +++| 00178 M01S00176.tarl +++| .A ENDIF 00179 M01S00177.tarl +++| RERUN SPACE 4,15 00180 M01S00178.tarl +++|** RERUN - RERUN TRANSACTION. 00181 M01S00179.tarl +++|* 00182 M01S00180.tarl +++|* ENTRY ENTER RERUN USING STATUS. 00183 M01S00181.tarl +++|* 00184 M01S00182.tarl +++|* CALL RERUN(STATUS). 00185 M01S00183.tarl +++|* 00186 M01S00184.tarl +++|* (A1) = FWA OF PARAMETER LIST. 00187 M01S00185.tarl +++|* 00188 M01S00186.tarl +++|* EXIT REQUEST IS PROCESSED. 00189 M01S00187.tarl +++|* (A0) = (A0) ON ENTRY. 00190 M01S00188.tarl +++|* 00191 M01S00189.tarl +++|* USES X - 1. 00192 M01S00190.tarl +++|* 00193 M01S00191.tarl +++|* CALLS IRR. 00194 M01S00192.tarl +++| 00195 M01S00193.tarl +++| 00196 M01S00194.tarl +++| VFD 42/0LRERUN,18/RERUN 00197 M01S00195.tarl +++| 00198 M01S00196.tarl +++| RERUN SUBR ENTRY/EXIT 00199 M01S00197.tarl +++| SX1 RFRE RERUN REQUEST 00200 M01S00198.tarl +++| RJ IRR ISSUE RECOVERY REQUEST 00201 M01S00199.tarl +++| EQ RERUNX RETURN 00202 M01S00200.tarl +++| RGET SPACE 4,15 00203 M01S00201.tarl +++|** RGET - GET DATA FROM RECOVERY FILE. 00204 M01S00202.tarl +++|* 00205 M01S00203.tarl +++|* ENTRY ENTER RGET USING MESSAGE, INDEX, STATUS, 00206 M01S00204.tarl +++|* MESSAGE-LENGTH [, MESSAGE-UNITS]. 00207 M01S00205.tarl +++|* 00208 M01S00206.tarl +++|* CALL RGET(MESSAGE,INDEX,STATUS,MESSAGE-LENGTH 00209 M01S00207.tarl +++|* [,MESSAGE-UNITS]). 00210 M01S00208.tarl +++|* 00211 M01S00209.tarl +++|* (A1) = FWA OF PARAMETER LIST. 00212 M01S00210.tarl +++|* 00213 M01S00211.tarl +++|* EXIT REQUEST IS PROCESSED. 00214 M01S00212.tarl +++|* (A0) = (A0) ON ENTRY. 00215 M01S00213.tarl +++|* 00216 M01S00214.tarl +++|* USES X - 1. 00217 M01S00215.tarl +++|* 00218 M01S00216.tarl +++|* CALLS IRR. 00219 M01S00217.tarl +++| 00220 M01S00218.tarl +++| 00221 M01S00219.tarl +++| RGET SUBR ENTRY/EXIT 00222 M01S00220.tarl +++| SX1 RFRG RGET REQUEST 00223 M01S00221.tarl +++| RJ IRR ISSUE RECOVERY REQUEST 00224 M01S00222.tarl +++| EQ RGETX RETURN 00225 M01S00223.tarl +++| RPUT SPACE 4,20 00226 M01S00224.tarl +++|** RPUT - PUT DATA ON RECOVERY FILE. 00227 M01S00225.tarl +++|* 00228 M01S00226.tarl +++|* ENTRY ENTER RPUT USING MESSAGE, INDEX, STATUS 00229 M01S00227.tarl +++|* [,MESSAGE-LENGTH, MESSAGE-UNITS]. 00230 M01S00228.tarl +++|* 00231 M01S00229.tarl +++|* CALL RPUT(MESSAGE,INDEX,STATUS,MESSAGE-LENGTH 00232 M01S00230.tarl +++|* [,MESSAGE-UNITS]). 00233 M01S00231.tarl +++|* 00234 M01S00232.tarl +++|* (A1) = FWA OF PARAMETER LIST. 00235 M01S00233.tarl +++|* 00236 M01S00234.tarl +++|* EXIT REQUEST IS PROCESSED. 00237 M01S00235.tarl +++|* (A0) = (A0) ON ENTRY. 00238 M01S00236.tarl +++|* TO *PAE* IF NOT ENOUGH PARAMETERS. 00239 M01S00237.tarl +++|* 00240 M01S00238.tarl +++|* CALLS IRR. 00241 M01S00239.tarl +++|* 00242 M01S00240.tarl +++|* USES A - 1, 2, 6. 00243 M01S00241.tarl +++|* X - 1, 2, 3, 4, 6. 00244 M01S00242.tarl +++|* B - 1, 2, 3, 4. 00245 M01S00243.tarl +++|* 00246 M01S00244.tarl +++|* CALLS IRR. 00247 M01S00245.tarl +++| 00248 M01S00246.tarl +++| 00249 M01S00247.tarl +++| .1 SET 0 00250 M01S00248.tarl +++| 00251 M01S00249.tarl +++| RPUT SUBR ENTRY/EXIT 00252 M01S00250.tarl +++| SB1 1 00253 M01S00251.tarl +++| SA2 A1 GET ADDRESS OF MESSAGE 00254 M01S00252.tarl +++| ZR X2,RPT3 IF END OF PARAMETER LIST 00255 M01S00253.tarl +++| .B IFEQ .2,0 IF COBOL5 VERSION 00256 M01S00254.tarl +++| 00257 M01S00255.tarl +++|* PROCESS PARAMETER LIST FOR COBOL5. 00258 M01S00256.tarl +++| 00259 M01S00257.tarl +++| .1 SET .1+1 00260 M01S00258.tarl +++| MX3 -18 GET LENGTH OF MESSAGE 00261 M01S00259.tarl +++| BX4 X2 00262 M01S00260.tarl +++| LX4 17-53 00263 M01S00261.tarl +++| BX6 -X3*X4 00264 M01S00262.tarl +++| SA6 RPTA SAVE LENGTH OF MESSAGE 00265 M01S00263.tarl +++| .B ENDIF 00266 M01S00264.tarl +++| .C IFEQ .2,1 IF FORTRAN4 VERSION 00267 M01S00265.tarl +++| 00268 M01S00266.tarl +++|* PROCESS PARAMETER LIST FOR FORTRAN4. 00269 M01S00267.tarl +++| 00270 M01S00268.tarl +++| .1 SET .1+1 00271 M01S00269.tarl +++| 00272 M01S00270.tarl +++|* NO SPECIAL PROCESSING NEEDED. 00273 M01S00271.tarl +++| 00274 M01S00272.tarl +++| .C ENDIF 00275 M01S00273.tarl +++| .D IFEQ .2,2 IF FORTRAN5 VERSION 00276 M01S00274.tarl +++| 00277 M01S00275.tarl +++|* PROCESS PARAMETER LIST FOR FORTRAN5. 00278 M01S00276.tarl +++| 00279 M01S00277.tarl +++| .1 SET .1+1 00280 M01S00278.tarl +++| 00281 M01S00279.tarl +++|* NO SPECIAL PROCESSING NEEDED. 00282 M01S00280.tarl +++| 00283 M01S00281.tarl +++| .D ENDIF 00284 M01S00282.tarl +++| SX6 X2 SAVE FWA OF MESSAGE 00285 M01S00283.tarl +++| SA6 PARM+RGMA 00286 M01S00284.tarl +++| 00287 M01S00285.tarl +++|* FORMAT STANDARD *TAF* REQUEST CALLING SEQUENCE. 00288 M01S00286.tarl +++| 00289 M01S00287.tarl +++| SB3 TRGPL+PARM LWA+1 OF PARAMETER TABLE 00290 M01S00288.tarl +++| RPT1 SB4 A6+B1 CURRENT FREE LOCATION IN TABLE 00291 M01S00289.tarl +++| SA2 A2+B1 GET NEXT PARAMETER 00292 M01S00290.tarl +++| GT B4,B3,RPT3 IF PARAMETER LIST TOO LARGE 00293 M01S00291.tarl +++| SX6 X2 SAVE PARAMETER IN PARAMETER TABLE 00294 M01S00292.tarl +++| SA6 B4 00295 M01S00293.tarl +++| ZR X2,RPT2 IF END OF PARAMETER LIST 00296 M01S00294.tarl +++| EQ RPT1 PROCESS NEXT PARAMETER 00297 M01S00295.tarl +++| 00298 M01S00296.tarl +++| RPT2 SB4 B4-PARM NUMBER OF PARAMETERS FOUND 00299 M01S00297.tarl +++| .E IFEQ .2,0 IF COBOL5 VERSION 00300 M01S00298.tarl +++| SB2 TRGRL-1 REQUIRED NUMBER OF COBOL5 PARAMETERS 00301 M01S00299.tarl +++| SA2 A1+RGML 00302 M01S00300.tarl +++| NZ X2,RPT2.1 IF NOT USER SUPPLIED LENGTH 00303 M01S00301.tarl +++| SX6 RPTA SAVE COBOL SUPPLIED LENGTH 00304 M01S00302.tarl +++| SA6 PARM+RGML 00305 M01S00303.tarl +++| SX6 B0+ ZERO WORD TERMINATOR 00306 M01S00304.tarl +++| SA6 A6+1 00307 M01S00305.tarl +++| .E ENDIF 00308 M01S00306.tarl +++| .F IFEQ .2,1 IF FORTRAN4 VERSION 00309 M01S00307.tarl +++| SB2 TRGRL REQUIRED NUMBER OF FORTRAN4 PARAMETERS 00310 M01S00308.tarl +++| .F ENDIF 00311 M01S00309.tarl +++| .G IFEQ .2,2 IF FORTRAN5 VERSION 00312 M01S00310.tarl +++| SB2 TRGRL REQUIRED NUMBER OF FORTRAN5 PARAMETERS 00313 M01S00311.tarl +++| .G ENDIF 00314 M01S00312.tarl +++| RPT2.1 LT B4,B2,RPT3 IF NOT ENOUGH PARAMETERS 00315 M01S00313.tarl +++| SA1 PARM INDICATE START OF PARAMETER LIST 00316 M01S00314.tarl +++| SX1 RFRP *RPUT* REQUEST 00317 M01S00315.tarl +++| RJ IRR ISSUE RECOVERY REQUEST 00318 M01S00316.tarl +++| EQ RPUTX RETURN 00319 M01S00317.tarl +++| 00320 M01S00318.tarl +++| RPT3 SA1 RPUT READ RETURN ADDRESS 00321 M01S00319.tarl +++| EQ PAE PROCESS ARGUMENT ERROR 00322 M01S00320.tarl +++| 00323 M01S00321.tarl +++| RPTA BSS 1 00324 M01S00322.tarl +++| RSECURE SPACE 4,15 00325 M01S00323.tarl +++|** RSECURE - RETRIEVE LAST *SECURE* MESSAGE. 00326 M01S00324.tarl +++|* 00327 M01S00325.tarl +++|* ENTRY ENTER RSECURE USING MESSAGE, STATUS, MESSAGE-LENGTH, 00328 M01S00326.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT MODE. 00329 M01S00327.tarl +++|* 00330 M01S00328.tarl +++|* CALL RSECURE(MESSAGE,STATUS,MESSAGE-LENGTH, 00331 M01S00329.tarl +++|* MESSAGE-UNITS,FORMAT-EFFECTOR,TRANSPARENT-MODE). 00332 M01S00330.tarl +++|* 00333 M01S00331.tarl +++|* (A1) = FWA OF PARAMETER LIST. 00334 M01S00332.tarl +++|* 00335 M01S00333.tarl +++|* EXIT REQUEST IS PROCESSED. 00336 M01S00334.tarl +++|* (A0) = (A0) ON ENTRY. 00337 M01S00335.tarl +++|* 00338 M01S00336.tarl +++|* USES X - 1. 00339 M01S00337.tarl +++|* 00340 M01S00338.tarl +++|* CALLS IRR. 00341 M01S00339.tarl +++| 00342 M01S00340.tarl +++| 00343 M01S00341.tarl +++| RSECURE SUBR ENTRY/EXIT 00344 M01S00342.tarl +++| SX1 RFRS *RSECURE* REQUEST 00345 M01S00343.tarl +++| RJ IRR ISSUE RECOVERY REQUEST 00346 M01S00344.tarl +++| EQ RSECUREX RETURN 00347 M01S00345.tarl +++| SRERUN SPACE 4,20 00348 M01S00346.tarl +++|** SRERUN - RERUN A TRANSACTION WITH ALTERNATE USERNAME. 00349 M01S00347.tarl +++|* 00350 M01S00348.tarl +++|* THIS REQUEST CAN ONLY BE USED BY SYSTEM TASKS. 00351 M01S00349.tarl +++|* 00352 M01S00350.tarl +++|* ENTRY ENTER SRERUN USING STATUS[, USERNAM]. 00353 M01S00351.tarl +++|* 00354 M01S00352.tarl +++|* CALL SRERUN (STATUS[,USERNAM]). 00355 M01S00353.tarl +++|* 00356 M01S00354.tarl +++|* (A1) = FWA OF PARAMETER LIST. 00357 M01S00355.tarl +++|* 00358 M01S00356.tarl +++|* EXIT REQUEST PROCESSED. 00359 M01S00357.tarl +++|* (A0) = SAME AS ENTRY. 00360 M01S00358.tarl +++|* 00361 M01S00359.tarl +++|* USES X = 1. 00362 M01S00360.tarl +++|* 00363 M01S00361.tarl +++|* CALLS IRR. 00364 M01S00362.tarl +++| 00365 M01S00363.tarl +++| 00366 M01S00364.tarl +++| VFD 42/0LSRERUN,18/SRERUN 00367 M01S00365.tarl +++| 00368 M01S00366.tarl +++| SRERUN SUBR ENTRY/EXIT 00369 M01S00367.tarl +++| SX1 RFSR SRERUN REQUEST 00370 M01S00368.tarl +++| RJ IRR ISSUE RECOVERY REQUEST 00371 M01S00369.tarl +++| EQ SRERUNX RETURN 00372 M01S00370.tarl +++| 00373 M01S00371.tarl +++| SECURE SPACE 4,20 00374 M01S00372.tarl +++|** SECURE - TRANSACTION IS SECURE. 00375 M01S00373.tarl +++|* 00376 M01S00374.tarl +++|* ENTRY ENTER SECURE USING MESSAGE, STATUS[, MESSAGE-LENGTH, 00377 M01S00375.tarl +++|* MESSAGE-UNITS, FORMAT-EFFECTOR, TRANSPARENT-MODE]. 00378 M01S00376.tarl +++|* 00379 M01S00377.tarl +++|* CALL SECURE(MESSAGE,STATUS,MESSAGE-LENGTH 00380 M01S00378.tarl +++|* [,MESSAGE-UNITS,FORMAT-EFFECTOR,TRANSPARENT-MODE]). 00381 M01S00379.tarl +++|* 00382 M01S00380.tarl +++|* (A1) = FWA OF PARAMETER LIST. 00383 M01S00381.tarl +++|* 00384 M01S00382.tarl +++|* EXIT REQUEST IS PROCESSED. 00385 M01S00383.tarl +++|* (A0) = (A0) ON ENTRY. 00386 M01S00384.tarl +++|* TO *PAE* IF PARAMETER ERROR. 00387 M01S00385.tarl +++|* 00388 M01S00386.tarl +++|* USES A - 2, 6. 00389 M01S00387.tarl +++|* X - 2, 6. 00390 M01S00388.tarl +++|* B - 1, 3, 4. 00391 M01S00389.tarl +++|* 00392 M01S00390.tarl +++|* CALLS IRR. 00393 M01S00391.tarl +++| 00394 M01S00392.tarl +++| 00395 M01S00393.tarl +++| .1 SET 0 00396 M01S00394.tarl +++| 00397 M01S00395.tarl +++| SECURE SUBR ENTRY/EXIT 00398 M01S00396.tarl +++| SB1 1 00399 M01S00397.tarl +++| SA2 A1 00400 M01S00398.tarl +++| ZR X2,SEC3 IF END OF PARAMETER LIST 00401 M01S00399.tarl +++| .H IFEQ .2,0 IF COBOL5 VERSION 00402 M01S00400.tarl +++| 00403 M01S00401.tarl +++|* PROCESS PARAMETER LIST FOR COBOL5. 00404 M01S00402.tarl +++| 00405 M01S00403.tarl +++| .1 SET .1+1 00406 M01S00404.tarl +++| MX3 -18 GET LENGTH OF MESSAGE 00407 M01S00405.tarl +++| BX4 X2 00408 M01S00406.tarl +++| LX4 17-53 00409 M01S00407.tarl +++| BX6 -X3*X4 00410 M01S00408.tarl +++| SA6 SECA SAVE LENGTH OF MESSAGE 00411 M01S00409.tarl +++| SX6 SECA SAVE ADDRESS OF LENGTH 00412 M01S00410.tarl +++| SA6 PARM+SEML 00413 M01S00411.tarl +++| .H ENDIF 00414 M01S00412.tarl +++| .I IFEQ .2,1 IF FORTRAN4 VERSION 00415 M01S00413.tarl +++| 00416 M01S00414.tarl +++|* PROCESS PARAMETER LIST FOR FORTRAN4. 00417 M01S00415.tarl +++| 00418 M01S00416.tarl +++| .1 SET .1+1 00419 M01S00417.tarl +++| 00420 M01S00418.tarl +++|* NO SPECIAL PROCESSING NEEDED. 00421 M01S00419.tarl +++| 00422 M01S00420.tarl +++| .I ENDIF 00423 M01S00421.tarl +++| .J IFEQ .2,2 IF FORTRAN5 VERSION 00424 M01S00422.tarl +++| 00425 M01S00423.tarl +++|* PROCESS PARAMETER LIST FOR FORTRAN5. 00426 M01S00424.tarl +++| 00427 M01S00425.tarl +++| .1 SET .1+1 00428 M01S00426.tarl +++| 00429 M01S00427.tarl +++|* NO SPECIAL PROCESSING NEEDED. 00430 M01S00428.tarl +++| 00431 M01S00429.tarl +++| .J ENDIF 00432 M01S00430.tarl +++| SX6 X2 SAVE FWA OF MESSAGE 00433 M01S00431.tarl +++| SA6 PARM+SEMA 00434 M01S00432.tarl +++| SA2 A2+B1 GET STATUS 00435 M01S00433.tarl +++| ZR X2,SEC3 IF END OF PARAMETER LIST 00436 M01S00434.tarl +++| SX6 X2 SAVE FWA OF STATUS 00437 M01S00435.tarl +++| SA2 A2+B1 00438 M01S00436.tarl +++| SA6 PARM+SEST 00439 M01S00437.tarl +++| SB3 TSEPL+PARM LWA+1 OF PARAMETER TABLE 00440 M01S00438.tarl +++| .K IFEQ .2,0 IF COBOL5 VERSION 00441 M01S00439.tarl +++| SB4 A6+1 00442 M01S00440.tarl +++| NZ X2,SEC.1 IF NOT END OF PARAMETER LIST 00443 M01S00441.tarl +++| SX6 SECA SAVE COBOL SUPPLIED LENGTH 00444 M01S00442.tarl +++| SA6 PARM+SEML 00445 M01S00443.tarl +++| BX6 X6-X6 STORE ZERO WORD TERMINATIOR 00446 M01S00444.tarl +++| SA6 A6+B1 00447 M01S00445.tarl +++| EQ SEC2 ISSUE REQUEST 00448 M01S00446.tarl +++| .K ENDIF 00449 M01S00447.tarl +++| .L IFEQ .2,1 IF FORTRAN4 VERSION 00450 M01S00448.tarl +++| ZR X2,SEC3 IF END OF PARAMETER LIST 00451 M01S00449.tarl +++| .L ENDIF 00452 M01S00450.tarl +++| .M IFEQ .2,2 IF FORTRAN5 VERSION 00453 M01S00451.tarl +++| ZR X2,SEC3 IF END OF PARAMETER LIST 00454 M01S00452.tarl +++| .M ENDIF 00455 M01S00453.tarl +++| SEC.1 SX6 X2 00456 M01S00454.tarl +++| SA6 PARM+SEML SAVE FWA OF MESSAGE LENGTH 00457 M01S00455.tarl +++| 00458 M01S00456.tarl +++|* FORMAT STANDARD *TAF* REQUEST CALLING SEQUENCE. 00459 M01S00457.tarl +++| 00460 M01S00458.tarl +++| SB4 A6+B1 ADDRESS OF REST OF PARAMETER TABLE 00461 M01S00459.tarl +++| SEC1 SA2 A2+B1 GET NEXT ITEM 00462 M01S00460.tarl +++| SX6 X2 STORE PARAMETER IN TABLE 00463 M01S00461.tarl +++| GT B4,B3,SEC3 IF PARAMETER LIST TOO LARGE 00464 M01S00462.tarl +++| SA6 B4 00465 M01S00463.tarl +++| ZR X2,SEC2 IF END OF PARAMETER LIST 00466 M01S00464.tarl +++| SB4 B4+B1 00467 M01S00465.tarl +++| EQ SEC1 PROCESS NEXT PARAMETER 00468 M01S00466.tarl +++| 00469 M01S00467.tarl +++| SEC2 SA1 PARM ADDRESS OF PARMAETER TABLE 00470 M01S00468.tarl +++| SX1 RFSE *SECURE* REQUEST 00471 M01S00469.tarl +++| RJ IRR ISSUE RECOVERY REQUEST 00472 M01S00470.tarl +++| EQ SECUREX RETURN 00473 M01S00471.tarl +++| 00474 M01S00472.tarl +++| SEC3 SA1 SECURE READ RETURN ADDRESS 00475 M01S00473.tarl +++| EQ PAE PROCESS ARGUMENT ERROR 00476 M01S00474.tarl +++| 00477 M01S00475.tarl +++| 00478 M01S00476.tarl +++| SECA BSS 1 00479 M01S00477.tarl +++| TINVOKE SPACE 4,20 00480 M01S00478.tarl +++|** TINVOKE - ASSIGN A NEW SYSTEM IDENTIFIER. 00481 M01S00479.tarl +++|* 00482 M01S00480.tarl +++|* ENTRY ENTER TINVOKE USING STATUS, NEW-SYS-ID[, OLD-SYS-ID]. 00483 M01S00481.tarl +++|* 00484 M01S00482.tarl +++|* CALL TINVOKE(STATUS,NEW-SYS-ID[,OLD-SYS-ID]). 00485 M01S00483.tarl +++|* 00486 M01S00484.tarl +++|* (A1) = FWA OF PARAMETER LIST. 00487 M01S00485.tarl +++|* 00488 M01S00486.tarl +++|* EXIT REQUEST IS PROCESSED. 00489 M01S00487.tarl +++|* (A0) = (A0) ON ENTRY. 00490 M01S00488.tarl +++|* 00491 M01S00489.tarl +++|* USES X - 1. 00492 M01S00490.tarl +++|* CALLS IRR. 00493 M01S00491.tarl +++| 00494 M01S00492.tarl +++| 00495 M01S00493.tarl +++| TINVOKE SUBR ENTRY/EXIT 00496 M01S00494.tarl +++| SX1 RFTI *TINVOKE* REQUEST 00497 M01S00495.tarl +++| RJ IRR ISSUE RECOVERY REQUEST 00498 M01S00496.tarl +++| EQ TINVOKEX RETURN 00499 M01S00497.tarl +++| PAE SPACE 4,15 00500 M01S00498.tarl +++|** PAE - PROCESS ARGUMENT ERROR. 00501 M01S00499.tarl +++|* 00502 M01S00500.tarl +++|* ENTRY (X1) = CALLING ADDRESS. 00503 M01S00501.tarl +++|* 00504 M01S00502.tarl +++|* EXIT PROGRAM WILL ABORT. 00505 M01S00503.tarl +++|* 00506 M01S00504.tarl +++|* USES A - 2, 6. 00507 M01S00505.tarl +++|* X - 1, 2, 6. 00508 M01S00506.tarl +++|* 00509 M01S00507.tarl +++|* MACROS ARGERR. 00510 M01S00508.tarl +++| 00511 M01S00509.tarl +++| 00512 M01S00510.tarl +++| PAE MX6 -30 00513 M01S00511.tarl +++| LX1 29-59 00514 M01S00512.tarl +++| SA2 X1-1 READ TRACE BACK WORD 00515 M01S00513.tarl +++| BX6 -X6*X2 00516 M01S00514.tarl +++| SA6 PAEA 00517 M01S00515.tarl +++| ARGERR A6 EXIT TO EXECUTIVE 00518 M01S00516.tarl +++| 00519 M01S00517.tarl +++| PAEA BSSZ 1 00520 M01S00518.tarl +++| IRR SPACE 4,15 00521 M01S00519.tarl +++|** IRR - ISSUE RECOVERY REQUEST. 00522 M01S00520.tarl +++|* 00523 M01S00521.tarl +++|* ENTRY (A1) = FWA OF REQUEST PARAMETER LIST. 00524 M01S00522.tarl +++|* (X1) = FUNCTION CODE. 00525 M01S00523.tarl +++|* 00526 M01S00524.tarl +++|* EXIT (A1) = FWA OF RETURN PARAMETER LIST. 00527 M01S00525.tarl +++|* 00528 M01S00526.tarl +++|* USES X - 1, 6, 7. 00529 M01S00527.tarl +++|* B - 1. 00530 M01S00528.tarl +++|* 00531 M01S00529.tarl +++|* CALLS SYS=. 00532 M01S00530.tarl +++| 00533 M01S00531.tarl +++| 00534 M01S00532.tarl +++| IRR SUBR ENTRY/EXIT 00535 M01S00533.tarl +++| SB1 1 00536 M01S00534.tarl +++| SX6 3RREC PREPARE RECOVERY REQUEST 00537 M01S00535.tarl +++| SX7 A1 PARAMETER LIST ADDRESS 00538 M01S00536.tarl +++| LX6 59-17 00539 M01S00537.tarl +++| BX6 X7+X6 00540 M01S00538.tarl +++| LX1 35-17 REQUEST CODE 00541 M01S00539.tarl +++| BX6 X6+X1 00542 M01S00540.tarl +++| RJ =XSYS= ISSUE REQUEST 00543 M01S00541.tarl +++| EQ IRRX RETURN 00544 M01S00542.tarl +++| END
cdc/nos2.source/opl.opl871/deck/tarl.txt · Last modified: by 127.0.0.1