cdc:nos2.source:opl.opl871:deck:dmrec.006
Deck DMREC Part 006
25 Modifications
Listing Sections
- Deck DMREC Start
- Deck DMREC Part 1 (Line 1576)
- Deck DMREC Part 2 (Line 2763)
- Deck DMREC Part 3 (Line 3963)
- Deck DMREC Part 4 (Line 5864)
- Deck DMREC Part 5 (Line 7590)
- Deck DMREC Part 6 (Line 9242)
- Deck DMREC Part 7 (Line 10761)
- Deck DMREC Part 8 (Line 12611)
Source
Seq # *Modification Id* Act ----------------------------+ 09242 M01S08048.dmrec +++| SB5 B1 09243 M01S08049.dmrec +++| RJ PDE PRINT DELETED ENTRY 09244 M01S08050.dmrec +++| MDI4 SA1 WSAB+2 CONTINUATION VSN 09245 M01S08051.dmrec +++| ZR X1,MDI5 IF NO CONTINUATION VSN 09246 M01S08052.dmrec +++| RJ SVK SET VSN KEY 09247 M01S08053.dmrec +++| RMGET A0,WSAB,0,,VKY1 READ VSN ENTRY 09248 M01S08054.dmrec +++| FETCH A0,ES,X1 09249 M01S08055.dmrec +++| NZ X1,MDI11 IF ERROR, RETURN 09250 M01S08056.dmrec +++| EQ MDI2 PROCESS ENTRY 09251 M01S08057.dmrec +++| 09252 M01S08058.dmrec +++| MDI5 REWINDM A0 09253 M01S08059.dmrec +++| GETN A0,WSAB,,TKY1 DIRECTORY HEADER 09254 M01S08060.dmrec +++| MDI6 GETN A0,WSAB,,TKY1 NEXT DIRECTORY ENTRY 09255 M01S08061.dmrec +++| FETCH A0,FP,X3 09256 M01S08062.dmrec +++| MX1 0 09257 M01S08063.dmrec +++| SX2 X3-EOFF END OF FILE 09258 M01S08064.dmrec +++| ZR X2,MDIX IF END OF FILE 09259 M01S08065.dmrec +++| SA2 TKY2 SECOND WORD OF KEY 09260 M01S08066.dmrec +++| SA3 VSNK ALL ASTERISKS 09261 M01S08067.dmrec +++| BX1 X2-X3 COMPARE 09262 M01S08068.dmrec +++| ZR X1,MDI10 IF VSN TYPE ENTRY 09263 M01S08069.dmrec +++| SA1 WSAB+2 VSN FROM DUMP ENTRY 09264 M01S08070.dmrec +++| MX0 36 09265 M01S08071.dmrec +++| BX1 X0*X1 09266 M01S08072.dmrec +++| SA2 TVSN 09267 M01S08073.dmrec +++| BX1 X1-X2 COMPARE VSN NUMBERS 09268 M01S08074.dmrec +++| NZ X1,MDI6 IF NOT EQUAL, NEXT ENTRY 09269 M01S08075.dmrec +++| SA1 RECC RECORD COUNT 09270 M01S08076.dmrec +++| SX6 X1+B1 INCREMENT COUNT 09271 M01S08077.dmrec +++| SA2 WSAB+3 INDEX FILE 09272 M01S08078.dmrec +++| ZR X2,MDI7 IF NO INDEX FILE 09273 M01S08079.dmrec +++| SX6 X6+B1 INCREMENT COUNT 09274 M01S08080.dmrec +++| MDI7 SA6 RECC REPLACE COUNT 09275 M01S08081.dmrec +++| SA1 ADDF ADD FLAG 09276 M01S08082.dmrec +++| ZR X1,MDI8 IF DELETE 09277 M01S08083.dmrec +++| PUT DIRR,WSAB,WSAL,,TKY1 INSERT INTO DIRECTORY 09278 M01S08084.dmrec +++| RJ FER FIT ERROR STATUS 09279 M01S08085.dmrec +++| NZ X1,MDI12 IF ERROR, RETURN 09280 M01S08086.dmrec +++| SA0 FITA RESET *A0* 09281 M01S08087.dmrec +++| EQ MDI9 CONTINUE 09282 M01S08088.dmrec +++| 09283 M01S08089.dmrec +++| MDI8 DELETE A0,,TKY1 DELETE ENTRY 09284 M01S08090.dmrec +++| MDI9 SB5 B0 09285 M01S08091.dmrec +++| RJ PDE PRINT ENTRY ADDED/DELETED 09286 M01S08092.dmrec +++| EQ MDI6 PROCESS NEXT ENTRY 09287 M01S08093.dmrec +++| 09288 M01S08094.dmrec +++| MDI10 SA2 MDIF NUMBER OF ACTIVE FILES 09289 M01S08095.dmrec +++| SA3 RECC NUMBER OF ADDED/DELETED ENTRIES 09290 M01S08096.dmrec +++| IX1 X2-X3 09291 M01S08097.dmrec +++| NZ X1,MDI13 IF NUMBERS DO NOT MATCH 09292 M01S08098.dmrec +++| EQ MDIX NORMAL RETURN 09293 M01S08099.dmrec +++| 09294 M01S08100.dmrec +++| MDI11 ERROR CVNA,,,MDIX,,E VSN DOES NOT EXIST 09295 M01S08101.dmrec +++| 09296 M01S08102.dmrec +++| MDI12 ERROR MDIB,,,MDIX,,E DUPLICATE ENTER ON ADD 09297 M01S08103.dmrec +++| 09298 M01S08104.dmrec +++| MDI13 ERROR MDIC,,,MDIX,,E ERROR IN ADD/DELETE VSN 09299 M01S08105.dmrec +++| 09300 M01S08106.dmrec +++| MDIB DATA 20H0 ***** 09301 M01S08107.dmrec +++| DATA C*DUPLICATE ENTRY ON ADD.* 09302 M01S08108.dmrec +++| MDIBL EQU *-MDIB 09303 M01S08109.dmrec +++| 09304 M01S08110.dmrec +++| MDIC DATA 20H0 ***** 09305 M01S08111.dmrec +++| DATA C*ERROR IN ADD/DELETE VSN.* 09306 M01S08112.dmrec +++| MDICL EQU *-MDIC 09307 M01S08113.dmrec +++| 09308 M01S08114.dmrec +++| MDIF BSSZ 1 NUMBER OF ACTIVE FILES 09309 M01S08115.dmrec +++| MDS SPACE 4,20 09310 M01S08116.dmrec +++|** MDS - MODIFY DIRECTORY SELECTIVELY. 09311 M01S08117.dmrec +++|* 09312 M01S08118.dmrec +++|* *MDS* DELETES OR ADDS DUMP AND VSN ENTRIES BELONGING 09313 M01S08119.dmrec +++|* TO GIVEN VSN NUMBER FOR SELECTED FILE. 09314 M01S08120.dmrec +++|* 09315 M01S08121.dmrec +++|* ENTRY (TVSN) = VSN NUMBER. 09316 M01S08122.dmrec +++|* (ADDF) = 0, DELETE ENTRY. 09317 M01S08123.dmrec +++|* 1, ADD ENTRY. 09318 M01S08124.dmrec +++|* (FITA) = FWA OF AUXILARY FIT TABLE. 09319 M01S08125.dmrec +++|* 09320 M01S08126.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 09321 M01S08127.dmrec +++|* 09322 M01S08128.dmrec +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 09323 M01S08129.dmrec +++|* A - 0, 1, 2, 3, 6, 7. 09324 M01S08130.dmrec +++|* B - 5. 09325 M01S08131.dmrec +++|* 09326 M01S08132.dmrec +++|* CALLS CVN, FER, PDE, SFN, SVK. 09327 M01S08133.dmrec +++|* 09328 M01S08134.dmrec +++|* MACROS DELETE, ERROR, FETCH, GETN, PUT, RMGET, RMREP. 09329 M01S08135.dmrec +++| 09330 M01S08136.dmrec +++| 09331 M01S08137.dmrec +++| MDS SUBR ENTRY/EXIT 09332 M01S08138.dmrec +++| SX6 -2 09333 M01S08139.dmrec +++| SA6 LFNP PRESET FILE NAME POINTER 09334 M01S08140.dmrec +++| RJ CVN CHECK VSN NUMBER 09335 M01S08141.dmrec +++| SX6 A0 09336 M01S08142.dmrec +++| SA6 MDSE SAVE *A0* 09337 M01S08143.dmrec +++| NZ X1,MDSX IF ERROR, RETURN 09338 M01S08144.dmrec +++| MDS1 SA1 LFNP FILE POINTER IN *TDFS* TABLE 09339 M01S08145.dmrec +++| SX6 X1+2 INCREMENT POINTER 09340 M01S08146.dmrec +++| SA6 A1 REPLACE POINTER 09341 M01S08147.dmrec +++| SA1 LFNC NUMBER OF FILES IN *TDFS* TABLE 09342 M01S08148.dmrec +++| LX1 1 MULTIPLY BY TWO 09343 M01S08149.dmrec +++| IX2 X6-X1 09344 M01S08150.dmrec +++| MX1 0 09345 M01S08151.dmrec +++| ZR X2,MDSX IF END OF TABLE, NORMAL RETURN 09346 M01S08152.dmrec +++| SA1 TDFS+X6 SELECTIVE FILE NAME 09347 M01S08153.dmrec +++| MX0 42 09348 M01S08154.dmrec +++| BX6 X0*X1 09349 M01S08155.dmrec +++| SX2 3RAAA FILE HEADER 09350 M01S08156.dmrec +++| BX6 X2+X6 09351 M01S08157.dmrec +++| SA6 CKY1 KEY WORD ONE 09352 M01S08158.dmrec +++| MX7 0 09353 M01S08159.dmrec +++| SA7 CKY2 KEY WORD TWO 09354 M01S08160.dmrec +++| SA1 MDSE 09355 M01S08161.dmrec +++| SA0 X1 RESTORE *A0* 09356 M01S08162.dmrec +++| RMGET A0,WSAB,0,,CKY1 READ FILE HEADER 09357 M01S08163.dmrec +++| FETCH A0,ES,X2 FIT ERROR STATUS 09358 M01S08164.dmrec +++| SX1 B1 09359 M01S08165.dmrec +++| NZ X2,MDS7 IF FILE DOES NOT EXIST 09360 M01S08166.dmrec +++| MDS2 GETN A0,WSAB,,TKY1 NEXT FILE ENTRY 09361 M01S08167.dmrec +++| FETCH A0,FP,X2 FILE POSITION 09362 M01S08168.dmrec +++| MX1 0 09363 M01S08169.dmrec +++| SX2 X2-EOFF 09364 M01S08170.dmrec +++| ZR X2,MDS1 IF END OF FILE, NEXT SELECTIVE FILE 09365 M01S08171.dmrec +++| SA2 CKY1 ORIGINAL FILE NAME 09366 M01S08172.dmrec +++| MX0 42 09367 M01S08173.dmrec +++| BX2 X0*X2 09368 M01S08174.dmrec +++| SA3 TKY1 FILE NAME OF CURRENT ENTRY 09369 M01S08175.dmrec +++| BX3 X0*X3 09370 M01S08176.dmrec +++| BX4 X2-X3 09371 M01S08177.dmrec +++| NZ X4,MDS1 IF NEW FILE NAME 09372 M01S08178.dmrec +++| SA1 WSAB+2 VSN FROM DUMP ENTRY 09373 M01S08179.dmrec +++| MX0 36 09374 M01S08180.dmrec +++| BX1 X0*X1 09375 M01S08181.dmrec +++| SA2 TVSN 09376 M01S08182.dmrec +++| BX3 X1-X2 09377 M01S08183.dmrec +++| NZ X3,MDS2 IF VSNS NOT EQUAL, NEXT ENTRY 09378 M01S08184.dmrec +++| SA1 ADDF ADD/DELETE FLAG 09379 M01S08185.dmrec +++| NZ X1,MDS3 IF ADD PROCESS 09380 M01S08186.dmrec +++| SB5 B0 FILE DUMP ENTRY 09381 M01S08187.dmrec +++| RJ PDE PRINT DELETED ENTRY 09382 M01S08188.dmrec +++| RJ PVE PROCESS VSN ENTRY 09383 M01S08189.dmrec +++| NZ X1,MDSX IF ERROR, RETURN 09384 M01S08190.dmrec +++| DELETE DIRR,,TKY1 DELETE FILE DUMP ENTRY 09385 M01S08191.dmrec +++| EQ MDS1 NEXT SELECTIVE FILE 09386 M01S08192.dmrec +++| 09387 M01S08193.dmrec +++| MDS3 PUT DIRR,WSAB,WSAL,,TKY1 INSERT INTO DIRECTORY 09388 M01S08194.dmrec +++| RJ FER FIT ERROR STATUS 09389 M01S08195.dmrec +++| NZ X1,MDS8 IF DUPLICATE DUMP ENTRY 09390 M01S08196.dmrec +++| SB5 B0 09391 M01S08197.dmrec +++| RJ PDE PRINT ADDED ENTRY 09392 M01S08198.dmrec +++| SX6 B1 FILES IN ENTRY 09393 M01S08199.dmrec +++| SA1 WSAB+3 INDEX FILE 09394 M01S08200.dmrec +++| ZR X1,MDS4 IF NO INDEX FILE 09395 M01S08201.dmrec +++| SX6 X6+B1 09396 M01S08202.dmrec +++| MDS4 SA6 MDSA SAVE COUNT OF FILES 09397 M01S08203.dmrec +++| SA1 TVSN 09398 M01S08204.dmrec +++| RJ SVK SET VSN KEY 09399 M01S08205.dmrec +++| RMGET DIRR,WSAB,0,,VKY1 READ VSN ENTRY 09400 M01S08206.dmrec +++| RJ FER FIT ERROR STATUS 09401 M01S08207.dmrec +++| NZ X1,MDS5 IF VSN ENTRY NOT FOUND 09402 M01S08208.dmrec +++| SA2 MDSA ACTIVE FILES ON DUMP ENTRY 09403 M01S08209.dmrec +++| SA3 WSAB+4 ACTIVE FILES FROM VSN ENTRY 09404 M01S08210.dmrec +++| IX6 X2+X3 UPDATE COUNT 09405 M01S08211.dmrec +++| SA6 A3 09406 M01S08212.dmrec +++| RMREP DIRR,WSAB,WSAL,,VKY1 REPLACE VSN ENTRY 09407 M01S08213.dmrec +++| RJ FER FIT ERROR STATUS 09408 M01S08214.dmrec +++| NZ X1,MDSX IF ERROR, RETURN 09409 M01S08215.dmrec +++| EQ MDS1 NEXT SELECTIVE FILE 09410 M01S08216.dmrec +++| 09411 M01S08217.dmrec +++| MDS5 RMGET FITA,WSAB,0,,VKY1 READ VSN ENTRY FROM AUXILARY FIT 09412 M01S08218.dmrec +++| SA2 MDSA COUNT OF FILES ON DUMP ENTRY 09413 M01S08219.dmrec +++| BX6 X2 09414 M01S08220.dmrec +++| SA6 WSAB+4 INITIAL COUNT 09415 M01S08221.dmrec +++| MDS6 PUT DIRR,WSAB,WSAL,,VKY1 INSERT INTO DIRECTORY 09416 M01S08222.dmrec +++| RJ FER FIT ERROR STATUS 09417 M01S08223.dmrec +++| NZ X1,MDS9 IF DUPLICATE VSN ENTRY 09418 M01S08224.dmrec +++| SB5 B1 09419 M01S08225.dmrec +++| RJ PDE PRINT ADDED VSN ENTRY 09420 M01S08226.dmrec +++| SA1 WSAB+2 CONTINUATION VSN 09421 M01S08227.dmrec +++| ZR X1,MDS1 IF NO CONTINUATION VSN, SELECTIVE FILE 09422 M01S08228.dmrec +++| RJ SVK SET VSN KEY 09423 M01S08229.dmrec +++| RMGET FITA,WSAB,0,,VKY1 READ VSN FORM AUXILARY FIT 09424 M01S08230.dmrec +++| EQ MDS6 CONTINUE 09425 M01S08231.dmrec +++| 09426 M01S08232.dmrec +++| MDS7 SA1 CKY1 FILE NAME 09427 M01S08233.dmrec +++| MX0 42 09428 M01S08234.dmrec +++| BX1 X0*X1 09429 M01S08235.dmrec +++| RJ SFN SPACE FILL NAME 09430 M01S08236.dmrec +++| SA6 MDSB+2 09431 M01S08237.dmrec +++| ERROR MDSB,,,MDS1 FILE NOT FOUND 09432 M01S08238.dmrec +++| 09433 M01S08239.dmrec +++| MDS8 ERROR MDSC,,,MDSX,,E DUPLICATE DUMP ENTRY ON ADD 09434 M01S08240.dmrec +++| 09435 M01S08241.dmrec +++| MDS9 ERROR MDSD,,,MDSX,,E DUPLICATE VSN ENTRY ON ADD 09436 M01S08242.dmrec +++| 09437 M01S08243.dmrec +++| MDSA BSSZ 1 COUNT OF FILES IN DUMP ENTRY 09438 M01S08244.dmrec +++| 09439 M01S08245.dmrec +++| MDSB DATA 20H0 ***** 09440 M01S08246.dmrec +++| DATA C*XXXXXXX NOT FOUND IN DIRECTORY.* 09441 M01S08247.dmrec +++| MDSBL EQU *-MDSB 09442 M01S08248.dmrec +++| 09443 M01S08249.dmrec +++| MDSC DATA 20H0 ***** 09444 M01S08250.dmrec +++| DATA C*DUPLICATE DUMP ENTRY ON ADD.* 09445 M01S08251.dmrec +++| MDSCL EQU *-MDSC 09446 M01S08252.dmrec +++| 09447 M01S08253.dmrec +++| MDSD DATA 20H0 ***** 09448 M01S08254.dmrec +++| DATA C*DUPLICATE VSN ENTRY ON ADD.* 09449 M01S08255.dmrec +++| MDSDL EQU *-MDSD 09450 M01S08256.dmrec +++| 09451 M01S08257.dmrec +++| MDSE BSSZ 1 SAVE *A0* 09452 M01S08258.dmrec +++| NOP SPACE 4,15 09453 M01S08259.dmrec +++|** NOP - NOTIFY OPERATOR. 09454 M01S08260.dmrec +++|* 09455 M01S08261.dmrec +++|* *NOP* WILL NOTIFY THE OPERATOR AND PUT A MESSAGE INTO 09456 M01S08262.dmrec +++|* THE JOB-S DAYFILE. IF THIS JOB WAS SUBMITTED BY TAF, 09457 M01S08263.dmrec +++|* THE TAF IDENTIFIER (TT) WILL BE CLEARED SO TAF 09458 M01S08264.dmrec +++|* WILL NOT BE NOTIFIED OF SUCCESSFUL COMPLETION. THIS 09459 M01S08265.dmrec +++|* ROUTINE IS ALSO USED TO INFORM THE OPERATOR OF AN 09460 M01S08266.dmrec +++|* IMPENDING TAPE REQUEST FROM A TAF SUBMITTED JOB. 09461 M01S08267.dmrec +++|* 09462 M01S08268.dmrec +++|* ENTRY (A5) = MESSAGE ADDRESS. 09463 M01S08269.dmrec +++|* (TT) = TAF IDENTIFIER. 09464 M01S08270.dmrec +++|* (RQTREQ) .NE. 0, IF REQUEST FROM *RQT*. 09465 M01S08271.dmrec +++|* 09466 M01S08272.dmrec +++|* EXIT (TT) = 0, IF REQUEST NOT FROM *RQT* (DONT NOTIFY TAF). 09467 M01S08273.dmrec +++|* (TT) UNCHANGED, IF REQUEST FROM *RQT*. 09468 M01S08274.dmrec +++|* 09469 M01S08275.dmrec +++|* USES X - 1, 6. 09470 M01S08276.dmrec +++|* A - 1, 6. 09471 M01S08277.dmrec +++|* 09472 M01S08278.dmrec +++|* MACROS MESSAGE, RECALL. 09473 M01S08279.dmrec +++| 09474 M01S08280.dmrec +++| 09475 M01S08281.dmrec +++| NOP3 SA1 RQTREQ 09476 M01S08282.dmrec +++| NZ X1,NOPX IF REQUEST NOT FROM *RQT*, RETURN 09477 M01S08283.dmrec +++| SA6 TT 09478 M01S08284.dmrec +++| 09479 M01S08285.dmrec +++| NOP SUBR ENTRY/EXIT 09480 M01S08286.dmrec +++| NOP1 SA1 B0 GET RA+0 09481 M01S08287.dmrec +++| SX6 5 09482 M01S08288.dmrec +++| LX6 12 09483 M01S08289.dmrec +++| BX6 X6+X1 SET CFO AND PAUSE BITS 09484 M01S08290.dmrec +++| SA6 A1 09485 M01S08291.dmrec +++| SA1 RQTREQ 09486 M01S08292.dmrec +++| ZR X1,NOP1.1 IF REQUEST NOT FROM *RQT* 09487 M01S08293.dmrec +++| MESSAGE A5,2 09488 M01S08294.dmrec +++| EQ NOP2 GO INTO RECALL UNTIL RESPONSE 09489 M01S08295.dmrec +++| 09490 M01S08296.dmrec +++| NOP1.1 MESSAGE A5,3 09491 M01S08297.dmrec +++| MESSAGE NOPA,2 09492 M01S08298.dmrec +++| MESSAGE NOPB,3 09493 M01S08299.dmrec +++| NOP2 RECALL 09494 M01S08300.dmrec +++| SA1 B0 CHECK CFO BIT IN RA+0 09495 M01S08301.dmrec +++| LX1 59-14 09496 M01S08302.dmrec +++| NG X1,NOP2 IF NO RESPONSE 09497 M01S08303.dmrec +++| MESSAGE NOPC,2 09498 M01S08304.dmrec +++| SA1 70B GET RESPONSE FROM RA+70B 09499 M01S08305.dmrec +++| AX1 48 09500 M01S08306.dmrec +++| SX6 X1-2RGO CHECK FOR *GO* RESPONSE 09501 M01S08307.dmrec +++| ZR X6,NOP3 IF RESPONSE .EQ. *GO*, RETURN
| Line S08308 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 09502 M02S08308.v23l617 ---| EQ NOP1 RE-ISSUE MESSAGE ON INVALID RESPONSE 09503 M01S00062.v23l617 +++| EQ NOP1 RE-ISSUE MESSAGE ON INCORRECT RESPONSE 09504 M01S08309.dmrec +++| 09505 M01S08310.dmrec +++| NOPA DATA C*$SEE JOB DAYFILE.* 09506 M01S08311.dmrec +++| 09507 M01S08312.dmrec +++| NOPB DATA C* NOTE FAILURE, THEN TYPE IN CFO,JSN.GO.* 09508 M01S08313.dmrec +++| 09509 M01S08314.dmrec +++| NOPC BSSZ 1 ZERO WORD 09510 M01S08315.dmrec +++| NTF SPACE 4,20 09511 M01S08316.dmrec +++|** NTF - NOTIFY TAF. 09512 M01S08317.dmrec +++|* 09513 M01S08318.dmrec +++|* *NTF* WILL ISSUE A *SIC* REQUEST TO NOTIFY TAF THAT 09514 M01S08319.dmrec +++|* THE PRESENT *DMREC* FUNCTION HAS COMPLETED. 09515 M01S08320.dmrec +++|* 09516 M01S08321.dmrec +++|* ENTRY (TT) = TAF IDENTIFIER 09517 M01S08322.dmrec +++|* (XXPFN) = PFN OF DATA FILE OR LOG FILE.
| Line S08323 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 09518 M02S08323.ns2023 ---|* (TTFLG) = 1 - IF *LRF* DUMP. 09519 M01S00149.ns2023 +++|* (TTFLG) = 1 - IF *ARF* DUMP. 09520 M01S08324.dmrec +++|* 2 - IF RECOVER *DB* FILE (UPDATE PROCESSOR).
| Line S08325 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 09521 M02S08325.ns2023 ---|* 3 - IF *QRF* DOWN (UPDATE PROCESSOR). 09522 M01S00150.ns2023 +++|* 3 - IF *BRF* DOWN (UPDATE PROCESSOR). 09523 M01S08326.dmrec +++|* 09524 M01S08327.dmrec +++|* EXIT *SIC* REQUEST ISSUED TO TAF. 09525 M01S08328.dmrec +++|* 09526 M01S08329.dmrec +++|* USES X - 0, 1, 2, 5, 6. 09527 M01S08330.dmrec +++|* A - 1, 2, 5, 6. 09528 M01S08331.dmrec +++|* B - 7. 09529 M01S08332.dmrec +++|* 09530 M01S08333.dmrec +++|* MACROS SYSTEM. 09531 M01S08334.dmrec +++| 09532 M01S08335.dmrec +++| 09533 M01S08336.dmrec +++| NTF SUBR ENTRY/EXIT 09534 M01S08337.dmrec +++| SA5 TT 09535 M01S08338.dmrec +++| ZR X5,NTFX IF TT NOT SPECIFIED 09536 M01S08339.dmrec +++| SB7 B1 09537 M01S08340.dmrec +++| RJ DXB CONVERT TO BINARY 09538 M01S08341.dmrec +++| SA1 TDFN 09539 M01S08342.dmrec +++| MX0 42 09540 M01S08343.dmrec +++| BX1 X0*X1 09541 M01S08344.dmrec +++| NTF1 BX6 X6+X1 09542 M01S08345.dmrec +++| SA6 NTFB SET PFN/ID 09543 M01S08346.dmrec +++| SA2 TTFLG TELL TAF FLAG 09544 M01S08347.dmrec +++| BX6 X2 09545 M01S08348.dmrec +++| SA6 NTFC STORE FUNCTION CODE IN *SIC* REQUEST 09546 M01S08349.dmrec +++| 09547 M01S08350.dmrec +++| SYSTEM SIC,R,NTFA,NTFA+1 09548 M01S08351.dmrec +++| 09549 M01S08352.dmrec +++| EQ NTFX RETURN 09550 M01S08353.dmrec +++| 09551 M01S08354.dmrec +++| NTFA VFD 18/0,12//SSD/TRSI,30/0 09552 M01S08355.dmrec +++| VFD 12/2007B,30/0,18/4 09553 M01S08356.dmrec +++| VFD 42/6LCRMSIC,18/0 09554 M01S08357.dmrec +++| NTFB VFD 42/0,18/0 09555 M01S08358.dmrec +++| NTFC VFD 42/0,18/0 09556 M01S08359.dmrec +++| VFD 60/0 09557 M01S00172.ns2056 +++| PAC SPACE 4,10 09558 M01S00173.ns2056 +++|** PAC - PACK CONTROL CARD. 09559 M01S00174.ns2056 +++|* 09560 M01S00175.ns2056 +++|* *PAC* - REPACKS A PARAMETER BUFFER INTO A CONTROL CARD 09561 M01S00176.ns2056 +++|* FORMAT. THE PARAMETER BUFFER MUST BE LEFT JUSTIFIED ZERO 09562 M01S00177.ns2056 +++|* FILLED WITH NO SEPERATORS. THE PARAMETERS WILL BE PACKED 09563 M01S00178.ns2056 +++|* WITH COMMA SEPERATORS AND END WITH A PERIOD. 09564 M01S00179.ns2056 +++|* 09565 M01S00180.ns2056 +++|* ENTRY (B5) - ADDRESS OF CONTROL WORD BUFFER. 09566 M01S00181.ns2056 +++|* (B6) - PARAMETER COUNT. 09567 M01S00182.ns2056 +++|* (B7) - ADDRESS OF PAREMETER BUFFER. 09568 M01S00183.ns2056 +++|* 09569 M01S00184.ns2056 +++|* EXIT (B2) - NUMBER OF WORDS IN CONTROL CARD. 09570 M01S00185.ns2056 +++|* 09571 M01S00186.ns2056 +++|* USES X - 0, 1, 2, 3, 6. 09572 M01S00187.ns2056 +++|* A - 1, 2, 6. 09573 M01S00188.ns2056 +++|* B - 2, 3, 6. 09574 M01S00189.ns2056 +++| 09575 M01S00190.ns2056 +++| 09576 M01S00191.ns2056 +++| PAC SUBR ENTRY/EXIT 09577 M01S00192.ns2056 +++| MX0 6 CHARACTER MASK 09578 M01S00193.ns2056 +++| SB2 B0 REPLACEMENT WORD COUNT 09579 M01S00194.ns2056 +++| SB3 60 PARAMETER LOCATION POINTER 09580 M01S00195.ns2056 +++| SA2 B5+ 09581 M01S00196.ns2056 +++| SA1 B7+ 09582 M01S00197.ns2056 +++| PAC1 BX3 X0*X1 09583 M01S00198.ns2056 +++| ZR X3,PAC3 IF NO MORE CHARACTERS 09584 M01S00199.ns2056 +++| LX3 B3 09585 M01S00200.ns2056 +++| BX2 X2+X3 09586 M01S00201.ns2056 +++| SB3 B3-6 09587 M01S00202.ns2056 +++| LX1 6 09588 M01S00203.ns2056 +++| PAC2 NE B3,B0,PAC1 IF REPLACEMENT WORD NOT FULL 09589 M01S00204.ns2056 +++| BX6 X2 09590 M01S00205.ns2056 +++| SA6 A2 REPLACE REPLACEMENT WORD 09591 M01S00206.ns2056 +++| SA2 A2+1 09592 M01S00207.ns2056 +++| SB2 B2+B1 09593 M01S00208.ns2056 +++| MX2 0 ZERO OUT WORD 09594 M01S00209.ns2056 +++| SB3 60 09595 M01S00210.ns2056 +++| EQ PAC1 CONTINUE 09596 M01S00211.ns2056 +++| 09597 M01S00212.ns2056 +++| PAC3 SB3 B3-6 09598 M01S00213.ns2056 +++| SB6 B6-1 DECREMENT PARAMETER COUNT 09599 M01S00214.ns2056 +++| ZR B6,PAC4 IF LAST PARAMETER 09600 M01S00215.ns2056 +++| SX3 1R, 09601 M01S00216.ns2056 +++| LX3 B3 POSITION COMMA 09602 M01S00217.ns2056 +++| BX2 X2+X3 09603 M01S00218.ns2056 +++| SA1 A1+1 09604 M01S00219.ns2056 +++| EQ PAC2 CONTINUE 09605 M01S00220.ns2056 +++| 09606 M01S00221.ns2056 +++| PAC4 SX3 1R) 09607 M01S00222.ns2056 +++| LX3 B3 09608 M01S00223.ns2056 +++| BX6 X2+X3 09609 M01S00224.ns2056 +++| SA6 A2 09610 M01S00225.ns2056 +++| SB2 B2+B1 INCREMENT PACKED WORD COUNT 09611 M01S00226.ns2056 +++| EQ PACX RETURN 09612 M01S08360.dmrec +++| PDE SPACE 4,20 09613 M01S08361.dmrec +++|** PDE - PRINT DELETED ENTRY. 09614 M01S08362.dmrec +++|* 09615 M01S08363.dmrec +++|* ENTRY (B5) = 0, IF DUMP ENTRY. 09616 M01S08364.dmrec +++|* 1, IF VSN ENTRY. 09617 M01S08365.dmrec +++|* (ADDF) = 0, DELETE ENTRY. 09618 M01S08366.dmrec +++|* 1, ADD ENTRY. 09619 M01S08367.dmrec +++|* (WSAB) = FWA OF DELETED ENTRY. 09620 M01S08368.dmrec +++|* 09621 M01S08369.dmrec +++|* EXIT ENTRY PRINTED. 09622 M01S08370.dmrec +++|* 09623 M01S08371.dmrec +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 09624 M01S08372.dmrec +++|* A - 1, 2, 3, 5, 6, 7. 09625 M01S08373.dmrec +++|* B - NONE. 09626 M01S08374.dmrec +++|* 09627 M01S08375.dmrec +++|* CALLS BFL, LDE, SFN. 09628 M01S08376.dmrec +++|* 09629 M01S08377.dmrec +++|* MACROS EDATE, ETIME. 09630 M01S08378.dmrec +++| 09631 M01S08379.dmrec +++| 09632 M01S08380.dmrec +++| PDE SUBR ENTRY/EXIT 09633 M01S08381.dmrec +++| RJ BFL BLANK FILL LINE 09634 M01S08382.dmrec +++| SA1 PDEA 09635 M01S08383.dmrec +++| SA2 ADDF ADD FLAG 09636 M01S08384.dmrec +++| ZR X2,PDE1 IF ENTRY DELETED 09637 M01S08385.dmrec +++| SA1 PDEC 09638 M01S08386.dmrec +++| PDE1 BX6 X1 09639 M01S08387.dmrec +++| SA6 PLIN+1 09640 M01S08388.dmrec +++| EQ B5,B1,PDE4 IF VSN ENTRY 09641 M01S08389.dmrec +++| SA2 WSAB FILE NAME 09642 M01S08390.dmrec +++| MX0 -18 09643 M01S08391.dmrec +++| BX1 -X0*X2 COPY NUMBER 09644 M01S08392.dmrec +++| SX3 3RBBB FILE DUMP ENTRY 09645 M01S08393.dmrec +++| BX3 X1-X3 09646 M01S08394.dmrec +++| ZR X3,PDE2 IF FILE DUMP ENTRY 09647 M01S08395.dmrec +++| SA3 LOGT AFTER IMAGE LOG TYPE 09648 M01S08396.dmrec +++| BX3 X0*X3 09649 M01S08397.dmrec +++| BX6 X1+X3 09650 M01S08398.dmrec +++| EQ PDE3 CONTINUE 09651 M01S08399.dmrec +++| 09652 M01S08400.dmrec +++| PDE2 SA1 TFIL FILE DUMP TYPE 09653 M01S08401.dmrec +++| BX6 X1 09654 M01S08402.dmrec +++| PDE3 SA6 PLIN+2 09655 M01S08403.dmrec +++| BX1 X0*X2 FILE NAME 09656 M01S08404.dmrec +++| RJ SFN SPACE FILL NAME 09657 M01S08405.dmrec +++| LX6 53-59 09658 M01S08406.dmrec +++| SA6 PLIN+3 09659 M01S08407.dmrec +++| SA5 WSAB+1 PACKED DATE/TIME 09660 M01S08408.dmrec +++| ETIME X5 UNPACK TIME 09661 M01S08409.dmrec +++| SA6 PLIN+5 09662 M01S08410.dmrec +++| AX5 18 09663 M01S08411.dmrec +++| EDATE X5 UNPACK DATE 09664 M01S08412.dmrec +++| SA6 PLIN+4 09665 M01S08413.dmrec +++| SA1 WSAB+2 VSN NUMBER 09666 M01S08414.dmrec +++| MX0 36 09667 M01S08415.dmrec +++| BX1 X0*X1 09668 M01S08416.dmrec +++| RJ SFN SPACE FILL NAME 09669 M01S08417.dmrec +++| LX6 47-59 09670 M01S08418.dmrec +++| SA6 PLIN+6 09671 M01S08419.dmrec +++| MX7 0 09672 M01S08420.dmrec +++| SA7 PLIN+8 TERMINATE LINE 09673 M01S08421.dmrec +++| EQ PDE5 PRINT THE LINE 09674 M01S08422.dmrec +++| 09675 M01S08423.dmrec +++| PDE4 SA2 WSAB VSN NUMBER 09676 M01S08424.dmrec +++| LX2 59-35 09677 M01S08425.dmrec +++| MX0 36 09678 M01S08426.dmrec +++| BX1 X0*X2 09679 M01S08427.dmrec +++| RJ SFN SET FILE NAME 09680 M01S08428.dmrec +++| SA6 PLIN+3 09681 M01S08429.dmrec +++| SA2 PDEB 09682 M01S08430.dmrec +++| BX7 X2 09683 M01S08431.dmrec +++| SA7 PLIN+2 09684 M01S08432.dmrec +++| MX6 0 09685 M01S08433.dmrec +++| SA6 PLIN+4 TERMINATE LINE 09686 M01S08434.dmrec +++| PDE5 RJ LDE PRINT ENTRY 09687 M01S08435.dmrec +++| EQ PDEX RETURN 09688 M01S08436.dmrec +++| 09689 M01S08437.dmrec +++| PDEA DATA 10HDELETED - 09690 M01S08438.dmrec +++| PDEB DATA 10H VSN = 09691 M01S08439.dmrec +++| PDEC DATA 10H ADDED - 09692 M01S08440.dmrec +++| PDT SPACE 4,20 09693 M01S08441.dmrec +++|** PDT - PACK DATE AND TIME. 09694 M01S08442.dmrec +++|* 09695 M01S08443.dmrec +++|* *PDT* GENERATES A PACKED DATE AND TIME FROM DATE/TIME 09696 M01S08444.dmrec +++|* IN THE FORMAT OF THE INPUT PARAMETERS. 09697 M01S08445.dmrec +++|* 09698 M01S08446.dmrec +++|* ENTRY (X2) = DATE - 6LYYMMDD 09699 M01S08447.dmrec +++|* (X3) = TIME - 6LHHMMSS 09700 M01S08448.dmrec +++|* 09701 M01S08449.dmrec +++|* EXIT (X1) = 0 IF NO ERRORS 09702 M01S08450.dmrec +++|* (X6) = PACKED DATE/TIME 09703 M01S08451.dmrec +++|* 09704 M01S08452.dmrec +++|* USES A - 2, 6. 09705 M01S08453.dmrec +++|* X - 0, 1, 2, 5, 6. 09706 M01S08454.dmrec +++|* B - 7. 09707 M01S08455.dmrec +++|* 09708 M01S08456.dmrec +++|* CALLS DXB. 09709 M01S08457.dmrec +++|* 09710 M01S08458.dmrec +++|* MACROS ERROR. 09711 M01S08459.dmrec +++| 09712 M01S08460.dmrec +++| 09713 M01S08461.dmrec +++| PDT SUBR ENTRY/EXIT 09714 M01S08462.dmrec +++| SB7 B1 09715 M01S08463.dmrec +++| BX6 X2 09716 M01S08464.dmrec +++| SA6 TEMP1 SAVE DATE 09717 M01S08465.dmrec +++| BX6 X3 09718 M01S08466.dmrec +++| SA6 TEMP2 SAVE TIME 09719 M01S08467.dmrec +++| MX0 12 09720 M01S08468.dmrec +++| BX5 X0*X2 09721 M01S08469.dmrec +++| RJ =XDXB YEAR 09722 M01S08470.dmrec +++| NZ X4,PDT1 IF ERROR 09723 M01S08471.dmrec +++| SX6 X6-70D 09724 M01S08472.dmrec +++| LX6 6 09725 M01S08473.dmrec +++| SA6 DAT XXXXY0 09726 M01S08474.dmrec +++| SA2 TEMP1 09727 M01S08475.dmrec +++| LX2 12 09728 M01S08476.dmrec +++| MX0 12 09729 M01S08477.dmrec +++| BX5 X0*X2 09730 M01S08478.dmrec +++| RJ =XDXB 09731 M01S08479.dmrec +++| NZ X4,PDT1 IF ERROR 09732 M01S08480.dmrec +++| SA2 DAT 09733 M01S08481.dmrec +++| BX6 X6+X2 09734 M01S08482.dmrec +++| LX6 6 09735 M01S08483.dmrec +++| SA6 A2 XXXYM0 09736 M01S08484.dmrec +++| SA2 TEMP1 09737 M01S08485.dmrec +++| LX2 24 09738 M01S08486.dmrec +++| MX0 12 09739 M01S08487.dmrec +++| BX5 X0*X2 09740 M01S08488.dmrec +++| RJ =XDXB DAY 09741 M01S08489.dmrec +++| NZ X4,PDT1 IF ERROR 09742 M01S08490.dmrec +++| SA2 DAT 09743 M01S08491.dmrec +++| BX6 X6+X2 09744 M01S08492.dmrec +++| LX6 6 09745 M01S08493.dmrec +++| SA6 A2 XXYMD0 09746 M01S08494.dmrec +++| SA2 TEMP2 09747 M01S08495.dmrec +++| MX0 12 09748 M01S08496.dmrec +++| BX5 X0*X2 09749 M01S08497.dmrec +++| RJ =XDXB HOUR 09750 M01S08498.dmrec +++| NZ X4,PDT1 IF ERROR 09751 M01S08499.dmrec +++| SA2 DAT 09752 M01S08500.dmrec +++| BX6 X6+X2 09753 M01S08501.dmrec +++| LX6 6 09754 M01S08502.dmrec +++| SA6 A2 XYMDH0 09755 M01S08503.dmrec +++| SA2 TEMP2 09756 M01S08504.dmrec +++| MX0 12 09757 M01S08505.dmrec +++| LX2 12 09758 M01S08506.dmrec +++| BX5 X0*X2 09759 M01S08507.dmrec +++| RJ =XDXB MINUTE 09760 M01S08508.dmrec +++| NZ X4,PDT1 IF ERROR 09761 M01S08509.dmrec +++| SA2 DAT 09762 M01S08510.dmrec +++| BX6 X6+X2 09763 M01S08511.dmrec +++| LX6 6 09764 M01S08512.dmrec +++| SA6 A2 YMDHM0 09765 M01S08513.dmrec +++| SA2 TEMP2 09766 M01S08514.dmrec +++| MX0 12 09767 M01S08515.dmrec +++| LX2 24 09768 M01S08516.dmrec +++| BX5 X0*X2 09769 M01S08517.dmrec +++| RJ =XDXB SECOND 09770 M01S08518.dmrec +++| NZ X4,PDT1 IF ERROR 09771 M01S08519.dmrec +++| SA2 DAT 09772 M01S08520.dmrec +++| BX6 X6+X2 09773 M01S08521.dmrec +++| SA6 A2 YMDHMS 09774 M01S08522.dmrec +++| SX1 B0 09775 M01S08523.dmrec +++| EQ PDTX EXIT NORMAL 09776 M01S08524.dmrec +++| 09777 M01S08525.dmrec +++| PDT1 ERROR PDTA,,,PDTX,,E PACKED DATE/TIME CONVERSION ERROR 09778 M01S08526.dmrec +++| 09779 M01S08527.dmrec +++| PDTA DATA 20H0 ***** 09780 M01S08528.dmrec +++| DATA C*PACKED DATE/TIME CONVERSION ERROR.* 09781 M01S08529.dmrec +++| PDTAL EQU *-PDTA
| Line S08530 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09782 M02S08530.ns2056 ---| PPS SPACE 4,25
| Line S08531 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09783 M02S08531.ns2056 ---|** PPS - PACK PARAMETER STRING.
| Line S08532 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09784 M02S08532.ns2056 ---|*
| Line S08533 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09785 M02S08533.ns2056 ---|* THIS SUBROUTINE PACKS A SET OF PARAMETERS RESIDING IN
| Line S08534 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09786 M02S08534.ns2056 ---|* CONTIGUOUS WORDS INTO A CHARACTER STRING. IF SPECIFIED
| Line S08535 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09787 M02S08535.ns2056 ---|* BY THE CALLER, A DELIMITER WILL BE INSERTED BETWEEN
| Line S08536 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09788 M02S08536.ns2056 ---|* EACH PARAMETER. THE TERMINATOR SPECIFIED BY THE
| Line S08537 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09789 M02S08537.ns2056 ---|* CALLER WILL BE APPENDED TO THE LAST PARAMETER.
| Line S08538 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09790 M02S08538.ns2056 ---|* BEFORE THE PARAMETERS ARE PACKED, EIGHT WORDS
| Line S08539 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09791 M02S08539.ns2056 ---|* OF THE RECEIVING AREA ARE PADDED WITH BLANKS.
| Line S08540 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09792 M02S08540.ns2056 ---|* UPON ENTRY, THE PARAMETERS MUST BE LEFT-JUSTIFIED IN A
| Line S08541 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09793 M02S08541.ns2056 ---|* WORD, ZERO-FILLED.
| Line S08542 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09794 M02S08542.ns2056 ---|*
| Line S08543 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09795 M02S08543.ns2056 ---|* ENTRY (X1) = FIRST PARAMETER, LEFT-JUSTIFIED.
| Line S08544 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09796 M02S08544.ns2056 ---|* (X2) = TERMINATOR, RIGHT-JUSTIFIED.
| Line S08545 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09797 M02S08545.ns2056 ---|* (X3) = DELIMITER, RIGHT-JUSTIFIED (IF ANY).
| Line S08546 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09798 M02S08546.ns2056 ---|* = ZERO, IF NO DELIMITER TO BE INSERTED.
| Line S08547 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09799 M02S08547.ns2056 ---|* (A1) = FWA OF THE PARAMETER AREA.
| Line S08548 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09800 M02S08548.ns2056 ---|* (B5) = NUMBER OF PARAMETER WORDS TO PROCESS.
| Line S08549 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09801 M02S08549.ns2056 ---|* (PPSA) = FWA OF EIGHT WORD DESTINATION AREA.
| Line S08550 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09802 M02S08550.ns2056 ---|*
| Line S08551 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09803 M02S08551.ns2056 ---|* EXIT (A6) = ADDRESS OF LAST WORD STORED IN DESTINATION
| Line S08552 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09804 M02S08552.ns2056 ---|* AREA.
| Line S08553 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09805 M02S08553.ns2056 ---|*
| Line S08554 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09806 M02S08554.ns2056 ---|* USES X - 1, 2, 4, 6, 7.
| Line S08555 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09807 M02S08555.ns2056 ---|* A - 1, 4, 6.
| Line S08556 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09808 M02S08556.ns2056 ---|* B - 2, 5, 6, 7.
| Line S08557 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09809 M02S08557.ns2056 ---|
| Line S08558 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09810 M02S08558.ns2056 ---|
| Line S08559 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09811 M02S08559.ns2056 ---| PPS SUBR ENTRY/EXIT
| Line S08560 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09812 M02S08560.ns2056 ---| SB6 8-1 COUNT 8 WORDS
| Line S08561 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09813 M02S08561.ns2056 ---| SA4 PPSA DESTINATION ADDRESS
| Line S08562 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09814 M02S08562.ns2056 ---| MX7 -6 RIGHT CHARACTER MASK
| Line S08563 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09815 M02S08563.ns2056 ---| SB7 A4+2
| Line S08564 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09816 M02S08564.ns2056 ---| SA4 X4+B1 BLANKS
| Line S08565 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09817 M02S08565.ns2056 ---| BX6 X4
| Line S08566 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09818 M02S08566.ns2056 ---| PPS1 SA6 B7+B6 BLANK FILL DESTINATION AREA
| Line S08567 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09819 M02S08567.ns2056 ---| SB6 B6-B1
| Line S08568 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09820 M02S08568.ns2056 ---| PL B6,PPS1 IF MORE WORDS
| Line S08569 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09821 M02S08569.ns2056 ---| SX6 B0
| Line S08570 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09822 M02S08570.ns2056 ---| SB6 10
| Line S08571 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09823 M02S08571.ns2056 ---| SB5 B5-B1 DECREMENT WORD COUNT
| Line S08572 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09824 M02S08572.ns2056 ---| PPS2 LX1 6 RIGHT JUSTIFY CHARACTER
| Line S08573 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09825 M02S08573.ns2056 ---| BX4 -X7*X1
| Line S08574 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09826 M02S08574.ns2056 ---| ZR X4,PPS3 IF NO CHARACTER
| Line S08575 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09827 M02S08575.ns2056 ---| LX6 6
| Line S08576 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09828 M02S08576.ns2056 ---| BX6 X6+X4 COPY CHARACTER
| Line S08577 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09829 M02S08577.ns2056 ---| SB6 B6-B1 DECREMENT CHARACTER COUNT
| Line S08578 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09830 M02S08578.ns2056 ---| BX1 X7*X1 CLEAR COPIED CHARACTER
| Line S08579 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09831 M02S08579.ns2056 ---| NZ B6,PPS2 IF NOT 10 CHARACTERS
| Line S08580 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09832 M02S08580.ns2056 ---| SA6 B7 STORE WORD
| Line S08581 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09833 M02S08581.ns2056 ---| SB7 B7+B1 INCREMENT DESTINATION ADDRESS
| Line S08582 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09834 M02S08582.ns2056 ---| SX6 0
| Line S08583 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09835 M02S08583.ns2056 ---| SB6 10
| Line S08584 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09836 M02S08584.ns2056 ---| EQ PPS2 CONTINUE PACKING
| Line S08585 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09837 M02S08585.ns2056 ---|
| Line S08586 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09838 M02S08586.ns2056 ---| PPS3 ZR B5,PPS7 IF NO WORDS REMAIN
| Line S08587 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09839 M02S08587.ns2056 ---| ZR X3,PPS4 IF NO DELIMITER TO BE INSERTED
| Line S08588 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09840 M02S08588.ns2056 ---| LX6 6
| Line S08589 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09841 M02S08589.ns2056 ---| BX6 X6+X3 ADD DELIMITER TO CHARACTER STRING
| Line S08590 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09842 M02S08590.ns2056 ---| SB6 B6-1 DECREMENT CHARACTER COUNT
| Line S08591 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09843 M02S08591.ns2056 ---| NZ B6,PPS4 IF NOT 10 CHARACTERS
| Line S08592 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09844 M02S08592.ns2056 ---| SA6 B7 STORE WORD
| Line S08593 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09845 M02S08593.ns2056 ---| SB7 B7+B1 INCREMENT DESTINATION ADDRESS
| Line S08594 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09846 M02S08594.ns2056 ---| SX6 0
| Line S08595 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09847 M02S08595.ns2056 ---| SB6 10
| Line S08596 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09848 M02S08596.ns2056 ---| PPS4 SB5 B5-B1 DECREMENT WORD COUNT
| Line S08597 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09849 M02S08597.ns2056 ---| SA1 A1+B1 GET NEXT WORD
| Line S08598 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09850 M02S08598.ns2056 ---| EQ PPS2 PROCESS NEXT WORD
| Line S08599 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09851 M02S08599.ns2056 ---|
| Line S08600 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09852 M02S08600.ns2056 ---|* ADD TERMINATOR TO CHARACTER STRING.
| Line S08601 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09853 M02S08601.ns2056 ---|
| Line S08602 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09854 M02S08602.ns2056 ---| PPS7 SB2 B6-B1
| Line S08603 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09855 M02S08603.ns2056 ---| PPS5 LX6 6
| Line S08604 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09856 M02S08604.ns2056 ---| BX6 X6+X2 ADD TERMINATOR TO CHARACTER STRING
| Line S08605 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09857 M02S08605.ns2056 ---| SB6 B6-1 DECREMENT CHARACTER COUNT
| Line S08606 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09858 M02S08606.ns2056 ---| SX2 B0 ZERO FILL REMAINDER OF WORD
| Line S08607 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09859 M02S08607.ns2056 ---| NZ B6,PPS5 IF NOT 10 CHARACTERS
| Line S08608 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09860 M02S08608.ns2056 ---| PPS6 SA6 B7 STORE LAST WORD
| Line S08609 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09861 M02S08609.ns2056 ---| EQ PPSX RETURN
| Line S08610 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09862 M02S08610.ns2056 ---|
| Line S08611 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09863 M02S08611.ns2056 ---| PPSA BSSZ 1 BUFFER
| Line S08612 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09864 M02S08612.ns2056 ---| CON 10H
| Line S08613 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2056 |
Seq # *Modification Id* Act ----------------------------+ 09865 M02S08613.ns2056 ---| BSSZ 8 DESTINATION BUFFER 09866 M01S08614.dmrec +++| PRD SPACE 4,30 09867 M01S08615.dmrec +++|** PRD - PUT RECORD. 09868 M01S08616.dmrec +++|* 09869 M01S08617.dmrec +++|* *PRD* BUILDS *CRM* FILES FROM RECORDS EXTRACTED FROM 09870 M01S08618.dmrec +++|* A *DMREC* DUMP TAPE. THIS ROUTINE ACCOMMODATES 09871 M01S08619.dmrec +++|* COMPRESSED AND NON-COMPRESSED RECORDS WITH OR WITHOUT 09872 M01S08620.dmrec +++|* EMBEDDED KEYS. 09873 M01S08621.dmrec +++|* 09874 M01S08622.dmrec +++|* ENTRY (LFWA) = FWA OF ENTIRE RECORD. 09875 M01S08623.dmrec +++|* (LLGN) = LENGTH OF RECORD IN WORDS (INCLUDES 09876 M01S08624.dmrec +++|* NON-EMBEDDED KEY) 09877 M01S08625.dmrec +++|* (LCOMP) = COMPRESSION FLAG - NG. IF COMPRESSED. 09878 M01S08626.dmrec +++|* (LUCC) = NUMBER OF UNUSED CHARACTERS IN RECORD. 09879 M01S08627.dmrec +++|* (LKLOC) = WORD POSITION FOR KEY. 09880 M01S08628.dmrec +++|* = 0 - IF NON-EMBEDDED KEY. 09881 M01S08629.dmrec +++|* (LKP) = POSITION OF KEY IN WORD. 09882 M01S08630.dmrec +++|* = 10 - IF NON-EMBEDDED KEY. 09883 M01S08631.dmrec +++|* (LKS) = KEY SIZE IN CHARACTERS. 09884 M01S08632.dmrec +++|* 09885 M01S08633.dmrec +++|* EXIT (X1) = 0 - IF NO ERRORS. 09886 M01S08634.dmrec +++|* 09887 M01S08635.dmrec +++|* USES X - 1, 2, 3, 4, 5, 6, 7. 09888 M01S08636.dmrec +++|* A - 1, 2, 3, 4, 5, 6, 7. 09889 M01S08637.dmrec +++|* B - NONE. 09890 M01S08638.dmrec +++|* 09891 M01S08639.dmrec +++|* CALLS DCK, DCR. 09892 M01S08640.dmrec +++|* 09893 M01S08641.dmrec +++|* MACROS ERROR, FETCH, PUT, STORE. 09894 M01S08642.dmrec +++| 09895 M01S08643.dmrec +++| 09896 M01S08644.dmrec +++| PRD SUBR ENTRY/EXIT 09897 M01S08645.dmrec +++| SA1 LFWA FWA OF RECORD 09898 M01S08646.dmrec +++| BX6 X1 09899 M01S08647.dmrec +++| SA6 PRDA WSA FOR *PUT* 09900 M01S08648.dmrec +++| SA2 LLGN LENGTH OF RECORD 09901 M01S08649.dmrec +++| SX5 10 09902 M01S08650.dmrec +++| SA4 LUCC GET UNUSED CHARACTER COUNT 09903 M01S08651.dmrec +++| IX6 X5*X2 09904 M01S08652.dmrec +++| IX6 X6-X4 09905 M01S08653.dmrec +++| SA6 PRDA+1 RL FOR *PUT* 09906 M01S08654.dmrec +++| SA1 LCOMP COMPRESSION FLAG 09907 M01S08655.dmrec +++| NG X1,PRD3 IF RECORD COMPRESSED 09908 M01S08656.dmrec +++| 09909 M01S08657.dmrec +++|* SET *PUT* PARAMETERS FOR UNCOMPRESSED RECORDS. 09910 M01S08658.dmrec +++| 09911 M01S08659.dmrec +++| SA3 LKP 09912 M01S08660.dmrec +++| SX3 X3-10 09913 M01S08661.dmrec +++| ZR X3,PRD1 IF KEY NON-EMBEDDED 09914 M01S08662.dmrec +++| SA3 LKLOC WORD POSITION OF KEY 09915 M01S08663.dmrec +++| SA1 LFWA 09916 M01S08664.dmrec +++| SA4 LKP KEY POSITION 09917 M01S08665.dmrec +++| IX6 X1+X3 ABSOLUTE KEY ADDRESS 09918 M01S08666.dmrec +++| SA6 PRDA+2 ABSOLUTE KA FOR *PUT* AND DECOLLATION 09919 M01S08667.dmrec +++| BX6 X4 09920 M01S08668.dmrec +++| SA6 PRDA+3 KP FOR *PUT* 09921 M01S08669.dmrec +++| EQ PRD7 CHECK FOR COLLATED KEY 09922 M01S08670.dmrec +++| 09923 M01S08671.dmrec +++|* SET *PUT* PARAMETERS FOR UNCOMPRESSED RECORDS 09924 M01S08672.dmrec +++|* WITH NON-EMBEDDED KEYS. 09925 M01S08673.dmrec +++| 09926 M01S08674.dmrec +++| PRD1 SX7 B0 09927 M01S08675.dmrec +++| SA7 PRDA+3 KP FOR *PUT* 09928 M01S08676.dmrec +++| SA2 LFWA 09929 M01S08677.dmrec +++| BX7 X2 09930 M01S08678.dmrec +++| SA7 PRDA+2 KA FOR *PUT* 09931 M01S08679.dmrec +++| SA2 XXTY FILE TYPE 09932 M01S08680.dmrec +++| SX1 X2-2RAK 09933 M01S08681.dmrec +++| NZ X1,PRD2 IF NOT *AK* FILE 09934 M01S08682.dmrec +++| 09935 M01S08683.dmrec +++|* PROCESS *AK* FILE. 09936 M01S08684.dmrec +++| 09937 M01S08685.dmrec +++| SA3 LFWA 09938 M01S08686.dmrec +++| BX6 X3 09939 M01S08687.dmrec +++| SA6 PRDA WSA FOR *PUT* 09940 M01S08688.dmrec +++| SA2 LLGN RL 09941 M01S08689.dmrec +++| SX3 10 09942 M01S08690.dmrec +++| IX6 X2*X3 09943 M01S08691.dmrec +++| SA4 LUCC UNUSED CHARACTERS 09944 M01S08692.dmrec +++| IX7 X6-X4 09945 M01S08693.dmrec +++| SA7 PRDA+1 RL FOR *PUT* 09946 M01S08694.dmrec +++| EQ PRD7 CHECK FOR COLLATED KEY 09947 M01S08695.dmrec +++| 09948 M01S08696.dmrec +++| PRD2 SA3 LKS *IS* OR *DA* FILE (KEY SIZE) 09949 M01S08697.dmrec +++| SX3 X3+9 09950 M01S08698.dmrec +++| SX4 10 09951 M01S08699.dmrec +++| IX5 X3/X4 WORDS IN KEY 09952 M01S08700.dmrec +++| SX4 10 09953 M01S08701.dmrec +++| SA2 LFWA 09954 M01S08702.dmrec +++| IX6 X2+X5 09955 M01S08703.dmrec +++| SA6 PRDA WSA FOR *PUT* 09956 M01S08704.dmrec +++| SA3 LLGN RL 09957 M01S08705.dmrec +++| IX6 X3-X5 09958 M01S08706.dmrec +++| IX7 X6*X4 09959 M01S08707.dmrec +++| SA5 LUCC UNUSED CHARACTERS 09960 M01S08708.dmrec +++| IX6 X7-X5 09961 M01S08709.dmrec +++| SA6 A6+B1 RL FOR *PUT* 09962 M01S08710.dmrec +++| EQ PRD7 CHECK FOR COLLATED KEY 09963 M01S08711.dmrec +++| 09964 M01S08712.dmrec +++|* RECORD IS COMPRESSED - SET-UP DECOMPRESSION VECTOR. 09965 M01S08713.dmrec +++| 09966 M01S08714.dmrec +++| PRD3 SA1 LKP 09967 M01S08715.dmrec +++| SX1 X1-10 09968 M01S08716.dmrec +++| ZR X1,PRD4 IF KEY NON-EMBEDDED 09969 M01S08717.dmrec +++| SA2 PRDA FWA OF RECORD 09970 M01S08718.dmrec +++| BX6 X2 09971 M01S08719.dmrec +++| SA6 PRDL FWA 09972 M01S08720.dmrec +++| SA3 PRDA+1 RL 09973 M01S08721.dmrec +++| BX6 X3 09974 M01S08722.dmrec +++| SA6 PRDM RL IN CHARACTERS 09975 M01S08723.dmrec +++| SA3 LKS KS 09976 M01S08724.dmrec +++| BX6 X3 09977 M01S08725.dmrec +++| SA6 PRDN KS IN CHARACTERS 09978 M01S08726.dmrec +++| SX6 B0 09979 M01S08727.dmrec +++| SA6 PRDK 09980 M01S08728.dmrec +++| SA6 PRDP 09981 M01S08729.dmrec +++| EQ PRD6 GO DECOMPRESS 09982 M01S08730.dmrec +++| 09983 M01S08731.dmrec +++|* RECORD IS COMPRESSED AND CONTAINS A NON-EMBEDDED KEY. 09984 M01S08732.dmrec +++| 09985 M01S08733.dmrec +++| PRD4 SX7 B0 09986 M01S08734.dmrec +++| SA7 PRDN KS = 0 09987 M01S08735.dmrec +++| SA7 PRDK KA = 0 09988 M01S08736.dmrec +++| SA7 PRDP KP = 0 09989 M01S08737.dmrec +++| SA3 XXTY FILE TYPE 09990 M01S08738.dmrec +++| SX4 X3-2RAK 09991 M01S08739.dmrec +++| PRD5 SA1 PRDA+1 09992 M01S08740.dmrec +++| BX6 X1 09993 M01S08741.dmrec +++| SA6 PRDM RL 09994 M01S08742.dmrec +++| SA2 PRDA 09995 M01S08743.dmrec +++| BX6 X2 09996 M01S08744.dmrec +++| SA6 PRDL FWA 09997 M01S08745.dmrec +++| 09998 M01S08746.dmrec +++|* DECOMPRESS RECORD USING THE DECOMPRESSION VECTOR 09999 M01S08747.dmrec +++|* ALREADY SET-UP. 10000 M01S08748.dmrec +++| 10001 M01S08749.dmrec +++| PRD6 SA1 PRDB VECTOR 10002 M01S08750.dmrec +++| RJ DCR DECOMPRESS RECORD 10003 M01S08751.dmrec +++| SA1 PRDO 10004 M01S08752.dmrec +++| NG X1,PRD9 IF ERROR IN DECOMPRESSION 10005 M01S08753.dmrec +++| 10006 M01S08754.dmrec +++|* BUILD *PUT* PARAMETERS FOR COMPRESSED RECORDS. 10007 M01S08755.dmrec +++| 10008 M01S08756.dmrec +++| SX7 CBUF DECOMPRESSION BUFFER 10009 M01S08757.dmrec +++| SA7 PRDA WSA FOR *PUT* 10010 M01S08758.dmrec +++| SA2 PRDO RETURNED RL 10011 M01S08759.dmrec +++| BX6 X2 10012 M01S08760.dmrec +++| SA6 A7+B1 RL FOR *PUT* 10013 M01S08761.dmrec +++| SX6 B0 10014 M01S08762.dmrec +++| SA6 A6+2 KP FOR *PUT* 10015 M01S08763.dmrec +++| SA1 LKP 10016 M01S08764.dmrec +++| SX1 X1-10 10017 M01S08765.dmrec +++| ZR X1,PRD7 IF NON - EMBEDDED KEY 10018 M01S08766.dmrec +++| SX6 CBUF 10019 M01S08767.dmrec +++| SA6 PRDA+2 SAVE NEW *KA* 10020 M01S08768.dmrec +++| 10021 M01S08769.dmrec +++|* CHECK FOR COLLATED KEY - IF KEY IS IN A *IS* 10022 M01S08770.dmrec +++|* FILE, IT MUST BE DECOLLATED. SET-UP VECTOR AND 10023 M01S08771.dmrec +++|* DECOLLATE. 10024 M01S08772.dmrec +++| 10025 M01S08773.dmrec +++| PRD7 SA1 XXTY FILE TYPE 10026 M01S08774.dmrec +++| SX3 X1-2RAK 10027 M01S08775.dmrec +++| NZ X3,PRD7.1 IF NOT AK FILE 10028 M01S08776.dmrec +++| SA2 LKP 10029 M01S08777.dmrec +++| SX6 X2-10 10030 M01S08778.dmrec +++| NZ X6,PRD7.1 IF EMBEDDED KEYS 10031 M01S08779.dmrec +++| SA6 PRDU ZERO KEY 10032 M01S08780.dmrec +++| SX7 A6 10033 M01S08781.dmrec +++| SA7 PRDA+2 RESET KA 10034 M01S08782.dmrec +++| EQ PRD8 CONTINUE PUT RECORDS 10035 M01S08783.dmrec +++| 10036 M01S08784.dmrec +++| PRD7.1 SX2 X1-2RIS 10037 M01S08785.dmrec +++| NZ X2,PRD8 IF FILE IS NOT *IS* 10038 M01S08786.dmrec +++| FETCH DFIT,KT,X2 10039 M01S08787.dmrec +++| SX2 X2-#SKT# 10040 M01S08788.dmrec +++| NZ X2,PRD8 IF NOT SYMBOLIC KT 10041 M01S08789.dmrec +++| 10042 M01S08790.dmrec +++|* DECOLLATE KEY. 10043 M01S08791.dmrec +++| 10044 M01S08792.dmrec +++| SA1 PRDC VECTOR 10045 M01S08793.dmrec +++| RJ DCK DECOLLATE KEY 10046 M01S08794.dmrec +++| 10047 M01S08795.dmrec +++|* PUT RECORDS USING *PUT* PARAMETERS. 10048 M01S08796.dmrec +++| 10049 M01S08797.dmrec +++| PRD8 SA1 PRDA WSA 10050 M01S08798.dmrec +++| SA2 A1+B1 RL 10051 M01S08799.dmrec +++| SA3 A2+B1 KA 10052 M01S08800.dmrec +++| SA4 A3+B1 KP 10053 M01S08801.dmrec +++| 10054 M01S08802.dmrec +++| PUT DFIT,X1,X2,,X3,X4 10055 M01S08803.dmrec +++| FETCH DFIT,ES,X1 10056 M01S08804.dmrec +++| ZR X1,PRDX IF NORMAL EXIT 10057 M01S08805.dmrec +++| SX1 X1-446B 10058 M01S08806.dmrec +++| NZ X1,PRD9 IF CRM ERROR 10059 M01S08807.dmrec +++| STORE DFIT,ES=0 DUPLICATE KEY FOUND - IGNORE ERROR 10060 M01S08808.dmrec +++| SX1 B0 10061 M01S08809.dmrec +++| EQ PRDX EXIT NORMALLY 10062 M01S08810.dmrec +++| 10063 M01S08811.dmrec +++| PRD9 ERROR PRDR,,,PRDX,,E ERROR IN CRM -PUT- 10064 M01S08812.dmrec +++| 10065 M01S08813.dmrec +++| PRDR DATA 20H0 ***** 10066 M01S08814.dmrec +++| DATA C*ERROR IN CRM -PUT- (RECORD LOAD).* 10067 M01S08815.dmrec +++| PRDRL EQU *-PRDR 10068 M01S08816.dmrec +++| 10069 M01S08817.dmrec +++| PRDA BSS 4 *PUT* PARAMETERS - WSA, RL, KA, KP 10070 M01S08818.dmrec +++| PRDB VFD 60/PRDL FWA OF RECORD 10071 M01S08819.dmrec +++| VFD 60/PRDM RECORD LENGTH IN CHARACTERS 10072 M01S08820.dmrec +++| VFD 60/PRDK KEY ADDRESS 10073 M01S08821.dmrec +++| VFD 60/PRDP KEY POSITION WITHIN WORD 10074 M01S08822.dmrec +++| VFD 60/PRDN KEY SIZE IN CHARACTERS 10075 M01S08823.dmrec +++| VFD 60/PRDT DESTINATION BUFFER 10076 M01S08824.dmrec +++| VFD 60/PRDJ LENGTH OF DESTINATION BUFFER IN CHARACTERS 10077 M01S08825.dmrec +++| VFD 60/PRDO RETURN RL IN CHARACTERS OR .NG. IF ERROR 10078 M01S08826.dmrec +++| 10079 M01S08827.dmrec +++| PRDC VFD 60/PRDA+2 ABSOLUTE KEY ADDRESS 10080 M01S08828.dmrec +++| VFD 60/PRDA+3 KEY POSITION 10081 M01S08829.dmrec +++| VFD 60/LKS KEY SIZE 10082 M01S08830.dmrec +++| VFD 60/PRDQ DECOLLATION TABLE ADDRESS 10083 M01S08831.dmrec +++| 10084 M01S08832.dmrec +++| PRDJ VFD 60/CBUFL*10 10085 M01S08833.dmrec +++| PRDK VFD 60/0 ZERO WORD FOR KA 10086 M01S08834.dmrec +++| PRDL BSSZ 1 FWA OF RECORD 10087 M01S08835.dmrec +++| PRDM BSSZ 1 RL 10088 M01S08836.dmrec +++| PRDN BSSZ 1 KS 10089 M01S08837.dmrec +++| PRDO BSSZ 1 RETURNED RL 10090 M01S08838.dmrec +++| PRDP BSSZ 1 KP 10091 M01S08839.dmrec +++| PRDQ VFD 60/LCOLL+10B 10092 M01S08840.dmrec +++| PRDT VFD 60/CBUF DESTINATION BUFFER ADDRESS 10093 M01S08841.dmrec +++| PRDU BSSZ 1 KEY ADDRESS FOR AK FILES - EMK=NO 10094 M01S08842.dmrec +++| PRS SPACE 4,30 10095 M01S08843.dmrec +++|** PRS - PRESET ROUTINE. 10096 M01S08844.dmrec +++|*
| Line S08845 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10097 M02S08845.v23l617 ---|* *PRS* CRACKS THE *DMREC* CONTROL CARD AND SETS UP FOR 10098 M01S00063.v23l617 +++|* *PRS* CRACKS THE *DMREC* COMMAND AND SETS UP FOR 10099 M01S08846.dmrec +++|* THE MAIN PROGRAM. ERROR CHECKING IS PERFORMED ON
| Line S08847 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10100 M02S08847.v23l617 ---|* CONTROL CARD PARAMETERS. 10101 M01S00064.v23l617 +++|* COMMAND PARAMETERS. 10102 M01S08848.dmrec +++|* 10103 M01S08849.dmrec +++|* ENTRY DMREC(P1,P2,...PN) 10104 M01S08850.dmrec +++|* 10105 M01S08851.dmrec +++|* EXIT INPUT AND OUTPUT FILE INITIALIZED. 10106 M01S08852.dmrec +++|* (STDTIM) = PACKED START DATE AND TIME. 10107 M01S08853.dmrec +++|* (STDATE) = START DATE. 10108 M01S08854.dmrec +++|* (STTIME) = START TIME. 10109 M01S08855.dmrec +++|* (TT) = 0 IF *TT* OPTION NOT USED. 10110 M01S08856.dmrec +++|* (TT) = 1 IF *TT* OPTION USED. 10111 M01S08857.dmrec +++|* (Z) = 0 IF *Z* OPTION NOT USED. 10112 M01S08858.dmrec +++|* (Z) = 1 IF *Z* OPTION USED. 10113 M01S08859.dmrec +++|* (JOBORG) = 0 IF INTERACTIVE ORIGIN AND *L=OUTPUT*. 10114 M01S08860.dmrec +++|* 10115 M01S08861.dmrec +++|* USES X - 0, 1, 2, 3, 4, 6. 10116 M01S08862.dmrec +++|* A - 1, 2, 4, 6. 10117 M01S08863.dmrec +++|* B - 1, 4, 5. 10118 M01S08864.dmrec +++|* 10119 M01S08865.dmrec +++|* CALLS ARG, STL, ZAP. 10120 M01S08866.dmrec +++|* 10121 M01S08867.dmrec +++|* MACROS CLOCK, DATE, GETJO, MESSAGE, PDATE 10122 M01S08868.dmrec +++|* READ, SETLOF. 10123 M01S08869.dmrec +++| 10124 M01S08870.dmrec +++| 10125 M01S08871.dmrec +++| PRS SUBR ENTRY/EXIT 10126 M01S08872.dmrec +++| SB1 1 10127 M01S08873.dmrec +++| GETJO JOBORG GET JOB ORIGIN 10128 M01S08874.dmrec +++| SA1 JOBORG 10129 M01S08875.dmrec +++| SX6 X1-3 10130 M01S08876.dmrec +++| SB5 ARGA 10131 M01S08877.dmrec +++| SA6 A1+ 10132 M01S08878.dmrec +++| SA1 ACTR ARGUMENT OF CONTROL CARD 10133 M01S08879.dmrec +++| SB4 X1 10134 M01S08880.dmrec +++| SA4 B1+B1 FIRST ARGUMENT 10135 M01S08881.dmrec +++| RJ ARG PROCESS ARGUMENTS 10136 M01S08882.dmrec +++| ZR X1,PRS2 IF NO ARGUMENT ERRORS 10137 M01S08883.dmrec +++| PRS1 MESSAGE PRSA,,R 10138 M01S08884.dmrec +++| EQ DMR6 EXIT 10139 M01S08885.dmrec +++| 10140 M01S08886.dmrec +++| PRS2 PDATE STDTIM PACKED DATE AND TIME 10141 M01S08887.dmrec +++| CLOCK STTIME TIME 10142 M01S08888.dmrec +++| DATE STDATE DATE 10143 M01S08889.dmrec +++| MX0 42 10144 M01S08890.dmrec +++| SA1 O 10145 M01S08891.dmrec +++| BX1 X0*X1 10146 M01S08892.dmrec +++| SA2 PRSB 10147 M01S08893.dmrec +++| IX3 X1-X2 10148 M01S08894.dmrec +++| ZR X3,PRS3 IF *L=OUTPUT* 10149 M01S08895.dmrec +++| MX6 1 10150 M01S08896.dmrec +++| SA6 JOBORG SET NOT INTERACTIVE ORIGIN 10151 M01S08897.dmrec +++| PRS3 SA2 I 10152 M01S08898.dmrec +++| BX2 X0*X2 10153 M01S08899.dmrec +++| IX1 X1-X2 10154 M01S08900.dmrec +++| ZR X1,PRS1 IF INPUT FILE = OUTPUT FILE 10155 M01S08901.dmrec +++| SA1 Z 10156 M01S08902.dmrec +++| ZR X1,PRS5 IF *Z* ARGUMENTS NOT SELECTED 10157 M01S08903.dmrec +++| PRS4 SX2 I 10158 M01S08904.dmrec +++| RJ ZAP Z ARGUMENT PROCESSOR 10159 M01S08905.dmrec +++| EQ PRS6 NO PRESET READ 10160 M01S08906.dmrec +++| 10161 M01S08907.dmrec +++| PRS5 ZR X2,PRS1 IF I=0 SELECTED 10162 M01S08908.dmrec +++| READ I PRESET READ FUNCTION 10163 M01S08909.dmrec +++| PRS6 MX0 42 10164 M01S08910.dmrec +++| SA1 O 10165 M01S08911.dmrec +++| BX1 X0*X1 10166 M01S08912.dmrec +++| SX2 O 10167 M01S08913.dmrec +++| BX6 X1+X2 10168 M01S08914.dmrec +++| SA6 LOFB STORE OUTPUT LFN IN LOF PARAMETERS 10169 M01S08915.dmrec +++| SETLOF LOF 10170 M01S08916.dmrec +++| RJ STL SET TITLE LINE 10171 M01S08917.dmrec +++| EQ PRSX EXIT 10172 M01S08918.dmrec +++| 10173 M01S08919.dmrec +++|
| Line S08920 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 10174 M02S08920.v23l617 ---| PRSA DATA C*CONTROL CARD ARGUMENT ERRORS.* 10175 M01S00065.v23l617 +++| PRSA DATA C*COMMAND ARGUMENT ERRORS.* 10176 M01S08921.dmrec +++| PRSB DATA 6LOUTPUT DEFAULT LIST FILE NAME 10177 M01S08922.dmrec +++| PRSC DATA 5LINPUT DEFAULT INPUT FILE NAME 10178 M01S08923.dmrec +++| PRSZ BSS 0 END OF CODE FOR PRS 10179 M01S08924.dmrec +++| PVE SPACE 4,15 10180 M01S08925.dmrec +++|** PVE - PROCESS VSN ENTRY. 10181 M01S08926.dmrec +++|* 10182 M01S08927.dmrec +++|* ENTRY (WSAB) = FWA OF DUMP ENTRY TO BE DELETED. 10183 M01S08928.dmrec +++|* (TVSN) = VSN OF DUMP. 10184 M01S08929.dmrec +++|* 10185 M01S08930.dmrec +++|* EXIT (X1) = 0, IF NO ERRORS. 10186 M01S08931.dmrec +++|* ACTIVE FILES COUNT REDUCED OR VSN ENTRY DELETED. 10187 M01S08932.dmrec +++|* 10188 M01S08933.dmrec +++|* USES X - 1, 2, 6. 10189 M01S08934.dmrec +++|* A - 1, 2, 6. 10190 M01S08935.dmrec +++|* B - 2, 5. 10191 M01S08936.dmrec +++|* 10192 M01S08937.dmrec +++|* CALLS FER, PDE, SVK. 10193 M01S08938.dmrec +++|* 10194 M01S08939.dmrec +++|* MACROS DELETE, RMGET, RMREP. 10195 M01S08940.dmrec +++| 10196 M01S08941.dmrec +++| 10197 M01S08942.dmrec +++| PVE SUBR ENTRY/EXIT 10198 M01S08943.dmrec +++| SA1 TVSN VSN NUMBER OF DUMP 10199 M01S08944.dmrec +++| RJ SVK SET VSN KEY 10200 M01S08945.dmrec +++| PVE1 SA1 WSAB+3 INDEX FILE 10201 M01S08946.dmrec +++| SB2 B1 REDUCE ACTIVE FILES COUNT 10202 M01S08947.dmrec +++| SX6 B2 10203 M01S08948.dmrec +++| SA6 PVEA SAVE *B2* 10204 M01S08949.dmrec +++| ZR X1,PVE2 IF NO INDEX FILE 10205 M01S08950.dmrec +++| SB2 B2+B1 INCREMENT REDUCE COUNT 10206 M01S08951.dmrec +++| SX6 B2 10207 M01S08952.dmrec +++| SA6 PVEA SAVE *B2* 10208 M01S08953.dmrec +++| PVE2 RMGET DIRR,WSAB,0,,VKY1 READ VSN ENTRY 10209 M01S08954.dmrec +++| RJ FER FIT ERROR STATUS 10210 M01S08955.dmrec +++| NZ X1,PVEX IF ERROR, RETURN 10211 M01S08956.dmrec +++| SA1 WSAB+4 COUNT OF ACTIVE FILES ON ALL REELS 10212 M01S08957.dmrec +++| SA2 PVEA RESTORE *B2* 10213 M01S08958.dmrec +++| SX6 X2 10214 M01S08959.dmrec +++| IX6 X1-X6 REDUCE COUNT 10215 M01S08960.dmrec +++| NZ X6,PVE3 IF SOME ACTIVE FILES LEFT 10216 M01S08961.dmrec +++| DELETE DIRR,,VKY1 DELETE VSN ENTRY 10217 M01S08962.dmrec +++| RJ FER FIT ERROR STATUS 10218 M01S08963.dmrec +++| NZ X1,PVEX IF ERROR, RETURN 10219 M01S08964.dmrec +++| SB5 B1 10220 M01S08965.dmrec +++| RJ PDE PRINT DELETED ENTRY 10221 M01S08966.dmrec +++| SA1 WSAB+2 CONTINUATION VSN 10222 M01S08967.dmrec +++| ZR X1,PVEX IF RETURN 10223 M01S08968.dmrec +++| RJ SVK SET VSN KEY 10224 M01S08969.dmrec +++| MX6 0 10225 M01S08970.dmrec +++| SA6 PVEA SET COUNT TO ZERO ON CONTINUATION 10226 M01S08971.dmrec +++| EQ PVE2 PROCESS CONTINUATION VSN 10227 M01S08972.dmrec +++| 10228 M01S08973.dmrec +++| PVE3 SA6 A1 REPLACE COUNT 10229 M01S08974.dmrec +++| RMREP DIRR,WSAB,WSAL,,VKY1 REPLACE VSN ENTRY 10230 M01S08975.dmrec +++| RJ FER FIT ERROR STATUS 10231 M01S08976.dmrec +++| EQ PVEX RETURN 10232 M01S08977.dmrec +++| 10233 M01S08978.dmrec +++| PVEA BSSZ 1 SAVE *B2* CELL 10234 M01S08979.dmrec +++| RAF SPACE 4,10 10235 M01S08980.dmrec +++|** RAF - RETURN ALL FILES. 10236 M01S08981.dmrec +++|* 10237 M01S08982.dmrec +++|* ENTRY NONE. 10238 M01S08983.dmrec +++|* 10239 M01S08984.dmrec +++|* EXIT ALL FILES RETURNED. 10240 M01S08985.dmrec +++|* 10241 M01S08986.dmrec +++|* 10242 M01S08987.dmrec +++|* MACROS CLOSEM, RETURN. 10243 M01S08988.dmrec +++|* 10244 M01S08989.dmrec +++|* CALLS RDF. 10245 M01S08990.dmrec +++| 10246 M01S08991.dmrec +++| 10247 M01S08992.dmrec +++| RAF SUBR ENTRY/EXIT 10248 M01S08993.dmrec +++| RETURN XXJ,R 10249 M01S08994.dmrec +++| RETURN TP,R 10250 M01S08995.dmrec +++| RETURN SORTI,R 10251 M01S08996.dmrec +++| CLOSEM DIRR,U 10252 M01S08997.dmrec +++| RETURN ZZZZZDR,R 10253 M01S08998.dmrec +++| RETURN ZZZZSUB,R 10254 M01S00227.ns2056 +++| RETURN ZZZZZG7,R 10255 M01S08999.dmrec +++| RJ RDF RETURN DATA FILES 10256 M01S09000.dmrec +++| EQ RAFX RETURN 10257 M01S09001.dmrec +++| RDD SPACE 4,25 10258 M01S09002.dmrec +++|** RDD - READ DIRECTIVE FROM INPUT FILE. 10259 M01S09003.dmrec +++|* 10260 M01S09004.dmrec +++|* *RDD* READS DIRECTIVES FROM THE INPUT FILE. 10261 M01S09005.dmrec +++|* DOUBLE SPACES AND COMMAS ARE DELETED, SPACES CONVERTED 10262 M01S09006.dmrec +++|* TO COMMAS. THE DIRECTIVE STATEMENTS ARE COPIED TO THE 10263 M01S09007.dmrec +++|* OUTPUT FILE. 10264 M01S09008.dmrec +++|* 10265 M01S09009.dmrec +++|* ENTRY (JOBORG) = 0 IF INTERACTIVE ORIGIN. 10266 M01S09010.dmrec +++|* 10267 M01S09011.dmrec +++|* EXIT (B7) = LWA+1 OF DIRECTIVES IN BUFFER. 10268 M01S09012.dmrec +++|* (DIRFLAG) = LWA+1 OF DIRECTIVES IN BUFFER. 10269 M01S09013.dmrec +++|* (X1) = .NE. 0 IF EOF ENCOUNTERED. 10270 M01S09014.dmrec +++|* (EOF) .NE. 0 IF EOF ENCOUNTERED. 10271 M01S09015.dmrec +++|* 10272 M01S09016.dmrec +++|* USES X - 0, 1, 2, 3, 6, 7. 10273 M01S09017.dmrec +++|* A - 1, 2, 3, 6, 7. 10274 M01S09018.dmrec +++|* B - 6, 7. 10275 M01S09019.dmrec +++|* 10276 M01S09020.dmrec +++|* CALLS ALC, RSC. 10277 M01S09021.dmrec +++|* 10278 M01S09022.dmrec +++|* MACROS READS, WRITES, WRITEW. 10279 M01S09023.dmrec +++| 10280 M01S09024.dmrec +++| 10281 M01S09025.dmrec +++| RDD SUBR ENTRY/EXIT 10282 M01S09026.dmrec +++| RDD1 READS I,DIR,DIRL 10283 M01S09027.dmrec +++| NZ X1,RDD4 IF EOR/EOF ENCOUNTERED 10284 M01S09028.dmrec +++| SA1 JOBORG 10285 M01S09029.dmrec +++| NZ X1,RDD2 IF NOT INTERACTIVE INPUT 10286 M01S09030.dmrec +++| SA2 I 10287 M01S09031.dmrec +++| SA3 PRSC CHECK FOR DEFAULT INPUT FILE NAME 10288 M01S09032.dmrec +++| MX0 42 10289 M01S09033.dmrec +++| BX2 X0*X2 10290 M01S09034.dmrec +++| BX3 X0*X3 10291 M01S09035.dmrec +++| IX3 X2-X3 10292 M01S09036.dmrec +++| ZR X3,RDD3 IF DEFAULT INPUT FILE NAME 10293 M01S09037.dmrec +++| SX2 1 10294 M01S09038.dmrec +++| RJ ALC ADVANCE LINE COUNT 10295 M01S09039.dmrec +++| WRITES O,DIR,DIRL 10296 M01S09040.dmrec +++| EQ RDD3 CONTINUE 10297 M01S09041.dmrec +++| 10298 M01S09042.dmrec +++| RDD2 SX2 2 10299 M01S09043.dmrec +++| RJ ALC ADVANCE LINE COUNT 10300 M01S09044.dmrec +++| WRITEW O,RDDA,2 10301 M01S09045.dmrec +++| WRITES O,DIR,DIRL 10302 M01S09046.dmrec +++| RDD3 SB6 DIR 10303 M01S09047.dmrec +++| SB7 DIR+DIRL 10304 M01S09048.dmrec +++| RJ RSC REMOVE EXTRA SPACES AND COMMAS 10305 M01S09049.dmrec +++| ZR B3,RDD1 IF BLANK CARD 10306 M01S09050.dmrec +++| MX1 0 SET NO ERRORS 10307 M01S09051.dmrec +++| SX7 B7 10308 M01S09052.dmrec +++| SA7 DIRFLAG SAVE DIRECTIVE LWA+1 10309 M01S09053.dmrec +++| EQ RDDX RETURN 10310 M01S09054.dmrec +++| 10311 M01S09055.dmrec +++| RDD4 SX6 B1 SET EOF 10312 M01S09056.dmrec +++| BX1 X6 10313 M01S09057.dmrec +++| SA6 EOF STORE EOF FLAG 10314 M01S09058.dmrec +++| EQ RDDX RETURN 10315 M01S09059.dmrec +++| 10316 M01S09060.dmrec +++| RDDA DATA 20H0 >>>>> 10317 M01S09061.dmrec +++| RDE SPACE 4,20 10318 M01S09062.dmrec +++|** RDE - READ DIRECTORY ENTRY. 10319 M01S09063.dmrec +++|* 10320 M01S09064.dmrec +++|* ENTRY (LSTC) = 1, IF DATE/TIME QUALIFICATION. 10321 M01S09065.dmrec +++|* (TKY1) = PREVIOUS KEY VALUE. 10322 M01S09066.dmrec +++|* 10323 M01S09067.dmrec +++|* EXIT (X6) = 0, IF ENTRY QUALIFIED. 10324 M01S09068.dmrec +++|* 1, IF NEW FILE 10325 M01S09069.dmrec +++|* 2, IF VSN ENTRY READ. 10326 M01S09070.dmrec +++|* 3, IF END OF FILE. 10327 M01S09071.dmrec +++|* 4, IF ENTRY NOT QUALIFIED. 10328 M01S09072.dmrec +++|* (PLIN) = FWA OF FORMATTED LINE. 10329 M01S09073.dmrec +++|* 10330 M01S09074.dmrec +++|* USES X - ALL. 10331 M01S09075.dmrec +++|* A - 1, 2, 3, 5, 6. 10332 M01S09076.dmrec +++|* B - 6. 10333 M01S09077.dmrec +++|* 10334 M01S09078.dmrec +++|* CALLS BFL, CDD, FER, SFN. 10335 M01S09079.dmrec +++|* 10336 M01S09080.dmrec +++|* MACROS GETN, EDATE, ETIME. 10337 M01S09081.dmrec +++| 10338 M01S09082.dmrec +++| 10339 M01S09083.dmrec +++| RDE SUBR ENTRY/EXIT 10340 M01S09084.dmrec +++| RJ BFL BLANK FILL PRINT LINE 10341 M01S09085.dmrec +++| GETN DIRR,WSAB,,CKY1 READ NEXT ENTRY 10342 M01S09086.dmrec +++| RJ FER FIT ERROR STATUS 10343 M01S09087.dmrec +++| SX2 X1-3 10344 M01S09088.dmrec +++| NZ X2,RDE0 IF NOT END OF FILE 10345 M01S09089.dmrec +++| SX6 3 10346 M01S09090.dmrec +++| EQ RDEX RETURN 10347 M01S09091.dmrec +++| 10348 M01S09092.dmrec +++| RDE0 MX0 42 10349 M01S09093.dmrec +++| SA1 CKY1 NEW KEY VALUE 10350 M01S09094.dmrec +++| BX2 X0*X1 10351 M01S09095.dmrec +++| SA3 TKY1 PREVIOUS KEY VALUE 10352 M01S09096.dmrec +++| BX3 X0*X3 10353 M01S09097.dmrec +++| BX2 X2-X3 10354 M01S09098.dmrec +++| ZR X2,RDE2 IF KEYS MATCH 10355 M01S09099.dmrec +++| SA2 VSNK VSN TYPE KEY 10356 M01S09100.dmrec +++| SA3 CKY2 SECOND WORD OF THE KEY 10357 M01S09101.dmrec +++| BX3 X2-X3 10358 M01S09102.dmrec +++| SX6 2 10359 M01S09103.dmrec +++| ZR X3,RDEX IF VSN TYPE KEY 10360 M01S09104.dmrec +++| SX6 B1 NEW FILE 10361 M01S09105.dmrec +++| BX7 X1 10362 M01S09106.dmrec +++| SA7 TKY1 REPLACE PREVIOUS KEY VALUE 10363 M01S09107.dmrec +++| EQ RDEX RETURN 10364 M01S09108.dmrec +++| 10365 M01S09109.dmrec +++| RDE2 BX7 X1 10366 M01S09110.dmrec +++| SA7 TKY1 REPLACE PREVIOUS KEY VALUE 10367 M01S09111.dmrec +++| SA5 CKY2 DATE/TIME 10368 M01S09112.dmrec +++| ETIME X5 UNPACK TIME 10369 M01S09113.dmrec +++| SA6 PLIN+3 10370 M01S09114.dmrec +++| AX5 18 10371 M01S09115.dmrec +++| EDATE X5 UNPACK DATE 10372 M01S09116.dmrec +++| BX5 X6 10373 M01S09117.dmrec +++| SA2 LSTC DATE/TIME PARAMETER 10374 M01S09118.dmrec +++| ZR X2,RDE3 IF NO DATE/TIME QUALIFICATION 10375 M01S09119.dmrec +++| SA2 DATE DATE FROM INPUT PARAMETER 10376 M01S09120.dmrec +++| IX3 X2-X5 COMPARE DATES 10377 M01S09121.dmrec +++| SX6 4 10378 M01S09122.dmrec +++| NG X3,RDEX IF ENTRY DOES NOT QUALIFY 10379 M01S09123.dmrec +++| NZ X3,RDE3 IF DATES NOT EQUAL 10380 M01S09124.dmrec +++| SA4 PLIN+3 TIME OF DUMP 10381 M01S09125.dmrec +++| SA2 TIME TIME FROM INPUT PARAMETER 10382 M01S09126.dmrec +++| BX7 X4 10383 M01S09127.dmrec +++| IX3 X2-X7 COMPARE TIMES 10384 M01S09128.dmrec +++| NG X3,RDEX IF ENTRY DOES NOT QUALIFY 10385 M01S09129.dmrec +++| RDE3 BX6 X5 10386 M01S09130.dmrec +++| SA6 PLIN+2 10387 M01S09131.dmrec +++| SA1 CKY1 FILE NAME 10388 M01S09132.dmrec +++| MX0 42 10389 M01S09133.dmrec +++| BX1 X0*X1 10390 M01S09134.dmrec +++| RJ SFN SPACE FILL NAME 10391 M01S09135.dmrec +++| SA6 PLIN+1 10392 M01S09136.dmrec +++| SA2 CKY1 10393 M01S09137.dmrec +++| MX0 -12 10394 M01S09138.dmrec +++| BX1 -X0*X2 EXTRACT COPY NUMBER 10395 M01S09139.dmrec +++| SX2 2RBB FILE DUMP ENTRY 10396 M01S09140.dmrec +++| BX2 X1-X2 10397 M01S09141.dmrec +++| ZR X2,RDE4 IF FILE DUMP ENTRY 10398 M01S09142.dmrec +++| BX6 X0*X6 10399 M01S09143.dmrec +++| SA5 RDEA AFTER IMAGE LOG 10400 M01S09144.dmrec +++| MX0 -6 10401 M01S09145.dmrec +++| BX1 -X0*X1 COPY NUMBER 10402 M01S09146.dmrec +++| BX5 X1+X5 10403 M01S09147.dmrec +++| BX6 X5+X6 10404 M01S09148.dmrec +++| SA6 PLIN+1 10405 M01S09149.dmrec +++| SA1 WSAB+2 VSN 10406 M01S09150.dmrec +++| RJ SFN SPACE FILL NAME 10407 M01S09151.dmrec +++| SA6 PLIN+7 10408 M01S09152.dmrec +++| SA1 WSAB+4 NUMBER OF AFTER IMAGE RECORDS 10409 M01S09153.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 10410 M01S09154.dmrec +++| LX6 41-23 10411 M01S09155.dmrec +++| SA6 PLIN+6 10412 M01S09156.dmrec +++| MX6 0 10413 M01S09157.dmrec +++| SA6 PLIN+8 10414 M01S09158.dmrec +++| EQ RDEX RETURN 10415 M01S09159.dmrec +++| 10416 M01S09160.dmrec +++| RDE4 MX0 42 10417 M01S09161.dmrec +++| BX6 X0*X6 10418 M01S09162.dmrec +++| SX2 3R D FILE DUMP 10419 M01S09163.dmrec +++| BX2 -X0*X2 10420 M01S09164.dmrec +++| BX6 X2+X6 10421 M01S09165.dmrec +++| SA6 PLIN+1 10422 M01S09166.dmrec +++| SA2 WSAB+2 VSN 10423 M01S09167.dmrec +++| MX0 -18 10424 M01S09168.dmrec +++| BX1 X0*X2 10425 M01S09169.dmrec +++| RJ SFN SPACE FILL NAME 10426 M01S09170.dmrec +++| SA6 PLIN+7 10427 M01S09171.dmrec +++| SA2 WSAB+2 FILE DUMP FORMAT 10428 M01S09172.dmrec +++| SB6 B0 10429 M01S09173.dmrec +++| MX0 -6 GET DUMP MODE 10430 M01S09174.dmrec +++| BX2 -X0*X2 10431 M01S09175.dmrec +++| ZR X2,RDE4.1 IF BLOCK MODE 10432 M01S09176.dmrec +++| SB6 B1+ 10433 M01S09177.dmrec +++| RDE4.1 SA5 TFOR+B6 10434 M01S09178.dmrec +++| BX6 X5 10435 M01S09179.dmrec +++| SA6 PLIN+4 10436 M01S09180.dmrec +++| SA1 WSAB+4 FILE POSITION ON DUMP TAPE 10437 M01S09181.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 10438 M01S09182.dmrec +++| LX6 29-11 10439 M01S09183.dmrec +++| MX0 30 10440 M01S09184.dmrec +++| SA1 PLIN+4 10441 M01S09185.dmrec +++| BX1 X0*X1 10442 M01S09186.dmrec +++| BX6 -X0*X6 10443 M01S09187.dmrec +++| BX6 X1+X6 10444 M01S09188.dmrec +++| SA6 PLIN+4 10445 M01S09189.dmrec +++| SA1 WSAB+3 INDEX FILE 10446 M01S09190.dmrec +++| ZR X1,RDE5 IF NO INDEX FILE NAME 10447 M01S09191.dmrec +++| RJ SFN SPACE FILL NAME 10448 M01S09192.dmrec +++| SA6 PLIN+5 10449 M01S09193.dmrec +++| SA1 WSAB+5 INDEX FILE POSITION 10450 M01S09194.dmrec +++| RJ CDD CONVERT TO DISPLAY CODE 10451 M01S09195.dmrec +++| MX0 42 10452 M01S09196.dmrec +++| SA1 PLIN+5 10453 M01S09197.dmrec +++| BX1 X0*X1 10454 M01S09198.dmrec +++| BX6 -X0*X6 10455 M01S09199.dmrec +++| BX6 X1+X6 10456 M01S09200.dmrec +++| SA6 PLIN+5 10457 M01S09201.dmrec +++| RDE5 MX6 0 10458 M01S09202.dmrec +++| SA6 PLIN+8 10459 M01S09203.dmrec +++| EQ RDEX RETURN 10460 M01S09204.dmrec +++| 10461 M01S09205.dmrec +++| RDEA VFD 48/0,6/1LA,6/0 10462 M01S09206.dmrec +++| RDF SPACE 4,15 10463 M01S09207.dmrec +++|** RDF - RETURN DATA FILES. 10464 M01S09208.dmrec +++|* 10465 M01S09209.dmrec +++|* *RDF* RETURNS *CRM* DATA, INDEX AND OWNCODE FILES. 10466 M01S09210.dmrec +++|* 10467 M01S09211.dmrec +++|* ENTRY (XXPFN) = PFN OF DATA FILE. 10468 M01S09212.dmrec +++|* (XXIXN) = PFN OF INDEX FILE. 10469 M01S09213.dmrec +++|* (XXHASH) = PFN OF OWNCODE FILE. 10470 M01S09214.dmrec +++|* 10471 M01S09215.dmrec +++|* EXIT FILES RETURNED. 10472 M01S09216.dmrec +++|* 10473 M01S09217.dmrec +++|* USES X - 1. 10474 M01S09218.dmrec +++|* A - 1. 10475 M01S09219.dmrec +++|* B - NONE. 10476 M01S09220.dmrec +++|* 10477 M01S09221.dmrec +++|* MACROS RETURN. 10478 M01S09222.dmrec +++| 10479 M01S09223.dmrec +++| 10480 M01S09224.dmrec +++| RDF SUBR ENTRY/EXIT 10481 M01S09225.dmrec +++| RETURN DF 10482 M01S09226.dmrec +++| SA1 XXIXN 10483 M01S09227.dmrec +++| ZR X1,RDF1 IF NO INDEX FILE PRESENT 10484 M01S09228.dmrec +++| RETURN IF 10485 M01S09229.dmrec +++| RDF1 SA1 XXHASH 10486 M01S09230.dmrec +++| ZR X1,RDFX IF NO OWNCODE FILE PRESENT 10487 M01S09231.dmrec +++| RETURN OF 10488 M01S09232.dmrec +++| EQ RDFX RETURN 10489 M01S09233.dmrec +++| RDT SPACE 4,15 10490 M01S09234.dmrec +++|** RDT - REFORMAT DATE OR TIME. 10491 M01S09235.dmrec +++|* 10492 M01S09236.dmrec +++|* THIS SUBROUTINE CONVERTS THE DATE OR TIME GIVEN ON 10493 M01S09237.dmrec +++|* THE INPUT DIRECTIVE TO AN (UNPACKED) FORMAT. 10494 M01S09238.dmrec +++|* 10495 M01S09239.dmrec +++|* ENTRY (DATE) = DIRECTIVE DATE. 10496 M01S09240.dmrec +++|* (TIME) = DIRECTIVE TIME. 10497 M01S09241.dmrec +++|* (X1) = 0, IF DATE CONVERSION. 10498 M01S09242.dmrec +++|* .NE. 0, IF TIME CONVERSION. 10499 M01S09243.dmrec +++|* 10500 M01S09244.dmrec +++|* EXIT (X6) = CONVERTED DATE OR TIME. 10501 M01S09245.dmrec +++|* 10502 M01S09246.dmrec +++|* USES A - 1, 2. 10503 M01S09247.dmrec +++|* X - 0, 1, 2, 3, 4, 5, 6. 10504 M01S09248.dmrec +++|* B - NONE. 10505 M01S09249.dmrec +++| 10506 M01S09250.dmrec +++| 10507 M01S09251.dmrec +++| RDT SUBR ENTRY/EXIT 10508 M01S09252.dmrec +++| NZ X1,RDT1 IF TIME CONVERSION 10509 M01S09253.dmrec +++| SA2 DATE DIRECTIVE DATE 10510 M01S09254.dmrec +++| SA1 FILLD */* 10511 M01S09255.dmrec +++| EQ RDT2 CONVERT 10512 M01S09256.dmrec +++| 10513 M01S09257.dmrec +++| RDT1 SA2 TIME DIRECTIVE TIME 10514 M01S09258.dmrec +++| SA1 FILLT *.* 10515 M01S09259.dmrec +++| RDT2 MX0 12 10516 M01S09260.dmrec +++| BX3 X0*X2 10517 M01S09261.dmrec +++| LX3 54-0 LEFT JUSTIFY MONTH 10518 M01S09262.dmrec +++| LX2 12 10519 M01S09263.dmrec +++| BX4 X0*X2 10520 M01S09264.dmrec +++| LX4 36 LEFT JUSTIFY DAY 10521 M01S09265.dmrec +++| LX2 12 10522 M01S09266.dmrec +++| BX5 X0*X2 10523 M01S09267.dmrec +++| LX5 18 10524 M01S09268.dmrec +++| BX5 X5+X4 MONTH AND DAY 10525 M01S09269.dmrec +++| BX5 X5+X3 MONTH, DAY AND YEAR 10526 M01S09270.dmrec +++| BX6 X1+X5 ADD LOGICAL MASK 10527 M01S09271.dmrec +++| EQ RDTX RETURN 10528 M01S09272.dmrec +++| REC SPACE 4,20 10529 M01S09273.dmrec +++|** REC - RECOVER DATA FILE. 10530 M01S09274.dmrec +++|* 10531 M01S09275.dmrec +++|* *REC* WILL RECOVER THE DATE FILE SPECIFIED, OR IN
| Line S09276 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10532 M02S09276.ns2023 ---|* THE CASE OF A *QRF* RECOVERY, ALL DATA FILES ARE 10533 M01S00151.ns2023 +++|* THE CASE OF A *BRF* RECOVERY, ALL DATA FILES ARE 10534 M01S09277.dmrec +++|* RECOVERED THAT HAVE BEEN FOUND DEFECTIVE. 10535 M01S09278.dmrec +++|* 10536 M01S09279.dmrec +++|* ENTRY (A2) = ADDRESS OF NEXT WORD IN BUFFER. 10537 M01S09280.dmrec +++|* (X2) = NEXT WORD IN BUFFER. 10538 M01S09281.dmrec +++|* (X6) = OPERATION FLAG (VALIDATE PARAMETERS). 10539 M01S09282.dmrec +++|* 10540 M01S09283.dmrec +++|* EXIT EXIT TO LOD1 FOR LOAD/UPDATE PROCESSOR. 10541 M01S09284.dmrec +++|* 10542 M01S09285.dmrec +++|* USES X - 1, 2, 3, 4, 6, 7. 10543 M01S09286.dmrec +++|* A - 1, 2, 3, 4, 6, 7. 10544 M01S09287.dmrec +++|* B - 5. 10545 M01S09288.dmrec +++|* 10546 M01S09289.dmrec +++|* CALLS SPR, BRT, RAF. 10547 M01S09290.dmrec +++|* 10548 M01S09291.dmrec +++| 10549 M01S09292.dmrec +++| 10550 M01S09293.dmrec +++| REC BSS 0 ENTRY 10551 M01S09294.dmrec +++| RJ SPR GET PARAMETERS 10552 M01S09295.dmrec +++| SB5 B5-2 10553 M01S09296.dmrec +++| NE B5,B0,LOD9 IF MORE THAN ONE FILE 10554 M01S09297.dmrec +++| SA3 TDFN GET FN 10555 M01S09298.dmrec +++| SA1 LMASK MASK 10556 M01S09299.dmrec +++| BX3 X1*X3 10557 M01S09300.dmrec +++| SA2 LWORD 10558 M01S09301.dmrec +++| BX7 X2-X3
| Line S09302 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10559 M02S09302.ns2023 ---| ZR X7,REC1 IF *QRF* RECOVERY 10560 M01S00152.ns2023 +++| ZR X7,REC1 IF *BRF* RECOVERY 10561 M01S09303.dmrec +++| SX6 B1
| Line S09304 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10562 M02S09304.ns2023 ---| SA6 QRFFLG 10563 M01S00153.ns2023 +++| SA6 BRFFLG 10564 M01S00154.ns2023 +++| SX7 2 10565 M01S00155.ns2023 +++| SA7 TTFLG SET TAF *DB* RECOVERY FLAG 10566 M01S09305.dmrec +++| EQ REC10 CONTINUE 10567 M01S09306.dmrec +++|
| Line S09307 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10568 M02S09307.ns2023 ---| REC1 MX6 1 FILE RECORERY 10569 M01S00156.ns2023 +++| REC1 SX7 3 10570 M01S00157.ns2023 +++| SA7 TTFLG SET TAF *BRF* RECOVERY FLAG
| Line S09308 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10571 M02S09308.dmrec2 ---| SA6 QRFFLG 10572 M01S00120.dmrec2 +++| SA2 DBNAME
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10573 M02S00121.ns2023 ---| BX7 X2 10574 M01S00158.ns2023 +++| MX6 1 10575 M01S00159.ns2023 +++| BX7 X2 10576 M01S00001.dmrec17 +++| SA6 BRFFLG SET FLAG FOR BRF RECOVERY
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Updated by) | dmrec7 |
Seq # *Modification Id* Act ----------------------------+ 10577 M02S00160.dmrec7 ---| SA6 BRFFLG SET FLAG FOR *BRF* RECOVERY 10578 M01S00154.dmrec7 +++| SA2 XXPFN2
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10579 M02S00122.ns2023 ---| SA6 QRFFLG 10580 M01S00123.dmrec2 +++| SA7 XXPFN 10581 M01S09309.dmrec +++| RJ BRT BUILD RECOVERY TABLES 10582 M01S09310.dmrec +++| NZ X1,REC11 IF ERROR
| Line S09311 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10583 M02S09311.dmrec2 ---| REC2 SX3 FTAB
| Line S09312 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10584 M02S09312.dmrec2 ---| SX4 B0
| Line S09313 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10585 M02S09313.dmrec2 ---| REC3 SA1 X3
| Line S09314 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10586 M02S09314.dmrec2 ---| NG X1,REC7 IF END OF FTAB
| Line S09315 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10587 M02S09315.dmrec2 ---| ZR X1,REC5 IF EMPTY ENTRY
| Line S09316 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10588 M02S09316.dmrec2 ---| NZ X4,REC6 IF FN ALREADY FOUND
| Line S09317 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10589 M02S09317.dmrec2 ---| SA4 X3 FN + B/C
| Line S09318 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10590 M02S09318.dmrec2 ---| REC4 SX6 B0
| Line S09319 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10591 M02S09319.dmrec2 ---| SA6 A4 ZERO FN ENTRY
| Line S09320 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10592 M02S09320.dmrec2 ---| REC5 SX3 X3+2
| Line S09321 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10593 M02S09321.dmrec2 ---| EQ REC3 NEXT
| Line S09322 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10594 M02S09322.dmrec2 ---|
| Line S09323 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10595 M02S09323.dmrec2 ---| REC6 SA1 X3
| Line S09324 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10596 M02S09324.dmrec2 ---| BX6 X3-X1
| Line S09325 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10597 M02S09325.dmrec2 ---| ZR X6,REC4 IF SAME FN
| Line S09326 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10598 M02S09326.dmrec2 ---| EQ REC5 GO INCREMENT
| Line S09327 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10599 M02S09327.dmrec2 ---|
| Line S09328 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10600 M02S09328.dmrec2 ---| REC7 ZR X4,REC8 IF DONE WITH QRF RECOVERY
| Line S09329 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10601 M02S09329.dmrec2 ---| BX6 X4
| Line S09330 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10602 M02S09330.dmrec2 ---| SA6 TDFN RECOVER THIS FN
| Line S09331 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10603 M02S09331.dmrec2 ---| SX7 B0
| Line S09332 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10604 M02S09332.dmrec2 ---| SA7 DATE LATEST DATE
| Line S09333 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10605 M02S09333.dmrec2 ---| SA7 TIME LATEST TIME
| Line S09334 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10606 M02S09334.dmrec2 ---| EQ REC10 RECOVER FN
| Line S09335 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10607 M02S09335.dmrec2 ---| 10608 M01S00124.dmrec2 +++| SX6 TTIG 10609 M01S00125.dmrec2 +++| REC2 SA6 ITIT 10610 M01S00126.dmrec2 +++| BX7 X7-X7 10611 M01S00127.dmrec2 +++| SA1 X6
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10612 M02S00128.ns2023 ---| NG X1,REC8 IF END OF TABLE 10613 M01S00161.ns2023 +++| ZR X1,REC8 IF END OF TABLE 10614 M01S00129.dmrec2 +++| SA7 TT ZERO OUT TT SO TAF WILL NOT BRING UP DB 10615 M01S00130.dmrec2 +++| MX0 30 10616 M01S00131.dmrec2 +++| BX1 X1*X0 10617 M01S00162.ns2023 +++| LX1 30 10618 M01S00132.dmrec2 +++| RJ COD OCTAL TO DISPLAY CONVERSION 10619 M01S00133.dmrec2 +++| MX2 48
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10620 M02S00134.ns2023 ---| MX0 30 10621 M01S00163.ns2023 +++| BX1 X2*X4 10622 M01S00135.dmrec2 +++| SB2 1RZ REPLACEMENT CHARACTER 10623 M01S00136.dmrec2 +++| SB5 -RECA 10624 M01S00137.dmrec2 +++| SB3 RECD 10625 M01S00138.dmrec2 +++| RJ SNM SET NAME 10626 M01S00139.dmrec2 +++| SA2 ITIT 10627 M01S00140.dmrec2 +++| SA1 X2+1 10628 M01S00141.dmrec2 +++| LX1 30 10629 M01S00142.dmrec2 +++| MX0 30 10630 M01S00143.dmrec2 +++| BX1 X0*X1 10631 M01S00144.dmrec2 +++| SB2 1RX 10632 M01S00145.dmrec2 +++| SB5 RECD 10633 M01S00146.dmrec2 +++| RJ SNM 10634 M01S00147.dmrec2 +++| MESSAGE RECD,3 ISSUE DAYFILE MESSAGE 10635 M01S00148.dmrec2 +++| SA2 ITIT 10636 M01S00149.dmrec2 +++| SX6 X2+2 INCREMENT POINTER TO TTIG 10637 M01S00150.dmrec2 +++| EQ REC2 PROCESS NEXT ENTRY 10638 M01S00151.dmrec2 +++|
| Line S09336 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec2 |
Seq # *Modification Id* Act ----------------------------+ 10639 M02S09336.dmrec2 ---| REC8 SX6 TTQRF
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Updated by) | dmrec16 |
Seq # *Modification Id* Act ----------------------------+ 10640 M02S00152.dmrec16 ---| REC8 SA5 RECB 10641 M01S00001.dmrec16 +++| REC8 SA1 TT 10642 M01S00002.dmrec16 +++| NZ X1,REC8.1 IF NO IGNORE TABLE ENTRIES 10643 M01S00003.dmrec16 +++| SA5 RECB 10644 M01S00153.dmrec2 +++| SX6 B0 10645 M01S00154.dmrec2 +++| SA6 RQTREQ 10646 M01S00155.dmrec2 +++| RJ NOP NOTIFY OPERATOR
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10647 M02S00156.ns2023 ---| SX6 TTQRF
| Line S09337 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10648 M02S09337.ns2023 ---| SA6 IIQRF INITIALIZE QRF TABLE SEARCH
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
M02 (Updated by) | dmrec16 |
Seq # *Modification Id* Act ----------------------------+ 10649 M02S00164.dmrec16 ---| SX6 TTBRF 10650 M01S00004.dmrec16 +++| REC8.1 SX6 TTBRF 10651 M01S00165.ns2023 +++| SA6 IIBRF INITIALIZE *BRF* TABLE SEARCH 10652 M01S09338.dmrec +++| REC9 SX7 B0 10653 M01S09339.dmrec +++| SA7 LENGTH USE DEFAULT LENGTH
| Line S09340 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10654 M02S09340.ns2023 ---| SA1 IIQRF
| Line S09341 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10655 M02S09341.ns2023 ---| SA2 X1 GET *QRF* 10656 M01S00166.ns2023 +++| SA1 IIBRF 10657 M01S00167.ns2023 +++| SA2 X1 GET *BRF* 10658 M01S09342.dmrec +++| ZR X2,REC11 IF NO MORE ENTRIES - EXIT 10659 M01S09343.dmrec +++| SX6 X1+1
| Line S09344 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10660 M02S09344.ns2023 ---| SA6 A1 INCREMENT *QRF* POINTER 10661 M01S00168.ns2023 +++| SA6 A1 INCREMENT *BRF* POINTER 10662 M01S09345.dmrec +++| BX6 X2
| Line S09346 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10663 M02S09346.ns2023 ---| SA6 TDFN STORE *QRF* NAME
| Line S09347 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 10664 M02S09347.ns2023 ---| EQ CRT1 GO ALLOCATE THIS *QRF* AND RETURN 10665 M01S00169.ns2023 +++| SA6 TDFN STORE *BRF* NAME 10666 M01S00170.ns2023 +++| EQ CRT1 GO ALLOCATE THIS *BRF* AND RETURN 10667 M01S09348.dmrec +++| 10668 M01S09349.dmrec +++| REC10 SA2 DATE 10669 M01S00007.dmrec6 +++| SA3 TVSN 10670 M01S09350.dmrec +++| BX6 X2 10671 M01S09351.dmrec +++| SA6 DATE1 STORE AS END DATE 10672 M01S00008.dmrec6 +++| BX6 X3 10673 M01S00009.dmrec6 +++| SA6 RECE SAVE VSN FROM DIRECTIVE 10674 M01S09352.dmrec +++| SA3 TIME 10675 M01S09353.dmrec +++| BX6 X3 10676 M01S09354.dmrec +++| SA6 TIME1 STORE AS END TIME 10677 M01S09355.dmrec +++| SX6 B0 10678 M01S09356.dmrec +++| SA6 A2 ZERO BEGIN DATE 10679 M01S09357.dmrec +++| SA6 A3 ZERO BEGIN TIME 10680 M01S09358.dmrec +++| EQ LOD1 GO RECOVER FILE 10681 M01S09359.dmrec +++| 10682 M01S09360.dmrec +++| REC11 CLOSEM DFIT,U RETURN CRM FILES 10683 M01S09361.dmrec +++| RJ RAF RETURN ALL FILES 10684 M01S09362.dmrec +++| EQ DMR3 RETURN 10685 M01S00157.dmrec2 +++| 10686 M01S00158.dmrec2 +++| RECA DATA C* TRAN. SEQ. ZZZZZZZZB WITH ID XXXXX MIGHT BE BAD.* 10687 M01S00159.dmrec2 +++| RECB DATA C* INFORM DATA BASE ADMN. OF BRF DISK ERROR.* 10688 M01S00160.dmrec2 +++| RECD BSS 5
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | dmrec2 |
M02 (Updated by) | dmrec6 |
Seq # *Modification Id* Act ----------------------------+ 10689 M02S00161.dmrec6 ---| 10690 M01S00010.dmrec6 +++| RECE BSSZ 1 VSN FROM DIRECTIVE 10691 M01S09363.dmrec +++| RQT SPACE 4,25 10692 M01S09364.dmrec +++|** RQT - REQUEST TAPE FOR DMREC DUMP/LOAD OPERATIONS. 10693 M01S09365.dmrec +++|* 10694 M01S09366.dmrec +++|* *RQT* REQUESTS A TAPE FOR *DMREC* DUMP/LOADS. 10695 M01S09367.dmrec +++|* IF THE FILE NAME IS ALREADY ASSIGNED, THE REQUEST 10696 M01S09368.dmrec +++|* IS IGNORED AND THE RETURNING VSN SET TO SPACES. 10697 M01S09369.dmrec +++|* IF THE FILE IS ASSIGNED TO DISK THE RETURNING VSN 10698 M01S09370.dmrec +++|* IS SET TO *DISK*. 10699 M01S09371.dmrec +++|* 10700 M01S09372.dmrec +++|* ENTRY (B7) = ADDRESS OF FET. 10701 M01S09373.dmrec +++|* (X6) = VSN REQUESTED. 10702 M01S09374.dmrec +++|* 0, IF NEW VSN HAS TO BE ASSIGNED. 10703 M01S09375.dmrec +++|* (X5) = 0, IF READ MODE. 10704 M01S09376.dmrec +++|* .NE. 0 - IF WRITE MODE. 10705 M01S09377.dmrec +++|* 10706 M01S09378.dmrec +++|* EXIT (X6) = VSN OF TAPE LOADED. 10707 M01S09379.dmrec +++|* = 6L - IF LFN PREVIOUSLY ASSIGNED. 10708 M01S09380.dmrec +++|* = 6LDISK - IF ASSIGNED TO DISK. 10709 M01S09381.dmrec +++|* 10710 M01S09382.dmrec +++|* USES X - 0, 1, 2, 6, 7. 10711 M01S09383.dmrec +++|* A - 1, 6, 7. 10712 M01S09384.dmrec +++|* B - 2, 5. 10713 M01S09385.dmrec +++|* 10714 M01S09386.dmrec +++|* CALLS CER, NOP, SFN, SNM. 10715 M01S09387.dmrec +++|* 10716 M01S09388.dmrec +++|* MACROS ERROR, LABEL, OPEN, STATUS. 10717 M01S09389.dmrec +++| 10718 M01S09390.dmrec +++| 10719 M01S09391.dmrec +++| RQT SUBR ENTRY/EXIT 10720 M01S09392.dmrec +++| SX7 B1 10721 M01S09393.dmrec +++| SX2 B0+ 10722 M01S09394.dmrec +++| LX7 39-0 10723 M01S09395.dmrec +++| ZR X5,RQT1 IF READ MODE 10724 M01S09396.dmrec +++| MX2 1 WRITE 10725 M01S09397.dmrec +++| LX7 40-39 RING IN 10726 M01S09398.dmrec +++| RQT1 BX2 X2+X7 10727 M01S09399.dmrec +++| BX7 X2 10728 M01S09400.dmrec +++| SA7 RQTC SAVE (X2) 10729 M01S09401.dmrec +++| ZR X6,RQT2 IF NO VSN SPECIFIED 10730 M01S09402.dmrec +++| BX1 X6 10731 M01S09403.dmrec +++| RJ SFN SPACE FILL 10732 M01S09404.dmrec +++| MX0 36 10733 M01S09405.dmrec +++| BX6 X0*X6 10734 M01S09406.dmrec +++| EQ RQT2.1 REQUEST TAPE 10735 M01S09407.dmrec +++| 10736 M01S09408.dmrec +++| RQT2 SA1 TT 10737 M01S09409.dmrec +++| ZR X1,RQT2.1 IF *TT* NOT SPECIFIED 10738 M01S09410.dmrec +++| MX7 1 10739 M01S09411.dmrec +++| SA7 RQTREQ SET FLAG FOR *NOP* 10740 M01S09412.dmrec +++| SA1 DBNAME GET DATA BASE NAME 10741 M01S09413.dmrec +++| SB5 RQTB 10742 M01S09414.dmrec +++| SB2 1RX 10743 M01S09415.dmrec +++| RJ SNM SET DATA BASE NAME IN MESSAGE 10744 M01S09416.dmrec +++| SA5 RQTB ADDRESS OF OPERATOR MESSAGE 10745 M01S09417.dmrec +++| RJ NOP NOTIFY OPERATOR 10746 M01S09418.dmrec +++| RQT2.1 SX7 TDTR 10747 M01S09419.dmrec +++| SA2 RQTC RESTORE (X2)
| Line S09420 Modification History | |
|---|---|
M01 (Added by) | dmrec |
M02 (Updated by) | dmrec22 |
Seq # *Modification Id* Act ----------------------------+ 10748 M02S09420.dmrec22 ---| LX7 53 10749 M01S00002.dmrec22 +++| LX7 51 10750 M01S09421.dmrec +++| BX7 X7+X2 10751 M01S09422.dmrec +++| SA7 B7+8 10752 M01S09423.dmrec +++| SX2 1RA 10753 M01S09424.dmrec +++| LX2 18 10754 M01S09425.dmrec +++| BX6 X6+X2 10755 M01S09426.dmrec +++| SA6 A7+B1 STORE VSN, FILE ACCESSABILITY 10756 M01S09427.dmrec +++| SA1 LBLAA GET HDR1 LABEL 10757 M01S09428.dmrec +++| BX6 X1 10758 M01S09429.dmrec +++| SA6 A6+B1 STORE FIRST PART OF LABEL 10759 M01S09430.dmrec +++| SA1 A1+B1 10760 M01S09431.dmrec +++| BX6 X1
Proceed to Part 7
cdc/nos2.source/opl.opl871/deck/dmrec.006.txt · Last modified: by 127.0.0.1