DMKMSG History
References
-
-
Fixes Applied : 14
-
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.