ibm:vm370-lib:cp:dmkmsg.assemble_hst
Table of Contents
DMKMSG History
References
- Fixes Applied : 14
- Latest Source Date : Saturday, December 9, 1978
- Last Fix ID : [HRC101DK]
Update History
CMS File Input : DMKMSG ASSEMBLE
Date : 12/9/1978 4:55:00 AM
VM Context : MAINT(394)
File Name : DMKMSG.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM
Update Order
- R09275DK 601 AT END OF TEXT - INDICATE WHOLE BUFFER USED AND RESET POINTER
- R09896DK 608 MSGNOH IMPLEMENTATION IN RELEASE 6 IS INCOMPLETE
- R09994DK 611 VARIOUS ERRORS USING SMSGS ON RELEASE 6 PLC-1
- R09684DK 611 REDO PROCESSING OF ID TO REMOTE 3270
- R10995DK 611 WITH MSG OFF MSGNOH STILL SENDS MSG TO USER
- R11690DK 615 UV01598 MSVHDIR206E SMSG RC=01 AFTER APPLYING VM09994
- R09531DK 615 UV01859 ABENDLOK001 AFTER SWTCHVM MACRO FOR A FRETTED VMBLOK
- R11792DK 616 UV02145 CANNOT FORCE USER OFF WHEN IN ECHO COMMAND
- R13028DK 620 UV04183 VM10995 CREATES FUTURE EXPOSURE DUE TO CODING CONVE
- R12684DK 622 UV04644 DMKDGD RCWTASK DECREMENTED AS A TIMER VALUE.
- R12594DK 623 UV04921 IMBEDDED LINEND CHARACTER HANDLED INCONSISTENTLY
- R13491DK 623 UV05117 CORRECT HANDLING OF START FIELDS IN MESSAGES
- HRC017DK V01 ELIMINATE TRAILER AND ALARM FOR MSGNOH COMMAND
- HRC101DK V02 TERMINAL ENHANCEMENTS LIKE Z/VM
R09275DK
Date Friday Jan 26, 1979 03:42:00 PM
Loaded from MAINT(294)
R09275DK: ./ I 00234130 $ 234135 00001000
R09275DK: BCTR R4,0 -1, BUFNXT POINTS TO A BLANK @VA09275 00002000
R09275DK: ./ I 00234150 $ 234153 3 00003000
R09275DK: XC BUFCNT,BUFCNT SHOW WE USED THE WHOLE BUFFER @VA09275 00004000
R09275DK: LA R3,1(,R3) POINT TO 1ST CHARACTER OF TEXT @VA09275 00005000
BEGIN APPLY >>> ./ I 00234130 $ 234135 00001000
END APPLY >>> ./ I 00234130 $ 234135 00001000
BEGIN APPLY >>> ./ I 00234150 $ 234153 3 00003000
END APPLY >>> ./ I 00234150 $ 234153 3 00003000
Update Succeeded
Update Execution Time 8 milliseconds.
R09896DK
Date Friday Jan 11, 1980 07:03:00 AM
Loaded from MAINT(294)
R09896DK: ./ I 323050 $ 323100 00001000
R09896DK: S R0,F2 IGNORE TRAILING CR'S ALSO @VA09896 00002000
BEGIN APPLY >>> ./ I 323050 $ 323100 00001000
END APPLY >>> ./ I 323050 $ 323100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R09994DK
Date Saturday Mar 29, 1980 12:07:00 PM
Loaded from MAINT(294)
R09994DK: ./ I 53000 $ 53050 50 00001000
R09994DK: * DMKCVTBD CONVERT BINARY TO DECIMAL 00002000
R09994DK: ./ I 108000 $ 108500 500 00003000
R09994DK: EXTRN DMKCVTBD @VA09994 00004000
R09994DK: ./ D 152780 $ 810 MSG 00005000
R09994DK: ./ R 152880 152880 $ 152880 20 00006000
R09994DK: MVI SAVEWRK1,HEXZERO REMEMBER THIS IS SPECIAL MSG @VA09994 00007000
R09994DK: ./ R 224400 225600 $ 225000 1000 00008000
R09994DK: BE PROCLOG YES - SEND MSG TO HIMSELF @VA09994 00009000
R09994DK: ./ D 234010 234530 00010000
R09994DK: ./ R 249000 249000 $ 248200 200 00011000
R09994DK: MSGRET DS 0H @VA09994 00012000
R09994DK: CLI SAVEWRK1,HEXZERO SMSG? @VA09994 00013000
R09994DK: BE RETURN YES - NOTHING TO FRET THEN @VA09994 00014000
R09994DK: LR R0,R4 LOAD THE BUFFER SIZE @VA09994 00015000
R09994DK: ./ D 281200 281800 00016000
R09994DK: ./ R 291000 291000 $ 290200 200 00017000
R09994DK: CLI SAVEWRK1,HEXZERO IS THIS AN SMSG CMD? @VA09994 00018000
R09994DK: BNE GETMSBUF NO - GET MSG BUFFER @VA09994 00019000
R09994DK: LA R4,1(,R2) START MSG TEXT (W/O BLANKS) @VA09994 00020000
R09994DK: BR R7 AND GO HOME @VA09994 00021000
R09994DK: GETMSBUF EQU * @VA09994 00022000
R09994DK: LA R0,L'MSGHDR+L'MSGTRL+8(,R3) @VA09994 00023000
R09994DK: ./ I 301000 $ 301100 100 00024000
R09994DK: LA R0,1(,R3) GET BACK ACTUAL MSG LENGTH @VA09994 00025000
R09994DK: LA R2,L'MSGHDR(,R1) ADDR. OF IT IN BUFFER @VA09994 00026000
R09994DK: MSGFMTL2 EQU * @VA09994 00027000
R09994DK: CLI 0(R2),X'1D' SCAN FOR UNDESIRED CHARACTERS @VA09994 00028000
R09994DK: BNE MSGFMTL1 NO, DO NOT CHANGE @VA09994 00029000
R09994DK: MVI 0(R2),X'40' BLANK IT OUT @VA09994 00030000
R09994DK: MSGFMTL1 EQU * @VA09994 00031000
R09994DK: LA R2,1(,R2) NO, POINT TO THE NEXT BYTE @VA09994 00032000
R09994DK: BCT R0,MSGFMTL2 SUBTR ONE FROM COUNT BR IF MORE @VA09994 00033000
R09994DK: ./ R 312000 312000 $ 311030 30 N9 00034000
R09994DK: MSGSND DS 0H @VA09994 00035000
R09994DK: CLI SAVEWRK1,X'00' IF = X'00', IT'S AN SMSG. @VA09994 00036000
R09994DK: BNE NOSMSG NO! SEND IT AS A MSG. @VA09994 00037000
R09994DK: MVC SAVEWRK4(8),VMUSER SAVE USREID TO RECV SMSG. @VA09994 00038000
R09994DK: LA R1,=CL14' SMSG OFF ' @VA09994 00039000
R09994DK: TM VMSPMFLG,VMSPMON USER RECEIVING SMSG? @VA09994 00040000
R09994DK: BNO MSGSNDE NO! SEND MSG. INFORMING @VA09994 00041000
R09994DK: L R1,ASYSVM GET SYS VMBLOK ADDR. @VA09994 00042000
R09994DK: SWTCHVM LOCK SYS VNBLOK @VA09994 00043000
R09994DK: LA R0,VMCMLEN+7(R3) GET SENDX EXT INT BUF LEN @VA09994 00044000
R09994DK: SRL R0,3 CONVERT TO DOUBLE WORDS @VA09994 00045000
R09994DK: CALL DMKFREE GO GET SPM BUFFER @VA09994 00046000
R09994DK: USING VMCMHDR,R1 @VA09994 00047000
R09994DK: MVI VMCMEFLG,HEXZERO ZERO OUT RETURN CODE FLD. @VA09994 00048000
R09994DK: MVI VMCMSTAT,HEXZERO (REALLY VMCPFLAG1)NOT PRTY MSG @VA09994 00049000
R09994DK: LA R0,VMCPSENX SENX SUBFUNCTION CODE VALUE @VA09994 00050000
R09994DK: STCM R0,3,VMCMFUNC FILL IN VMCF SUBFUNCTION CODE @VA09994 00051000
R09994DK: LA R0,VMCMLEN(R1) START OF MSG TXT @VA09994 00052000
R09994DK: ST R0,VMCMVADA STORE BUF PTR IN VMCF P-LIST @VA09994 00053000
R09994DK: ST R3,VMCMLENA STORE TXT LEN IN P-LIST @VA09994 00054000
R09994DK: ST R1,VMCMMID USE MSG ADDRESS AS MSG ID @VA09994 00055000
R09994DK: L R15,SAVER11 GET SPM SENDER'S VMBLOK @VA09994 00056000
R09994DK: MVC VMCMUSE(8),VMUSER-VMBLOK(15) SENDERS ID. @VA09994 00057000
R09994DK: MVC VMCMUSER(8),SAVEWRK4 USERID TO RECV SPM @VA09994 00058000
R09994DK: LTR R5,R3 GET MSG TXT LEN @VA09994 00059000
R09994DK: BNP SMSG0 NOTHING TO MOVE, SO DON'T @VA09994 00060000
R09994DK: BCTR R5,0 SUBTRACT 1 FOR MOVE @VA09994 00061000
R09994DK: EX R5,SMSGMVC MOVE SPM TO OUTPUT BUFFER @VA09994 00062000
R09994DK: SMSG0 DS 0H @VA09994 00063000
R09994DK: LA R2,VMCMLEN LENGTH OF P-LIST FOR VMCF CALL @VA09994 00064000
R09994DK: DROP R1 @VA09994 00065000
R09994DK: CALL DMKVMCFC SENDX THE VMCF SPM @VA09994 00066000
R09994DK: LTR R2,R2 HOW'D THE SENDX GO? @VA09994 00067000
R09994DK: BZ SMSGOK @VA09994 00068000
R09994DK: LA R0,VMCMLEN+7(R3) GET SENDX EXT INT BUF LEN @VA09994 00069000
R09994DK: SRL R0,3 CONVETR TO DOUBLE WORDS @VA09994 00070000
R09994DK: CALL DMKFRET RELEASE SPM BUFFER @VA09994 00071000
R09994DK: SMSGOK DS 0H @VA09994 00072000
R09994DK: LA R1,SAVEWRK4 POINT TO CURRENT USER ID C @VA09994 00073000
R09994DK: LA R0,8 LENGTH OF A USER ID @VA09994 00074000
R09994DK: CALL DMKSCNAU FIND USERS VMBLOK @VA09994 00075000
R09994DK: SWTCHVM @VA09994 00076000
R09994DK: LTR R2,R2 TEST COND CODE @VA09994 00077000
R09994DK: BZR R7 OK- CONTINUE NORMALLY @VA09994 00078000
R09994DK: LA R1,=CL14'NOT AUTHORIZED' SET UP MSG057 DATA @VA09994 00079000
R09994DK: CH R2,NOTAUTH WAS RECEIVER UNAUTH? @VA09994 00080000
R09994DK: BE MSGSNDE YES! GEN MSG @VA09994 00081000
R09994DK: LA R1,=CL14'QUIESCED' SET UP MSG057 DATA @VA09994 00082000
R09994DK: CH R2,QUIESCED WAS RECEIVER QUIESCED? @VA09994 00083000
R09994DK: BE MSGSNDE YES! GEN MSG @VA09994 00084000
R09994DK: LA R1,=CL14'MSG TOO LARGE' SET UP MSG057 DATA @VA09994 00085000
R09994DK: CH R2,BIGMSG WAS MSG TOO BIG? @VA09994 00086000
R09994DK: BE MSGSNDE YES! GEN MSG @VA09994 00087000
R09994DK: * CHECK FOR ANY OTHER ERROR 00088000
R09994DK: LR R1,R2 GET RETURN CODE @VA09994 00089000
R09994DK: CALL DMKCVTBD IN PRINTABLE DECIMAL @VA09994 00090000
R09994DK: MVC SAVEWRK6+1(11),=CL11'VMCF ERROR' @VA09994 00091000
R09994DK: STCM R1,B'0111',SAVEWRK6+12 PUT INTO MSG @VA09994 00092000
R09994DK: B MSGSNDX @VA09994 00093000
R09994DK: NOSMSG DS 0H @VA09994 00094000
R09994DK: EX R5,MSGREC USER RECEIVING MESSAGES? @VA09994 00095000
R09994DK: ./ D 329000 329000 00096000
R09994DK: ./ I 338000 $ 338030 30 00097000
R09994DK: MSGSNDX EQU * @VA09994 00098000
R09994DK: MVI SAVEWRK6,X'00' FIELD DELIMITER @VA09994 00099000
R09994DK: ./ I 350200 $ 351200 1000 00100000
R09994DK: CLI SAVEWRK1,HEXZERO WAS THIS AN SMSG ATTEMPT? @VA09994 00101000
R09994DK: BER R7 YES! DON'T RETRY @VA09994 00102000
R09994DK: ./ D 357300 357600 00103000
R09994DK: ./ D 471250 00104000
R09994DK: ./ R 479500 479500 $ 479500 500 00105000
R09994DK: SMSGMVC MVC VMCMLEN(0,R1),0(R4) SPM TO OUTPUT BUFF @VA09994 00106000
R09994DK: ./ R 482400 482600 $ 482300 100 00107000
R09994DK: NOTAUTH DC AL2(VMC05) RECEIVER NOT VMCF AUTH @VA09994 00108000
R09994DK: BIGMSG DC AL2(VMC07) RECEIVER BUFF TOO SMALL @VA09994 00109000
R09994DK: QUIESCED DC AL2(VMC09) RECEIVER IN VMCF QUIESCESAVE @VA09994 00110000
BEGIN APPLY >>> ./ I 53000 $ 53050 50 00001000
END APPLY >>> ./ I 53000 $ 53050 50 00001000
BEGIN APPLY >>> ./ I 108000 $ 108500 500 00003000
END APPLY >>> ./ I 108000 $ 108500 500 00003000
BEGIN APPLY >>> ./ D 152780 $ 810 MSG 00005000
VMFApply WARNING - Error 0x8004001A Source Update2/Parse Description Non Numeric at 6
Loaded Update: DMKMSG R09684DK 3/29/1980 3:07:00 AM from MAINT(294)
R09684DK: ./ I 00301500 $ 00301505 5 00001000
R09684DK: ICM R5,15,VMTERM GET CONSOLE RDEV DISP @VA09684 00002000
R09684DK: BNP MSGFMTL1 NO GOTS! LEAVE IT ALONE @VA09684 00003000
R09684DK: TM RDEVTYPC-RDEVBLOK(R5),CLASTERM REMOTE LINE RDEV @VA09684 00004000
R09684DK: BZ MSGFMTL1 NO CONTINUE @VA09684 00005000
R09684DK: TM RDEVTYPE-RDEVBLOK(R5),TYPBSC LINE FOR 3270 FAMLY@VA09684 00006000
R09684DK: BZ MSGFMTL1 NO CONTINUE @VA09684 00007000
R09684DK: LH R6,VMTRMID GET INDEX FOR NICBLOK @VA09684 00008000
R09684DK: N R6,F4095 STRIP DEVICE CODE @VA09684 00009000
R09684DK: MH R6,=AL2(NICSIZE*8) MULTIPLY BY NICBLOK SIZE @VA09684 00010000
R09684DK: AL R6,RDEVNICL-RDEVBLOK(R5) ADD NICBLOK START @VA09684 00011000
R09684DK: TM NICTMCD-NICBLOK(R6),NICAPL IS IT APL ? @VA09684
R09684DK: BO MSGFMTL1 YES HE'S GONNA NEED ONE DOGS @VA09684
R09684DK: ./ I 00496000 $ 00496010 10
R09684DK: COPY NETWORK @VA09684
R09684DK: COPY RBLOKS @VA09684
R09684DK: COPY DEVTYPES @VA09684
BEGIN APPLY >>> ./ I 00301500 $ 00301505 5 00001000
VMFApply WARNING - Error 0x80040009 Source Update2/Insert Description Requested Sequence Number (00301500) not found.
Loaded Update: DMKMSG R10995DK 4/7/1980 3:31:00 AM from MAINT(294)
R10995DK: ./ I 309000 $ 309500 00001000
R10995DK: N R5,=F'192' LEAVE ON BITS 0 AND 1 BUT NOT 7 @VA10995 00002000
BEGIN APPLY >>> ./ I 309000 $ 309500 00001000
END APPLY >>> ./ I 309000 $ 309500 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R11690DK
Date Tuesday Jul 29, 1980 06:18:00 AM
Loaded from MAINT(294)
R11690DK: ./ I 280000 $ 280100 100 00001000
R11690DK: CLI SAVEWRK1,HEXZERO IS THIS AN SMSG ? @VA11690 00002000
R11690DK: BNE MSGFMTL NO, CHECK FOR X'15'S @VA11690 00003000
R11690DK: BCTR R4,0 LENGTH-1 (SKIP BLANK) @VA11690 00004000
R11690DK: LR R3,R4 INTO LENGTH REGISTER @VA11690 00005000
R11690DK: LA R4,1(,R2) ADDR+1 (SKIP BLANK) @VA11690 00006000
R11690DK: XC BUFCNT,BUFCNT SHOW WE USED IT ALL @VA11690 00007000
R11690DK: BR R7 AND GO BACK @VA11690 00008000
BEGIN APPLY >>> ./ I 280000 $ 280100 100 00001000
END APPLY >>> ./ I 280000 $ 280100 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R09531DK
Date Tuesday Jul 29, 1980 07:24:00 AM
Loaded from MAINT(294)
R09531DK: ./ I 53100 $ 53200 100 00001000
R09531DK: * DMKLOCK - OBTAIN LOCKBLOK TO KEEP RECEIVER FOR ERROR MSG 00002000
R09531DK: * DMKLOCKD - RELEASE LOCKBLOK AFTER ERROR MSG WRITTEN 00003000
R09531DK: ./ I 113500 $ 113750 00004000
R09531DK: EXTRN DMKLOCK,DMKLOCKD @VA09531 00005000
R09531DK: ./ I 228000 $ 228020 20 00006000
R09531DK: TM VMRSTAT-VMBLOK(R1),VMLOGOFF USER LOGGING OFF? @VA09531 00007000
R09531DK: BO MSG045 YES,LOGOFF @VA09531 00008000
R09531DK: TM VMOSTAT-VMBLOK(R1),VMKILL USER KILLED? @VA09531 00009000
R09531DK: BO MSG045 YES,KILLED @VA09531 00010000
R09531DK: ./ R 239200 $ 239220 20 00011000
R09531DK: LR R1,R11 @VA09531 00012000
R09531DK: L R1,VMPNT-VMBLOK(,R1) GET NEXT VMBLOK ADDRESS @VA09531 00014000
R09531DK: NEXTVM2 DS 0H @VA09531 00015000
R09531DK: ./ I 239400 $ 239410 8 00016000
R09531DK: TM VMRSTAT-VMBLOK(R1),VMLOGOFF USER LOGGING OFF? @VA09531 00017000
R09531DK: BO NEXTVM3 YES,LOGOFF @VA09531 00018000
R09531DK: TM VMOSTAT-VMBLOK(R1),VMKILL USER KILLED? @VA09531 00019000
R09531DK: BO NEXTVM3 YES,KILLED @VA09531 00020000
R09531DK: B NEXTVM4 SWAP VMBLOK @VA09531 00021000
R09531DK: NEXTVM3 DS 0H @VA09531 00022000
R09531DK: L R1,VMPNT-VMBLOK(,R1) GET NEXT VMBLOK @VA09531 00023000
R09531DK: B NEXTVM2 CONTINUE VALIDITY CHECK @VA09531 00025000
R09531DK: NEXTVM4 DS 0H @VA09531 00026000
R09531DK: ./ I 256200 $ 256220 20 00027000
R09531DK: TM VMRSTAT-VMBLOK(R1),VMLOGOFF USER LOGGING OFF? @VA09531 00028000
R09531DK: BO MSG045 YES,LOGOFF @VA09531 00029000
R09531DK: TM VMOSTAT-VMBLOK(R1),VMKILL USER KILLED? @VA09531 00030000
R09531DK: BO MSG045 YES,KILLED @VA09531 00031000
R09531DK: ./ I 337000 $ 337500 00032000
R09531DK: LM R5,R6,SAVEWRK8 SAVE LENGTH OF USERID @VA09531 00033000
R09531DK: ./ I 338300 $ 338450 150 00034000
R09531DK: LA R1,VMUSER-VMBLOK(,R8) LOCK DISCO USER @VA09531 00035000
R09531DK: CALL DMKLOCK @VA09531 00036000
R09531DK: ./ R 350100 $ 350110 10 00037000
R09531DK: LA R1,VMUSER-VMBLOK(,R8) UNLOCK DISCO USER @VA09531 00038000
R09531DK: CALL DMKLOCKD @VA09531 00039000
R09531DK: LR R1,R8 @VA09531 00040000
R09531DK: IC R5,SAVEWRK1 RESTORE MASK @VA09531 00041000
BEGIN APPLY >>> ./ I 53100 $ 53200 100 00001000
END APPLY >>> ./ I 53100 $ 53200 100 00001000
BEGIN APPLY >>> ./ I 113500 $ 113750 00004000
END APPLY >>> ./ I 113500 $ 113750 00004000
BEGIN APPLY >>> ./ I 228000 $ 228020 20 00006000
END APPLY >>> ./ I 228000 $ 228020 20 00006000
BEGIN APPLY >>> ./ R 239200 $ 239220 20 00011000
END APPLY >>> ./ R 239200 $ 239220 20 00011000
BEGIN APPLY >>> ./ I 239400 $ 239410 8 00016000
END APPLY >>> ./ I 239400 $ 239410 8 00016000
BEGIN APPLY >>> ./ I 256200 $ 256220 20 00027000
END APPLY >>> ./ I 256200 $ 256220 20 00027000
BEGIN APPLY >>> ./ I 337000 $ 337500 00032000
END APPLY >>> ./ I 337000 $ 337500 00032000
BEGIN APPLY >>> ./ I 338300 $ 338450 150 00034000
END APPLY >>> ./ I 338300 $ 338450 150 00034000
BEGIN APPLY >>> ./ R 350100 $ 350110 10 00037000
END APPLY >>> ./ R 350100 $ 350110 10 00037000
Update Succeeded
Update Execution Time 23 milliseconds.
R11792DK
Date Friday Sep 26, 1980 09:09:00 AM
Loaded from MAINT(294)
R11792DK: ./ I 443000 $ 443100 100 00001000
R11792DK: TM VMOSTAT,VMKILL TEST IF USER TO BE FORCED OFF? @VA11792 00002000
R11792DK: BO ECHOEXIT IF SO, EXIT @VA11792 00003000
BEGIN APPLY >>> ./ I 443000 $ 443100 100 00001000
END APPLY >>> ./ I 443000 $ 443100 100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R13028DK
Date Tuesday Apr 07, 1981 03:30:00 AM
Loaded from MAINT(294)
R13028DK: ./ R 309500 $ 309510 00001000
R13028DK: N R5,=A(VMMSGON+VMWNGON) LEAVE ON MSG AND WNG @VA13028 00002000
BEGIN APPLY >>> ./ R 309500 $ 309510 00001000
END APPLY >>> ./ R 309500 $ 309510 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R12684DK
Date Wednesday Jun 24, 1981 06:12:00 AM
Loaded from MAINT(294)
R12684DK: ./ R 53200 $ 53200
R12684DK: * DMKLOCKQ - OBTAIN LOCKBLOK TO KEEP RECEIVER FOR ERROR MSG
R12684DK: ./ R 113750 $ 113750
R12684DK: EXTRN DMKLOCKQ,DMKLOCKD @VA12684
R12684DK: ./ I 213000 $ 213100 100
R12684DK: LA R0,MSGWASZE SIZE OF WORK AREA IN DW'S @VA12684
R12684DK: CALL DMKFREE OBTAIN STORAGE FOR WORK AREA @VA12684
R12684DK: ST R1,SAVEWRK6 HOLD ADDRESS OF WORK AREA @VA12684
R12684DK: LR R6,R1 ADDRESS OF WORK AREA @VA12684
R12684DK: USING MSG1,R6 WORK AREA ADDRESSABILITY @VA12684
R12684DK: XC MSG1,MSG1 CLEAR WORK AREA @VA12684
R12684DK: DROP R6 @VA12684
R12684DK: LM R0,R1,SAVEWRK8 RESTORE REGS R0 - R1 @VA12684
R12684DK: ./ I 251100 $ 251110 10
R12684DK: L R1,SAVEWRK6 ADDRESS OF WORK AREA @VA12684
R12684DK: LTR R1,R1 WAS A WORK AREA OBTAINED ? @VA12684
R12684DK: BZ MSGEXIT NO, JUST EXIT @VA12684
R12684DK: LA R0,MSGWASZE SIZE OF WORK AREA @VA12684
R12684DK: CALL DMKFRET RELEASE WORK AREA STORAGE @VA12684
R12684DK: MSGEXIT DS 0H @VA12684
R12684DK: ./ I 311030 $ 311040 10
R12684DK: L R6,SAVEWRK6 ADDRESS OF WORK AREA @VA12684
R12684DK: ./ R 311120 $ 311120
R12684DK: MVC MSGWA1(8,R6),VMUSER SAVE USERID TO RECV SMSG. @VA12684
R12684DK: ./ R 311720 $ 311720
R12684DK: MVC VMCMUSER(8),MSGWA1(R6) USERID TO RECV SPM @VA12684
R12684DK: ./ R 312170 $ 312170
R12684DK: LA R1,MSGWA1(,R1) POINT TO CURRENT USERID @VA12684
R12684DK: ./ R 312710 312740 $ 312710 30
R12684DK: MVC MSGWA2+1(11,R6),=CL11'VMCF ERROR' @VA12684
R12684DK: STCM R1,B'0111',MSGWA2+12(R6) PUT INTO MSG @VA12684
R12684DK: ./ R 328000 $ 328000
R12684DK: MVC MSGWA1(8,R6),VMUSER MOVE USERID FOR DMKERMSG @VA12684
R12684DK: ./ R 337500 338000 $ 337500
R12684DK: MVC MSGWA2+1(14,R6),0(R1) MOVE IN MESSAGE TRAILER @VA12684
R12684DK: ./ R 338060 $ 338060
R12684DK: MVI MSGWA2(R6),X'00' FIELD DELIMITER @VA12684
R12684DK: ./ R 338600 339000 $ 338600 700
R12684DK: CALL DMKLOCKQ QUEUE ON OR OBTAIN USER LOCKBLOK @VA12684
R12684DK: LR R1,R6 START OF VARIABLE DATA FIELDS @VA12684
R12684DK: ./ I 403000 $ 403500
R12684DK: XC SAVEWRK6,SAVEWRK6 NO WORK AREA OBTAINED @VA12684
R12684DK: ./ I 481000 $ 481500
R12684DK: MSGWASZE EQU 3 SIZE OF WORK AREA IN DW'S @VA12684
R12684DK: ./ I 488000 $ 488200 200
R12684DK: MSG1 DS CL23 WORK AREA @VA12684
R12684DK: MSGWA1 EQU 0 WORK AREA 1 @VA12684
R12684DK: MSGWA2 EQU 8 WORK AREA 2 @VA12684
BEGIN APPLY >>> ./ R 53200 $ 53200
END APPLY >>> ./ R 53200 $ 53200
BEGIN APPLY >>> ./ R 113750 $ 113750
END APPLY >>> ./ R 113750 $ 113750
BEGIN APPLY >>> ./ I 213000 $ 213100 100
END APPLY >>> ./ I 213000 $ 213100 100
BEGIN APPLY >>> ./ I 251100 $ 251110 10
END APPLY >>> ./ I 251100 $ 251110 10
BEGIN APPLY >>> ./ I 311030 $ 311040 10
VMFApply WARNING - Error 0x80040009 Source Update2/Insert Description Requested Sequence Number (00311030) not found.
Loaded Update: DMKMSG R12594DK 8/11/1981 7:16:00 AM from MAINT(294)
R12594DK: ./ D 280100 280700 $ 00001000
BEGIN APPLY >>> ./ D 280100 280700 $ 00001000
END APPLY >>> ./ D 280100 280700 $ 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R13491DK
Date Friday Aug 14, 1981 08:05:00 AM
Loaded from MAINT(294)
R13491DK: ./ D 00301200 00301900 06/15/81 09:16:00
BEGIN APPLY >>> ./ D 00301200 00301900 06/15/81 09:16:00
VMFApply WARNING - Error 0x8004000D Source Update2/Delete Description Requested Sequence Number (00301200) not found.
Loaded Update: DMKMSG HRC017DK 1/1/2013 5:53:00 PM from MAINT(094)
HRC017DK: ./ I 00322900
HRC017DK: LA R15,L'MSGTRL(,R15) DECR LENGTH BY TRAILER HRC017DK 00323000
HRC017DK: ./ I 00323100 $ 323150
HRC017DK: LA R2,NORET NO ALARM OR HILIGHT FOR MSGNOH HRC017DK 00323150
BEGIN APPLY >>> ./ I 00322900
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ I 00322900
BEGIN APPLY >>> ./ I 00323100 $ 323150
END APPLY >>> ./ I 00323100 $ 323150
Update Succeeded
Update Execution Time 23 milliseconds.
HRC101DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC101DK: ./ R 00209000 $ 209190 190 03/13/06 14:57:35
HRC101DK: XC SAVEWRK1,SAVEWRK1 CLEAR WORK AREA FOR FLAGS HRC101DK
HRC101DK: OI SAVEWRK1,VMMSGON REMEMBER THAT THIS IS A MESSHRC101DK 00209000
HRC101DK: OI SAVEWRK1+2,NHILIGHT+NALARM HRC101DK
HRC101DK: ./ I 00274000 $ 274300 300 03/13/06 14:57:35
HRC101DK: OI SAVEWRK1+2,MALLOK ALL OK TO USE HRC101DK
HRC101DK: NI SAVEWRK1+2,255-NALARM OK TO USE HRC101DK
HRC101DK: ./ I 00309000 $ 309040 40 03/13/06 14:57:35
HRC101DK: L R8,VMTERM GET TERMINAL ADDRESS HRC101DK 00309040
HRC101DK: LTR R8,R8 IS THERE ONE? HRC101DK 00309080
HRC101DK: BZR R7 NOPE - JUST LEAVE HRC101DK 00309120
HRC101DK: USING RDEVBLOK,R8 HRC101DK 00309160
HRC101DK: TM RDEVTYPC,CLASTERM TERMINAL TYPE ? HRC101DK 00309200
HRC101DK: BZ *+12 NO, MUST BE A GRAF HRC101DK 00309240
HRC101DK: TM RDEVTYPE,TYPBSC REMOTE GRAF HRC101DK 00309280
HRC101DK: BZ *+8 NO, LEAVE IT HRC101DK 00309320
HRC101DK: MVI 8(R1),C' ' REPLACE NEWLINE CHAR HRC101DK 00309360
HRC101DK: DROP R8 HRC101DK 00309400
HRC101DK: ./ R 00318000 $ 318490 490 03/13/06 14:57:35
HRC101DK: L R2,=A(HOLDSCR+NORET+PRIORITY+ALARM) WNG PARMS HRC101DK 00318490
HRC101DK: ./ R 00321000 $ 321290 290 03/13/06 14:57:35
HRC101DK: L R2,=A(HOLDSCR+NORET+ALARM) MSG PARMS HRC101DK 00321290
HRC101DK: SPACE , HRC101DK 00321580
HRC101DK: ./ R 00322150 $ 322160 10 03/13/06 14:57:35
HRC101DK: TM SAVEWRK1+2,NHILIGHT WANTS NO MSG HILIGHTING! HRC101DK 00322160
HRC101DK: BO MSGNHILI SKIP IT HRC101DK 00322170
HRC101DK: O R2,=A(HILIGHT) ELSE, TURN IT ON HRC101DK 00322180
HRC101DK: SPACE , HRC101DK 00322190
HRC101DK: MSGNHILI EQU * HRC101DK 00322200
HRC101DK: ./ D 00323100 03/13/06 14:57:35
HRC101DK: ./ R 00323500 00323650 $ 323590 90 03/13/06 14:57:35
HRC101DK: O R2,=A(NOTRESP+NOTIME) SET MSG PARMS HRC101DK 00323590
HRC101DK: CALL DMKQCNWT SEND MSG HRC101DK 00323680
HRC101DK: ./ R 00483000 $ 483490 490 03/13/06 14:57:35
HRC101DK: MSGHDR DS CL29 LENGTH OF MESSAGE HEADER HRC101DK 00483490
HRC101DK: ./ R 00486000 $ 486490 490 03/13/06 14:57:35
HRC101DK: DC X'1540' CR BLANK HRC101DK 00486490
HRC101DK: ./ R 00488000 $ 488090 90 03/13/06 14:57:35
HRC101DK: MSGTRL DC X'40' BLANK HRC101DK 00488090
HRC101DK: ./ I 00488600 $ 488660 60 03/13/06 14:57:35
HRC101DK: SPACE 1 HRC101DK
HRC101DK: * BITS DEFINED IN SAVEWRK1+2 HRC101DK
HRC101DK: MALLOK EQU X'80' 'ALL' OPERAND IS ALLOWED HRC101DK
HRC101DK: NALARM EQU X'40' NO ALARM WILL BE SOUNDED HRC101DK
HRC101DK: NHILIGHT EQU X'20' NO HIGH LIGHTING OF MSG HRC101DK
BEGIN APPLY >>> ./ R 00209000 $ 209190 190 03/13/06 14:57:35
END APPLY >>> ./ R 00209000 $ 209190 190 03/13/06 14:57:35
BEGIN APPLY >>> ./ I 00274000 $ 274300 300 03/13/06 14:57:35
END APPLY >>> ./ I 00274000 $ 274300 300 03/13/06 14:57:35
BEGIN APPLY >>> ./ I 00309000 $ 309040 40 03/13/06 14:57:35
END APPLY >>> ./ I 00309000 $ 309040 40 03/13/06 14:57:35
BEGIN APPLY >>> ./ R 00318000 $ 318490 490 03/13/06 14:57:35
END APPLY >>> ./ R 00318000 $ 318490 490 03/13/06 14:57:35
BEGIN APPLY >>> ./ R 00321000 $ 321290 290 03/13/06 14:57:35
END APPLY >>> ./ R 00321000 $ 321290 290 03/13/06 14:57:35
BEGIN APPLY >>> ./ R 00322150 $ 322160 10 03/13/06 14:57:35
END APPLY >>> ./ R 00322150 $ 322160 10 03/13/06 14:57:35
BEGIN APPLY >>> ./ D 00323100 03/13/06 14:57:35
END APPLY >>> ./ D 00323100 03/13/06 14:57:35
BEGIN APPLY >>> ./ R 00323500 00323650 $ 323590 90 03/13/06 14:57:35
END APPLY >>> ./ R 00323500 00323650 $ 323590 90 03/13/06 14:57:35
BEGIN APPLY >>> ./ R 00483000 $ 483490 490 03/13/06 14:57:35
END APPLY >>> ./ R 00483000 $ 483490 490 03/13/06 14:57:35
BEGIN APPLY >>> ./ R 00486000 $ 486490 490 03/13/06 14:57:35
END APPLY >>> ./ R 00486000 $ 486490 490 03/13/06 14:57:35
BEGIN APPLY >>> ./ R 00488000 $ 488090 90 03/13/06 14:57:35
END APPLY >>> ./ R 00488000 $ 488090 90 03/13/06 14:57:35
BEGIN APPLY >>> ./ I 00488600 $ 488660 60 03/13/06 14:57:35
VMFApply WARNING - Error 0x80040009 Source Update2/Insert Description Requested Sequence Number (00488600) not found.
Output Written to 'C:\Users\sjzop\AppData\Local\Temp\dmkmsg.assemble.maint(394).latest.txt'
>>>>> VMFApply COMPLETE - Execution Time 242 milliseconds.
ibm/vm370-lib/cp/dmkmsg.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator