ibm:vm370-lib:cp:dmkcsv.assemble_hst
Table of Contents
DMKCSV History
References
- Fixes Applied : 12
- Latest Source Date : Thursday, December 14, 1978
- Last Fix ID : [HRC311DK]
Update History
CMS File Input : DMKCSV ASSEMBLE
Date : 12/14/1978 8:55:00 AM
VM Context : MAINT(394)
File Name : DMKCSV.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R09134DK 606 DMKCSV RDR IGNORES FILE ARRIVING VIA TRANSFER
- R09639DK 607 V08042 WAS DROPPED WHEN DMKCSU WAS SPLIT INTO DMKCSV FOR RELEASE 6
- R09640DK 607 V08376 WAS DROPPED WHEN DMKCSU WAS SPLIT INTO DMKCSV FOR RELEASE 6
- R09926DK 607 DMKCSV MISSING BRANCH INSTRUCTION
- R09755DK 607 TRANSFER ALL COMMAND FAILS TO RECLAIM ALL FILES
- R09638DK 609 V08075 DROPPED WHEN DMKCSU SPLIT INTO DMKCSV FOR RELEASE 6
- R09563DK 611 INCORR SET IMSG OFF DOES NOT ALWAYS SUPPRESS INFO. MSG
- R09685DK 611 DMKCSV RECEIVER GETS MESSAGES WITH IMSG OFF
- R10097DK 618 DMKCSV TRAN BUILDS MESSAGE IN ITSELF - NOT REENTRANT
- HRC022DK V01 IMPLEMENT THE ENHANCED TRANSFER COMMAND
- HRC311DK V03 Fix bug in TRANSFER command
R09957DK
Date Thursday Jul 12, 1979 09:51:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 8 milliseconds.
R09134DK
Date Friday Nov 02, 1979 11:01:00 AM
Loaded from MAINT(294)
R09134DK: ./ D 669000 $ 00001000
R09134DK: ./ I 695000 $ 695200 00002000
R09134DK: BAL R4,SETPEND POST DEVICE END INTERRUPT @VA09134 00003000
BEGIN APPLY >>> ./ D 669000 $ 00001000
END APPLY >>> ./ D 669000 $ 00001000
BEGIN APPLY >>> ./ I 695000 $ 695200 00002000
END APPLY >>> ./ I 695000 $ 695200 00002000
Update Succeeded
Update Execution Time 16 milliseconds.
R09639DK
Date Friday Nov 30, 1979 10:15:00 AM
Loaded from MAINT(294)
R09639DK: ./ I 163000 $ 163500 00001000
R09639DK: USING VDEVBLOK,R8 @VA09639 00002000
R09639DK: ./ R 632000 632000 $ 632500 00003000
R09639DK: L R10,X2048BND TELL GETFILE WE ARE COUNTING @VA09639 00004000
R09639DK: ./ R 634000 634000 $ 634500 00005000
R09639DK: SR R10,R10 CLEAR REQ 10 FOR NEXT TIME @VA09639 00006000
R09639DK: ./ R 1002000 1002000 $ 1002500 00007000
R09639DK: C R10,X2048BND ARE WE COUNTING? (FROM TR05A) @VA09639 00008000
R09639DK: ./ D 1140000 $ 00010000
BEGIN APPLY >>> ./ I 163000 $ 163500 00001000
END APPLY >>> ./ I 163000 $ 163500 00001000
BEGIN APPLY >>> ./ R 632000 632000 $ 632500 00003000
END APPLY >>> ./ R 632000 632000 $ 632500 00003000
BEGIN APPLY >>> ./ R 634000 634000 $ 634500 00005000
END APPLY >>> ./ R 634000 634000 $ 634500 00005000
BEGIN APPLY >>> ./ R 1002000 1002000 $ 1002500 00007000
END APPLY >>> ./ R 1002000 1002000 $ 1002500 00007000
BEGIN APPLY >>> ./ D 1140000 $ 00010000
END APPLY >>> ./ D 1140000 $ 00010000
Update Succeeded
Update Execution Time 23 milliseconds.
R09640DK
Date Friday Nov 30, 1979 09:19:00 AM
Loaded from MAINT(294)
R09640DK: ./ I 274000 $ 274500 00001000
R09640DK: SLR R10,R10 NOT COUNT ONLY IN GETFILE @VA09640 00002000
R09640DK: ./ I 309000 $ 309500 00003000
R09640DK: SLR R10,R10 NOT COUNT ONLY IN GETFILE @VA09640 00004000
R09640DK: ./ I 491000 $ 491500 00005000
R09640DK: SLR R10,R10 NOT COUNT ONLY IN GETFILE @VA09640 00006000
R09640DK: ./ I 637000 $ 637500 00007000
R09640DK: SLR R10,R10 NOT COUNT ONLY IN GETFILE @VA09640 00008000
R09640DK: ./ R 728000 728000 $ 728400 200 00009000
R09640DK: RC04 DS 0H @VA09640 00010000
R09640DK: SLR R10,R10 NOT COUNT ONLY IN GETFILE @VA09640 00011000
R09640DK: BAL R4,GETFILE GET A SPOOL FILE @VA09640 00012000
R09640DK: ./ R 977000 977000 $ 977500 00013000
R09640DK: * BE TRANSFERRED,R10 FF IS SWITCH 00014000
BEGIN APPLY >>> ./ I 274000 $ 274500 00001000
END APPLY >>> ./ I 274000 $ 274500 00001000
BEGIN APPLY >>> ./ I 309000 $ 309500 00003000
END APPLY >>> ./ I 309000 $ 309500 00003000
BEGIN APPLY >>> ./ I 491000 $ 491500 00005000
END APPLY >>> ./ I 491000 $ 491500 00005000
BEGIN APPLY >>> ./ I 637000 $ 637500 00007000
END APPLY >>> ./ I 637000 $ 637500 00007000
BEGIN APPLY >>> ./ R 728000 728000 $ 728400 200 00009000
END APPLY >>> ./ R 728000 728000 $ 728400 200 00009000
BEGIN APPLY >>> ./ R 977000 977000 $ 977500 00013000
END APPLY >>> ./ R 977000 977000 $ 977500 00013000
Update Succeeded
Update Execution Time 23 milliseconds.
R09926DK
Date Thursday Dec 06, 1979 06:01:00 AM
Loaded from MAINT(294)
R09926DK: ./ I 667000 $ 667500 100 00001000
R09926DK: BNZ TRNOMSG @VA09926 00002000
BEGIN APPLY >>> ./ I 667000 $ 667500 100 00001000
END APPLY >>> ./ I 667000 $ 667500 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09755DK
Date Thursday Dec 06, 1979 04:23:00 AM
Loaded from MAINT(294)
R09755DK: ./ R 970000 971000 $ 00001000
R09755DK: * 5.5 IF R8 (SWITCH) = X'FF' COUNT THE NUMBER OF 00002000
R09755DK: * SPOOL FILE BLOCKS 00003000
R09755DK: ./ D 1008000 $ 00004000
R09755DK: ./ I 1189000 $ 1189100 100 00005000
R09755DK: SR R8,R8 RESET SWITCH AT THIS TIME IF @VA09755 00006000
R09755DK: * SET DUE TO NOT FINDING DEVICE 00007000
BEGIN APPLY >>> ./ R 970000 971000 $ 00001000
END APPLY >>> ./ R 970000 971000 $ 00001000
BEGIN APPLY >>> ./ D 1008000 $ 00004000
END APPLY >>> ./ D 1008000 $ 00004000
BEGIN APPLY >>> ./ I 1189000 $ 1189100 100 00005000
END APPLY >>> ./ I 1189000 $ 1189100 100 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R09638DK
Date Wednesday Jan 23, 1980 01:02:00 AM
Loaded from MAINT(294)
R09638DK: ./ I 658000 $ 658500 00001000
R09638DK: OI SFBFLAG,SFBINUSE TELL EVERYONE WE HAVE THE FILE @VA09638 00002000
R09638DK: ./ I 695200 $ 695500 00003000
R09638DK: NI SFBFLAG,255-SFBINUSE WE ARE DONE WITH THIS FILE @VA09638 00004000
BEGIN APPLY >>> ./ I 658000 $ 658500 00001000
END APPLY >>> ./ I 658000 $ 658500 00001000
BEGIN APPLY >>> ./ I 695200 $ 695500 00003000
END APPLY >>> ./ I 695200 $ 695500 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R09563DK
Date Wednesday Apr 02, 1980 04:12:00 AM
Loaded from MAINT(294)
R09563DK: ./ R 1302000 1303000 $ 1302100 00001000
R09563DK: LR R5,R2 .. @VA09563 00002000
R09563DK: ./ D 1308000 1309000 00003000
BEGIN APPLY >>> ./ R 1302000 1303000 $ 1302100 00001000
END APPLY >>> ./ R 1302000 1303000 $ 1302100 00001000
BEGIN APPLY >>> ./ D 1308000 1309000 00003000
END APPLY >>> ./ D 1308000 1309000 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R09685DK
Date Wednesday Apr 02, 1980 11:21:00 AM
Loaded from MAINT(294)
R09685DK: ./ R 668000 $ 00001000
R09685DK: SWTCHVM SWITCH TO RECEIVER @VA09685 00002000
R09685DK: ./ D 670000 671000 $ 00003000
R09685DK: ./ D 677000 00004000
BEGIN APPLY >>> ./ R 668000 $ 00001000
END APPLY >>> ./ R 668000 $ 00001000
BEGIN APPLY >>> ./ D 670000 671000 $ 00003000
END APPLY >>> ./ D 670000 671000 $ 00003000
BEGIN APPLY >>> ./ D 677000 00004000
END APPLY >>> ./ D 677000 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R10097DK
Date Tuesday Jan 13, 1981 01:13:00 AM
Loaded from MAINT(294)
R10097DK: ./ I 658000 $ 658020 10 00001000
R10097DK: LA R0,TRANSIZE LENGTH IN DWDS WE NEED @VA10097 00002000
R10097DK: CALL DMKFREE GET THE MESSAGE BUFFER @VA10097 00003000
R10097DK: ST R8,TRANCH1-TRANMSG(R1) SAVE CHAIN1 PTR IN BUFF @VA10097 00004000
R10097DK: LR R8,R1 MOVE THE MESSAGE BUFF ADDR @VA10097 00005000
R10097DK: USING TRANMSG,R8 MESSAGE TO FREE STORAGE @VA10097 00006000
R10097DK: LA R3,1 INITIALIZE R3 @VA10097
R10097DK: MVC TRANMSG(MSGINITL),MSGINIT INITIALIZE MESSAGE @VA10097 00007000
R10097DK: ./ R 693000 694000 $ 693100 100 00014000
R10097DK: LR R1,R8 ADDRESS OF THE MESSAGE @VA10097 00015000
R10097DK: LA R3,TRANSIZE NR DW'S IN MSG @VA10097 00016000
R10097DK: LA R2,NORET+DFRET TELL QCNWT TO RELEASE BUFF @VA10097 00017000
R10097DK: L R8,TRANCH1 RESTORE R8 AS CHAIN POINTER @VA10097 00018000
R10097DK: CALL DMKQCNWT TELL SENDER @VA10097 00019000
R10097DK: SLR R3,R3 THE BUFFER HAS BEEN FRETTED @VA10097 00020000
R10097DK: ./ I 695000 $ 695010 5 00021000
R10097DK: LTR R1,R3 DO WE NEED TO RELEASE BUFF @VA10097 00022000
R10097DK: BZ TR08A ALREADY GONE @VA10097 00023000
R10097DK: LR R1,R8 GET BUFFER ADDR FOR DMKFRET @VA10097 00024000
R10097DK: L R8,TRANCH1 RESTORE R8 AS CHAIN POINTER @VA10097 00025000
R10097DK: DROP R8 FINISHED @VA10097 00026000
R10097DK: LA R0,TRANSIZE NR OF DWDS IN MESSAGE BUFFER @VA10097 00027000
R10097DK: CALL DMKFRET RELEASE MESSAGE BUFFER @VA10097 00028000
R10097DK: TR08A DS 0H @VA10097 00029000
R10097DK: TM VMCLEVEL,VMCLASSD IS THIS USER CLASS D? @VA10097 00030000
R10097DK: BZ TR08AB NO; GO INDICATE THIS @VA10097
R10097DK: L R3,FFS YES; LOAD 'CLASS D' FLAG @VA10097
R10097DK: B *+8 NOW CONTINUE PROCESSING @VA10097
R10097DK: TR08AB L R3,XRIGHT24 NOT CLASS D USER @VA10097
R10097DK: ./ R 710000 723000 $ 710000 100 00031000
R10097DK: MSGINIT DC C'RDR ' @VA10097 00032000
R10097DK: DC C'FILE ' @VA10097 00033000
R10097DK: DC CL5' ' @VA10097 00034000
R10097DK: DC C'TRANSFERRED' @VA10097 00035000
R10097DK: DC C' FROM ' @VA10097 00036000
R10097DK: DC CL8' ' @VA10097 00037000
R10097DK: MSGINITL EQU *-MSGINIT @VA10097
R10097DK: ./ I 1139000 $ 1139500 00038000
R10097DK: USING VDEVBLOK,R8 @VA10097 00039000
R10097DK: ./ I 1216000 $ 1216500
R10097DK: DROP R8 @VA10097
R10097DK: ./ I 1306000 $ 1306100 30 00041000
R10097DK: LH R2,SAVEWRK5 GET FILE COUNT @VA10097 00042000
R10097DK: LTR R2,R2 PROCESSING STARTED? @VA10097
R10097DK: BM NOMSG NO; DON'T SEND MESSAGE @VA10097
R10097DK: LA R0,TRANSIZE NR OF DWDS IN MESSAGE BUFFER @VA10097 00044000
R10097DK: CALL DMKFREE GET THE MESSAGE BUFFER @VA10097 00045000
R10097DK: LR R8,R1 WE DON'T NEED R8 ANYMORE @VA10097 00046000
R10097DK: USING CNTMSG,R8 THIS ONE NOW, PLEASE @VA10097 00047000
R10097DK: MVI 0(R8),C' ' THERE'S THE FIRST BLANK @VA10097 00048000
R10097DK: MVC 1(CNTMSGL-1,R8),0(R8) CLEAR 'EM ALL @VA10097 00049000
R10097DK: ./ I 1310000 $ 1310101 10 00050000
R10097DK: LTR R1,R2 DO WE WANT A FILE MESSAGE ? @VA10097 00051000
R10097DK: ./ R 1330000 1331000 $ 1330001 1 00052000
R10097DK: LR R1,R8 GET THE MESSAGE ADDRESS @VA10097 00053000
R10097DK: LR R8,R3 WE HAVE TO SAVE R3 NOW. @VA10097 00054000
R10097DK: LA R3,TRANSIZE NR OF DW'S TO RETURN @VA10097 00055000
R10097DK: LA R2,NORET+DFRET TELL QCNWT TO RELEASE BUFF @VA10097 00056000
R10097DK: CALL DMKQCNWT SEND MSG AND RELEASE MSG BUF @VA10097 00057000
R10097DK: LR R3,R8 PUT IT BACK LIKE WE FOUND IT @VA10097 00058000
R10097DK: ./ I 1357000 $ 1357100 10 00059000
R10097DK: TRANMSG DSECT , @VA10097 00060000
R10097DK: TRMSGF DC C'XXX' @VA10097 00061000
R10097DK: DC C' ' @VA10097 00062000
R10097DK: TRANMSGT DC C'FILE ' SPOOLID @VA10097 00063000
R10097DK: TRMSGID DC C' ' SPOOLID @VA10097 00064000
R10097DK: DC C' TRANSFERRED' @VA10097 00065000
R10097DK: TRMCONST DC C' FROM ' @VA10097 00066000
R10097DK: TRMSGUR DC CL8' ' @VA10097 00067000
R10097DK: TRANL EQU *-TRANMSG @VA10097 00068000
R10097DK: DC C' ' @VA10097 00069000
R10097DK: TRMSGT DC C'XXX' RDR/PRT/PUN @VA10097 00070000
R10097DK: TRANLT EQU *-TRANMSGT LN OF MSG TO SEND @VA10097 00071000
R10097DK: TRANCH1 DS A SAVE CHAIN 1 ADR @VA10097 00072000
R10097DK: TRANSIZE EQU (*-TRANMSG+7)/8 DW LN FOR FREE/FRET @VA10097 00073000
R10097DK: SPACE 1 00074000
R10097DK: CNTMSG DSECT , NUMBER OF FILES PROCESSED MESSAGE@VA10097 00075000
R10097DK: MSGCNT DC CL5' ' PLACE FOR COUNT OR NO @VA10097 00076000
R10097DK: MSGFILE DC CL6' ' FOR FILES OR FILE @VA10097 00077000
R10097DK: MSGCMD DC CL11' ' PLACE FOR COMMAND @VA10097 00078000
R10097DK: CNTMSGL EQU *-CNTMSG @VA10097 00079000
BEGIN APPLY >>> ./ I 658000 $ 658020 10 00001000
END APPLY >>> ./ I 658000 $ 658020 10 00001000
BEGIN APPLY >>> ./ R 693000 694000 $ 693100 100 00014000
END APPLY >>> ./ R 693000 694000 $ 693100 100 00014000
BEGIN APPLY >>> ./ I 695000 $ 695010 5 00021000
END APPLY >>> ./ I 695000 $ 695010 5 00021000
BEGIN APPLY >>> ./ R 710000 723000 $ 710000 100 00031000
END APPLY >>> ./ R 710000 723000 $ 710000 100 00031000
BEGIN APPLY >>> ./ I 1139000 $ 1139500 00038000
END APPLY >>> ./ I 1139000 $ 1139500 00038000
BEGIN APPLY >>> ./ I 1216000 $ 1216500
END APPLY >>> ./ I 1216000 $ 1216500
BEGIN APPLY >>> ./ I 1306000 $ 1306100 30 00041000
END APPLY >>> ./ I 1306000 $ 1306100 30 00041000
BEGIN APPLY >>> ./ I 1310000 $ 1310101 10 00050000
END APPLY >>> ./ I 1310000 $ 1310101 10 00050000
BEGIN APPLY >>> ./ R 1330000 1331000 $ 1330001 1 00052000
END APPLY >>> ./ R 1330000 1331000 $ 1330001 1 00052000
BEGIN APPLY >>> ./ I 1357000 $ 1357100 10 00059000
END APPLY >>> ./ I 1357000 $ 1357100 10 00059000
Update Succeeded
Update Execution Time 23 milliseconds.
HRC022DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC022DK: ./ R 00274500 $ 274690 190 02/09/06 15:45:23
HRC022DK: SLR R15,R15 NOT COUNT ONLY IN GETFILE HRC022DK 00274690
HRC022DK: ./ R 00309500 $ 309690 190 02/09/06 15:45:23
HRC022DK: SLR R15,R15 NOT COUNT ONLY IN GETFILE HRC022DK 00309690
HRC022DK: ./ R 00491500 $ 491690 190 02/09/06 15:45:23
HRC022DK: SLR R15,R15 NOT COUNT ONLY IN GETFILE HRC022DK 00491690
HRC022DK: ./ R 00537000 00539000 $ 537290 290 02/09/06 15:45:23
HRC022DK: * TO TRANSFER A SPOOL FILE TO ANOTHER USER AND/OR HRC022DK 00537290
HRC022DK: * ANOTHER TYPE OF UNIT RECORD DEVICE WITHOUT PROCESSING HRC022DK 00537580
HRC022DK: * BY THE VIRTUAL MACHINE. SPOOLID MAY BE ID NUMBER, HRC022DK 00537870
HRC022DK: * CLASS, OR THE KEYWORD ALL. ONLY PRT FILES WILL BE HRC022DK 00538160
HRC022DK: * TRANSFERRED TO A PRINTER, AND ONLY PUN FILES TO A HRC022DK 00538450
HRC022DK: * PUNCH. DMP (SYSTEM DUMP) FILES AND RDR FILES MAY HRC022DK 00538740
HRC022DK: * ONLY BE TRANSFERRED TO ANOTHER READER. HRC022DK 00539030
HRC022DK: ./ R 00543000 00551000 $ 543790 790 02/09/06 15:45:23
HRC022DK: * +----------+--------------------------------------------+HRC022DK 00543790
HRC022DK: * | TRANSFER | <USERID> <PRT> SPOOLID < TO > USERID <PRT> |HRC022DK 00544580
HRC022DK: * | TRAN | <SYSTEM> <PCH> CLASS A <FROM> ALL <PCH> |HRC022DK 00545370
HRC022DK: * | | <RDR> ALL <RDR> |HRC022DK 00546160
HRC022DK: * | | --- --- |HRC022DK 00546950
HRC022DK: * +----------+--------------------------------------------+HRC022DK 00547740
HRC022DK: * HRC022DK 00548530
HRC022DK: * HRC022DK 00549320
HRC022DK: * CLASS ALL TO FROM READER PRINTER PUNCH HRC022DK 00550110
HRC022DK: * CL ALL T F R RDR P PRT PU PCH HRC022DK 00550900
HRC022DK: ./ R 00570000 00571000 $ 570390 390 02/09/06 15:45:23
HRC022DK: * XXX FILE NNNN TRANSFERRED FROM USERID HRC022DK 00570390
HRC022DK: * FILE NNNN TRANSFERRED TO USERID XXX HRC022DK 00570780
HRC022DK: * HRC022DK 00571170
HRC022DK: * FILE NNNN CANNOT BE TRANSFERRED TO XXX HRC022DK 00571560
HRC022DK: ./ R 00599000 $ 599090 90 02/09/06 15:45:23
HRC022DK: TR01 EQU * HRC022DK 00599090
HRC022DK: MVC SAVEWRK8(8),BUFNXT-BUFFER(R9) SAVE SCAN POINTERSHRC022DK 00599180
HRC022DK: L R3,X40FFS SIGNAL TRANSFER CHAIN 1 HRC022DK 00599270
HRC022DK: BAL R4,GETYPE GET TYPE OF CHAIN 1 HRC022DK 00599360
HRC022DK: ST R7,SAVEWRK9 SAVE FOR LATER HRC022DK 00599450
HRC022DK: LR R10,R7 DUMMY CHAIN 2 ANCHOR FOR 'FROM' HRC022DK 00599540
HRC022DK: BAL R4,GETID GET SPOOL ID HRC022DK 00599630
HRC022DK: ./ R 00606000 00608000 $ 606990 990 02/09/06 15:45:23
HRC022DK: TR02 EQU * HRC022DK 00606990
HRC022DK: ./ I 00630000 $ 630200 200 02/09/06 15:45:23
HRC022DK: L R3,XRIGHT24 SIGNAL TRANSFER CHAIN 2 HRC022DK 00630200
HRC022DK: BAL R4,GETYPE GET TYPE OF CHAIN 2 HRC022DK 00630400
HRC022DK: LR R10,R7 SAVE ANCHOR CHAIN 2 HRC022DK 00630600
HRC022DK: L R7,SAVEWRK9 POINT TO CHAIN 1 HRC022DK 00630800
HRC022DK: ./ R 00632500 $ 632690 190 02/09/06 15:45:23
HRC022DK: L R15,X2048BND TELL GETFILE WE ARE COUNTING HRC022DK 00632690
HRC022DK: ./ R 00634500 00637500 $ 634590 90 02/09/06 15:45:23
HRC022DK: SR R15,R15 RESET THE COUNTING SWITCH HRC022DK 00634690
HRC022DK: L R7,SAVEWRK9 POINT TO CHAIN 1 HRC022DK 00634880
HRC022DK: B TR06 START SEARCH HRC022DK 00635070
HRC022DK: SPACE , HRC022DK 00635260
HRC022DK: TRNOT EQU * HRC022DK 00635450
HRC022DK: LA R0,TRBADSIZ LENGTH IN DWDS WE NEED HRC022DK 00658020
HRC022DK: CALL DMKFREE GET THE MESSAGE BUFFER HRC022DK 00658030
HRC022DK: ST R8,TRANCH1-TRBADMSG(R1) SAVE CHAIN1 PTR IN BUFF HRC022DK 00658040
HRC022DK: LR R8,R1 MOVE THE MESSAGE BUFF ADDR HRC022DK 00658050
HRC022DK: USING TRBADMSG,R8 MESSAGE TO FREE STORAGE HRC022DK 00658060
HRC022DK: MVC TRBADMSG(L'MSG2INIT),MSG2INIT DITTO HRC022DK 00658280
HRC022DK: LH R1,SFBFILID GET FILEID HRC022DK 00635450
HRC022DK: CALL DMKCVTBD CONVERT TO DECIMAL HRC022DK 00635640
HRC022DK: STCM R1,B'1111',TRBADID STORE SPOOLID IN MESSAGE HRC022DK 00635830
HRC022DK: MVC TRBADC,=C'PRT' ASSUME TRYING TO GO TO PRT QUEUE HRC022DK 00636020
HRC022DK: EX R5,TMPRT WERE WE RIGHT ? HRC022DK 00636210
HRC022DK: BO TRNOTSET YES - SETUP MESSAGE HRC022DK 00636400
HRC022DK: MVC TRBADC,=C'PUN' NO - MUST HAVE BEEN GOING TO PCH HRC022DK 00636590
HRC022DK: TRNOTSET LA R0,TRBADL LENGTH OF MESSAGE HRC022DK 00636780
HRC022DK: LA R1,TRBADMSG POINT TO MESSAGE HRC022DK 00636970
HRC022DK: LA R2,NORET+DFRET TELL QCNWT TO RELEASE BUFF HRC022DK 00693300
HRC022DK: LA R3,TRBADSIZ NR DW'S IN MSG HRC022DK 00693200
HRC022DK: L R8,TRANCH1 RESTORE R8 AS CHAIN POINTER HRC022DK 00693400
HRC022DK: DROP R8 , HRC022DK
HRC022DK: CALL DMKQCNWT,PARM=NORET WRITE MESSAGE TO USER HRC022DK 00637160
HRC022DK: TR06 EQU * HRC022DK 00637350
HRC022DK: ./ I 00641000 $ 641040 40 02/09/06 15:45:23
HRC022DK: LR R9,R6 NOTE CURRENT PLACE IN THE QUEUE HRC022DK 00641040
HRC022DK: CR R8,R10 CHAIN 1 = CHAIN 2 ? HRC022DK 00641080
HRC022DK: BE GOTONE YES - GO MOVE THIS FILE HRC022DK 00641120
HRC022DK: EX R5,TMRDR GOING TO A RDR ? HRC022DK 00641160
HRC022DK: BO DEQUEUE YES - GO AND DEQUEUE HRC022DK 00641200
HRC022DK: TM SFBFLAG,SFBDUMP SYSTEM DUMP FILE ? HRC022DK 00641240
HRC022DK: BO TRNOT YES - MUST STAY ON RDR QUEUE HRC022DK 00641280
HRC022DK: CLI SFBTYPE,TYPRDR FILE OF TYPE RDR ? HRC022DK 00641320
HRC022DK: BE TRNOT YES - MUST STAY ON RDR QUEUE HRC022DK 00641360
HRC022DK: EX R5,TMPRT GOING TO A PRT ? HRC022DK 00641400
HRC022DK: BO CHKPRT YES - CHECK IT'S A PRT FILE HRC022DK 00641440
HRC022DK: TM SFBTYPE,TYPPRT FILE OF TYPE PRT ? HRC022DK 00641480
HRC022DK: BZ DEQUEUE NO - MUST BE A REAL PCH FILE HRC022DK 00641520
HRC022DK: B TRNOT YES - CAN'T GO TO A PCH QUEUE HRC022DK 00641560
HRC022DK: CHKPRT TM SFBTYPE,TYPPRT FILE OF TYPE PRT ? HRC022DK 00641600
HRC022DK: BZ TRNOT NO - CAN'T GO TO A PRT QUEUE HRC022DK 00641640
HRC022DK: DEQUEUE EQU * HRC022DK 00641680
HRC022DK: MVC 0(4,R6),SFBPNT UNCHAIN IT HRC022DK 00641720
HRC022DK: LR R6,R10 POINT TO CHAIN 2 HRC022DK 00641760
HRC022DK: B TR06A GO AND RECHAIN IT HRC022DK 00641800
HRC022DK: SPACE , HRC022DK 00641840
HRC022DK: GOTONE EQU * HRC022DK 00641880
HRC022DK: ./ I 00658000 $ 658010 10 02/09/06 15:45:23
HRC022DK: OI SFBFLAG,SFBINUSE TELL EVERYONE WE HAVE THE FILE HRC022DK 00658010
HRC022DK: ./ I 00660000 $ 660100 100 02/09/06 15:45:23
HRC022DK: LA R2,RDRCHN ASSUME FILE IS NOW ON RDR HRC022DK 00660100
HRC022DK: EX R5,TMRDR ARE WE CORRECT ? HRC022DK 00660200
HRC022DK: BO TRCKS YES - GO DO CHECKPOINT HRC022DK 00660300
HRC022DK: LA R2,PRTCHN ASSUME FILE IS NOW ON PRT HRC022DK 00660400
HRC022DK: EX R5,TMPRT ARE WE CORRECT ? HRC022DK 00660500
HRC022DK: BO TRCKS YES - GO DO CHECKPOINT HRC022DK 00660600
HRC022DK: LA R2,PCHCHN MUST BE NOW ON PCH HRC022DK 00660700
HRC022DK: TRCKS LA R2,CHGSFB(,R2) SIGNAL CHANGE FUNCTION HRC022DK 00660800
HRC022DK: ./ I 00664000 $ 664100 100 02/09/06 15:45:23
HRC022DK: MVC TRMSGF,=C'RDR' ASSUME NOW A RDR FILE HRC022DK 00664100
HRC022DK: EX R5,TMRDR WERE WE RIGHT ? HRC022DK 00664200
HRC022DK: BO MSGSET YES - GO SETUP MSG HRC022DK 00664300
HRC022DK: MVC TRMSGF,=C'PRT' ASSUME NOW A PRT FILE HRC022DK 00664400
HRC022DK: EX R5,TMPRT WERE WE RIGHT ? HRC022DK 00664500
HRC022DK: BO MSGSET YES - GO SETUP MSG HRC022DK 00664600
HRC022DK: MVC TRMSGF,=C'PUN' MUST BE NOW A PCH FILE HRC022DK 00664700
HRC022DK: MSGSET EQU * HRC022DK 00664800
HRC022DK: ./ I 00687000 $ 687200 200 02/09/06 15:45:23
HRC022DK: MVC TRMSGT,TRMSGF MOVE IN CORRECT CHAIN NAME HRC022DK 00687200
HRC022DK: TM SAVEWRK5+3,X'40' RECLAIMING FILE ? HRC022DK 00687400
HRC022DK: BO TR08 YES - SKIP MESSAGE HRC022DK 00687600
HRC022DK: ./ I 00695070 $ 695110 40 02/09/06 15:45:23
HRC022DK: EX R5,TMRDR GOING TO RDR ? HRC022DK 00695110
HRC022DK: BZ *+8 NO - SKIP THE INTERRUPT HRC022DK 00695150
HRC022DK: ./ I 00695500 $ 695550 50 02/09/06 15:45:23
HRC022DK: EX R5,TMRDR GOING TO A RDR ? HRC022DK 00695550
HRC022DK: BO NOSTART YES - DON'T TRY TO START READER HRC022DK 00695600
HRC022DK: TM SFBFLAG,SFBUHOLD+SFBSHOLD IS FILE HELD ? HRC022DK 00695650
HRC022DK: BNZ NOSTART YES - SKIP THE START HRC022DK 00695700
HRC022DK: C R10,SAVEWRK9 CHAIN 2 = CHAIN 1 HRC022DK 00695750
HRC022DK: BE NOSTART YES - NO NEED TO TRY STARTING HRC022DK 00695800
HRC022DK: CALL DMKCSOSD TRY TO START REAL PRT/PCH HRC022DK 00695850
HRC022DK: NOSTART EQU * HRC022DK 00695900
HRC022DK: ./ R 00698000 $ 698490 490 02/09/06 15:45:23
HRC022DK: LR R7,R9 RESUME AT SAME PLACE IN QUEUE HRC022DK 00698490
HRC022DK: ./ I 00724000 $ 724500 500 02/09/06 15:45:23
HRC022DK: MSG2INIT DC C'FILE NNNN CANNOT BE TRANSFERRED TO XXX' HRC022DK 00724500
HRC022DK: ./ R 00727000 $ 727690 690 02/09/06 15:45:23
HRC022DK: L R7,SAVEWRK9 SET TO READER CHAIN HRC022DK 00727690
HRC022DK: ./ R 00728600 $ 728690 90 02/09/06 15:45:23
HRC022DK: SLR R15,R15 NOT COUNT ONLY IN GETFILE HRC022DK 00728690
HRC022DK: ./ I 00731000 $ 731500 500 02/09/06 15:45:23
HRC022DK: LR R9,R6 NOTE CURRENT PLACE IN THE QUEUE HRC022DK 00731500
HRC022DK: ./ R 00788000 $ 788080 80 02/09/06 15:45:23
HRC022DK: GU02B EQU * HRC022DK 00788080
HRC022DK: CL R0,F1 A ONE-CHARACTER USERID? HRC022DK 00788160
HRC022DK: BNE GU02E NO... HRC022DK 00788240
HRC022DK: CLI 0(R1),C'*' IS FOR MYSELF? HRC022DK 00788320
HRC022DK: BNE GU02E NO... HRC022DK 00788400
HRC022DK: LA R0,8 SETUP FOR 8 BYTE MOVE HRC022DK 00788480
HRC022DK: LA R1,VMUSER POINT TO MY OWN USERID HRC022DK 00788560
HRC022DK: B GU03 SKIP UN-NECESSARY VALIDATION HRC022DK 00788640
HRC022DK: GU02E EQU * HRC022DK 00788720
HRC022DK: SR R2,R2 PARM REG HRC022DK 00788800
HRC022DK: ./ I 00845000 $ 845300 300 02/09/06 15:45:23
HRC022DK: C R3,XRIGHT24 TRANS CHAIN 2? HRC022DK 00845300
HRC022DK: BE TRCHRDR2 YES, DEFAULT TO RDR HRC022DK 00845600
HRC022DK: ./ R 00858000 $ 858490 490 02/09/06 15:45:23
HRC022DK: BE TYPALL YES, CHECK IF ITS TRANSFER HRC022DK 00858490
HRC022DK: ./ I 00879000 $ 879300 300 02/09/06 15:45:23
HRC022DK: C R3,X40FFS TRANSFER CHAIN 1? HRC022DK 00879300
HRC022DK: BE TRCHRDR1 YES, DEFAULT TO READER HRC022DK 00879600
HRC022DK: ./ I 00883000 $ 883100 100 02/09/06 15:45:23
HRC022DK: TYPALL C R3,XRIGHT24 TRANSFER CHAIN 2? HRC022DK 00883100
HRC022DK: BE MSG006E YES, INVALID DEVICE TYPE HRC022DK 00883200
HRC022DK: C R3,X40FFS TRANSFER CHAIN 1? HRC022DK 00883300
HRC022DK: BNE DEVIC NO, NORMAL CALL HRC022DK 00883400
HRC022DK: TRCHRDR1 MVC BUFNXT-BUFFER(8,R9),SAVEWRK8 RESTORE POINTER HRC022DK 00883500
HRC022DK: TRCHRDR2 LA R5,CSVRDR SETUP DEFAULT READER HRC022DK 00883600
HRC022DK: ./ R 00970100 00970200 $ 970690 590 02/09/06 15:45:23
HRC022DK: * 5.5 IF R15(SWITCH) = X2048BND HRC022DK 00970690
HRC022DK: * COUNT THE NUMBER OF SPOOL SPOOL FILE BLOCKS HRC022DK 00971280
HRC022DK: ./ R 01002500 $ 1002690 190 02/09/06 15:45:23
HRC022DK: C R15,X2048BND ARE WE COUNTING? (FROM TR05A) HRC022DK 01002690
HRC022DK: ./ I 01151000 $ 1151500 500 02/09/06 15:45:23
HRC022DK: STM R8,R10,TEMPR8 SAVE CALLERS R8 THUR R10 HRC022DK 01151500
HRC022DK: ./ R 01210000 $ 1210190 190 02/09/06 15:45:23
HRC022DK: INTEXIT EQU * HRC022DK 01210190
HRC022DK: LM R8,R10,TEMPR8 RESTORE CALLERS R8-R10 HRC022DK 01210380
HRC022DK: CLR R11,R3 ORIGINAL CALLER? HRC022DK 01210570
HRC022DK: ./ R 01357110 $ 1357115 5 02/09/06 15:45:23
HRC022DK: TRMSGF DC C'XXX' RDR/PRT/PUN HRC022DK 01357115
HRC022DK: ./ R 01357220 $ 1357221 1 02/09/06 15:45:23
HRC022DK: DS 0H HRC022DK 01357221
HRC022DK: SPACE , HRC022DK 01357222
HRC022DK: TRBADMSG DC C'FILE ' HRC022DK 01357223
HRC022DK: TRBADID DC C'NNNN' HRC022DK 01357224
HRC022DK: DC C' CANNOT BE TRANSFERRED TO ' HRC022DK 01357225
HRC022DK: TRBADC DC C'XXX' HRC022DK 01357226
HRC022DK: TRBADL EQU *-TRBADMSG HRC022DK 01357227
HRC022DK: DS 0H HRC022DK 01357221
HRC022DK: TRANCH1 DS A SAVE CHAIN 1 ADR HRC022DK 01357220
HRC022DK: ./ I 01357230 $ 1357235 5 02/09/06 15:45:23
HRC022DK: TRBADSIZ EQU (*-TRBADMSG+7)/8 DW LN FOR FREE/FRET HRC022DK 01357230
BEGIN APPLY >>> ./ R 00274500 $ 274690 190 02/09/06 15:45:23
END APPLY >>> ./ R 00274500 $ 274690 190 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00309500 $ 309690 190 02/09/06 15:45:23
END APPLY >>> ./ R 00309500 $ 309690 190 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00491500 $ 491690 190 02/09/06 15:45:23
END APPLY >>> ./ R 00491500 $ 491690 190 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00537000 00539000 $ 537290 290 02/09/06 15:45:23
END APPLY >>> ./ R 00537000 00539000 $ 537290 290 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00543000 00551000 $ 543790 790 02/09/06 15:45:23
END APPLY >>> ./ R 00543000 00551000 $ 543790 790 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00570000 00571000 $ 570390 390 02/09/06 15:45:23
END APPLY >>> ./ R 00570000 00571000 $ 570390 390 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00599000 $ 599090 90 02/09/06 15:45:23
END APPLY >>> ./ R 00599000 $ 599090 90 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00606000 00608000 $ 606990 990 02/09/06 15:45:23
END APPLY >>> ./ R 00606000 00608000 $ 606990 990 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00630000 $ 630200 200 02/09/06 15:45:23
END APPLY >>> ./ I 00630000 $ 630200 200 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00632500 $ 632690 190 02/09/06 15:45:23
END APPLY >>> ./ R 00632500 $ 632690 190 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00634500 00637500 $ 634590 90 02/09/06 15:45:23
END APPLY >>> ./ R 00634500 00637500 $ 634590 90 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00641000 $ 641040 40 02/09/06 15:45:23
END APPLY >>> ./ I 00641000 $ 641040 40 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00658000 $ 658010 10 02/09/06 15:45:23
END APPLY >>> ./ I 00658000 $ 658010 10 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00660000 $ 660100 100 02/09/06 15:45:23
END APPLY >>> ./ I 00660000 $ 660100 100 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00664000 $ 664100 100 02/09/06 15:45:23
END APPLY >>> ./ I 00664000 $ 664100 100 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00687000 $ 687200 200 02/09/06 15:45:23
END APPLY >>> ./ I 00687000 $ 687200 200 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00695070 $ 695110 40 02/09/06 15:45:23
END APPLY >>> ./ I 00695070 $ 695110 40 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00695500 $ 695550 50 02/09/06 15:45:23
END APPLY >>> ./ I 00695500 $ 695550 50 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00698000 $ 698490 490 02/09/06 15:45:23
END APPLY >>> ./ R 00698000 $ 698490 490 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00724000 $ 724500 500 02/09/06 15:45:23
END APPLY >>> ./ I 00724000 $ 724500 500 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00727000 $ 727690 690 02/09/06 15:45:23
END APPLY >>> ./ R 00727000 $ 727690 690 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00728600 $ 728690 90 02/09/06 15:45:23
END APPLY >>> ./ R 00728600 $ 728690 90 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00731000 $ 731500 500 02/09/06 15:45:23
END APPLY >>> ./ I 00731000 $ 731500 500 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00788000 $ 788080 80 02/09/06 15:45:23
END APPLY >>> ./ R 00788000 $ 788080 80 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00845000 $ 845300 300 02/09/06 15:45:23
END APPLY >>> ./ I 00845000 $ 845300 300 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00858000 $ 858490 490 02/09/06 15:45:23
END APPLY >>> ./ R 00858000 $ 858490 490 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00879000 $ 879300 300 02/09/06 15:45:23
END APPLY >>> ./ I 00879000 $ 879300 300 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 00883000 $ 883100 100 02/09/06 15:45:23
END APPLY >>> ./ I 00883000 $ 883100 100 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 00970100 00970200 $ 970690 590 02/09/06 15:45:23
END APPLY >>> ./ R 00970100 00970200 $ 970690 590 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 01002500 $ 1002690 190 02/09/06 15:45:23
END APPLY >>> ./ R 01002500 $ 1002690 190 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 01151000 $ 1151500 500 02/09/06 15:45:23
END APPLY >>> ./ I 01151000 $ 1151500 500 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 01210000 $ 1210190 190 02/09/06 15:45:23
END APPLY >>> ./ R 01210000 $ 1210190 190 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 01357110 $ 1357115 5 02/09/06 15:45:23
END APPLY >>> ./ R 01357110 $ 1357115 5 02/09/06 15:45:23
BEGIN APPLY >>> ./ R 01357220 $ 1357221 1 02/09/06 15:45:23
END APPLY >>> ./ R 01357220 $ 1357221 1 02/09/06 15:45:23
BEGIN APPLY >>> ./ I 01357230 $ 1357235 5 02/09/06 15:45:23
END APPLY >>> ./ I 01357230 $ 1357235 5 02/09/06 15:45:23
Update Succeeded
Update Execution Time 94 milliseconds.
HRC311DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC311DK: ./ I 00628000 $ 628100 100 03/20/10 23:45:00
HRC311DK: L R10,SAVEWRK9 save chain 1 address HRC311DK 00628100
HRC311DK: ./ I 00630400 $ 630410 10 03/20/10 23:45:00
HRC311DK: LR R4,R10 save chain 1 address HRC311DK 00630410
HRC311DK: LR R1,R10 save chain 1 address HRC311DK 00630420
HRC311DK: ./ R 00630800 00630800 $ 630810 10 03/20/10 23:45:00
HRC311DK: LR R7,R4 restore chain 1 address HRC311DK 00630810
HRC311DK: ./ R 00634680 00634680 $ 634689 10 03/20/10 23:45:00
HRC311DK: LR R7,R1 restore chain 1 address HRC311DK 00634689
BEGIN APPLY >>> ./ I 00628000 $ 628100 100 03/20/10 23:45:00
END APPLY >>> ./ I 00628000 $ 628100 100 03/20/10 23:45:00
BEGIN APPLY >>> ./ I 00630400 $ 630410 10 03/20/10 23:45:00
END APPLY >>> ./ I 00630400 $ 630410 10 03/20/10 23:45:00
BEGIN APPLY >>> ./ R 00630800 00630800 $ 630810 10 03/20/10 23:45:00
END APPLY >>> ./ R 00630800 00630800 $ 630810 10 03/20/10 23:45:00
BEGIN APPLY >>> ./ R 00634680 00634680 $ 634689 10 03/20/10 23:45:00
END APPLY >>> ./ R 00634680 00634680 $ 634689 10 03/20/10 23:45:00
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cp/dmkcsv.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator