cdc:nos2.source:opl.opl871:deck:tarl
Deck TARL
Library Member Format: MODIFY
Source
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
cdc/nos2.source/opl.opl871/deck/tarl.txt · Last modified: by 127.0.0.1