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