DMSLST History
References
-
-
Fixes Applied : 7
-
Last Fix ID : [HRC321DS]
Update History
CMS File Input : DMSLST ASSEMBLE
Date : 12/12/1978 8:30:00 AM
VM Context : MAINT(393)
File Name : DMSLST.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM
Update Order
R09741DS 602 DMSLST GIVES RET CODE OF 28 INSTEAD OF 24 WITH MSG DMSLST070E
R14113DS 624 UV05346 DMSLST MSDMSLST037E IF LISTFILE (EXEC AND NO A DISK
HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP - LISTFILE
HRC005DS V01 ADD FULL DATE SUPPORT
HRC309DS v03 handle change to flag byte in R1 on invocation
HRC320DS v03 fix bug in HRC005DS where blocks are truncated with ALLOC option
HRC321DS v03 add FIFO and LIFO options
R09741DS
Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
R09741DS: ./ R 633000 $ 633000
R09741DS: LA R11,24 RET CODE OF 24 @VA09741
BEGIN APPLY >>> ./ R 633000 $ 633000
END APPLY >>> ./ R 633000 $ 633000
Update Succeeded
Update Execution Time 16 milliseconds.
R14113DS
Date Thursday Sep 17, 1981 08:28:00 AM
Loaded from MAINT(193)
R14113DS: ./ I 00467000 $ 00467500 20
R14113DS: TM ADTFLG1,ADTFRO+ADTFRW IS THE A DISK ACCESSED @VA14113
R14113DS: BNZ ADISK YES. @VA14113
R14113DS: MVC DESMODE(2),DMODE SET UP A MODE IN MSG. @VA14113
R14113DS: B ERR3 A DISK ISN'T ACCESSED. @VA14113
R14113DS: ADISK EQU * @VA14113
BEGIN APPLY >>> ./ I 00467000 $ 00467500 20
END APPLY >>> ./ I 00467000 $ 00467500 20
Update Succeeded
Update Execution Time 16 milliseconds.
HRC002DS
Date Thursday Feb 09, 2006 09:23:00 PM
Loaded from MAINT(093)
HRC002DS: ./ R 00436000 00443000 $ 436690 690 01/01/06 19:09:28
HRC002DS: CLI DESMODE,C'I' COMPARE AGAINST MODE OF I. HRC002DS 00436000
HRC002DS: BNH FINDIT ERROR IF HIGH. HRC002DS 00437000
HRC002DS: CLI DESMODE,C'J' COMPARE AGAINST MODE OF J. HRC002DS 00434000
HRC002DS: BL ERR6A ERROR IF LOW. HRC002DS 00435000
HRC002DS: CLI DESMODE,C'R' COMPARE AGAINST MODE OF R. HRC002DS 00436000
HRC002DS: BNH FINDIT OK IT IF HIGH. HRC002DS 00437000
HRC002DS: CLI DESMODE,C'S' COMPARE AGAINST MODE OF S. HRC002DS 00434000
HRC002DS: BL ERR6A ERROR IF LOW. HRC002DS 00435000
HRC002DS: CLI DESMODE,C'Z' COMPARE AGAINST MODE OF Z. HRC002DS 00436000
HRC002DS: BH ERR6A ERROR IF HIGH. HRC002DS 00437000
BEGIN APPLY >>> ./ R 00436000 00443000 $ 436690 690 01/01/06 19:09:28
END APPLY >>> ./ R 00436000 00443000 $ 436690 690 01/01/06 19:09:28
Update Succeeded
Update Execution Time 23 milliseconds.
HRC005DS
Date Friday Feb 17, 2006 01:58:00 PM
Loaded from MAINT(093)
HRC005DS: ./ I 00040000 $ 40500 500 01/14/06 19:43:37
HRC005DS: * CL8'FULLDATE|SHORTDATE|ISODATE' HRC005DS 00040500
HRC005DS: ./ I 00209150 $ 209550 400 01/14/06 19:43:37
HRC005DS: MVI FLAG2,X'00' HRC005DS 00209550
HRC005DS: ./ R 00342000 $ 342490 490 01/14/06 19:43:37
HRC005DS: DT LA R3,61 HRC005DS 00342490
HRC005DS: ./ I 00345000 $ 345040 40 01/14/06 19:43:37
HRC005DS: SHORTDAT EQU * HRC005DS 00345040
HRC005DS: TM FLAG2,FLG2ISO HRC005DS 00345080
HRC005DS: BO ERR8A HRC005DS 00345120
HRC005DS: TM FLAG2,FLG2FULL HRC005DS 00345160
HRC005DS: BO ERR8B HRC005DS 00345200
HRC005DS: OI FLAG2,FLG2SHRT HRC005DS 00345240
HRC005DS: B DT HRC005DS 00345280
HRC005DS: FULLDATE EQU * HRC005DS 00345320
HRC005DS: TM FLAG2,FLG2ISO HRC005DS 00345360
HRC005DS: BO ERR8C HRC005DS 00345400
HRC005DS: TM FLAG2,FLG2SHRT HRC005DS 00345440
HRC005DS: BO ERR8B HRC005DS 00345480
HRC005DS: OI FLAG2,FLG2FULL HRC005DS 00345520
HRC005DS: B DT HRC005DS 00345560
HRC005DS: ISODATE EQU * HRC005DS 00345600
HRC005DS: TM FLAG2,FLG2FULL HRC005DS 00345640
HRC005DS: BO ERR8C HRC005DS 00345680
HRC005DS: TM FLAG2,FLG2SHRT HRC005DS 00345720
HRC005DS: BO ERR8A HRC005DS 00345760
HRC005DS: OI FLAG2,FLG2ISO HRC005DS 00345800
HRC005DS: B DT HRC005DS 00345840
HRC005DS: ./ R 00372000 $ 372490 490 01/14/06 19:43:37
HRC005DS: LABEL LA R3,68 HRC005DS 00372490
HRC005DS: ./ I 00400000 $ 400100 100 01/14/06 19:43:37
HRC005DS: OPTION SHORTDAT,3 HRC005DS 00400100
HRC005DS: SPACE , HRC005DS 00400200
HRC005DS: OPTION ISODATE,3 HRC005DS 00400300
HRC005DS: SPACE , HRC005DS 00400400
HRC005DS: OPTION FULLDATE,3 HRC005DS 00400500
HRC005DS: SPACE , HRC005DS 00400600
HRC005DS: ./ R 00545000 $ 545290 290 01/14/06 19:43:37
HRC005DS: PLAB EQU * HRC005DS 00545290
HRC005DS: MVC VOLID(6),ADTID MOVE IN THE VOLUME LABEL. HRC005DS 00545580
HRC005DS: ./ I 00546000 $ 546500 500 01/14/06 19:43:37
HRC005DS: LA R10,TIME SET REC BUFFER HRC005DS 00546500
HRC005DS: ./ D 00548000 01/14/06 19:43:37
HRC005DS: ./ D 00557000 00561000 01/14/06 19:43:37
HRC005DS: ./ R 00563000 $ 563490 490 01/14/06 19:43:37
HRC005DS: LA R10,CHARDATE HRC005DS 00563490
HRC005DS: ./ R 00569000 $ 569290 290 01/14/06 19:43:37
HRC005DS: NODATE MVC CHARDATE(9),=C' 00000000' INVALID DATE HRC005DS 00569290
HRC005DS: B PDATE1 HRC005DS 00569580
HRC005DS: ./ I 00570000 $ 570040 40 01/14/06 19:43:37
HRC005DS: MVC CHARDATE+5(2),=C'19' ASSUME 20TH CENTURY HRC005DS 00570040
HRC005DS: MVC CHARDATE+7(2),38(R8) HRC005DS 00570080
HRC005DS: CLI 38(R8),C'5' DATES BEFORE 1960 ARE 21ST CENTURHRC005DS 00570120
HRC005DS: BH PDATE1 GOT CENTURY HRC005DS 00570160
HRC005DS: MVC CHARDATE+5(2),=C'20' MAKE IT 21ST CENTURY HRC005DS 00570200
HRC005DS: PDATE1 EQU * HRC005DS 00570240
HRC005DS: MVI DATE+2,C'/' HRC005DS 00570280
HRC005DS: MVI DATE+5,C'/' HRC005DS 00570320
HRC005DS: MVC DATE(2),CHARDATE+1 MM HRC005DS 00570360
HRC005DS: MVC DATE+3(2),CHARDATE+3 DD HRC005DS 00570400
HRC005DS: TM FLAG2,FLG2FULL+FLG2ISO IS THIS A LONG DATE HRC005DS 00570440
HRC005DS: BNZ PDATEFUL CHECK FULLDATE HRC005DS 00570480
HRC005DS: MVC DATE+6(2),CHARDATE+7 YY HRC005DS 00570520
HRC005DS: B PREC HRC005DS 00570560
HRC005DS: PDATEFUL TM FLAG2,FLG2FULL HRC005DS 00570600
HRC005DS: BNO PDATEISO HRC005DS 00570640
HRC005DS: MVC DATE+6(4),CHARDATE+5 CCYY HRC005DS 00570680
HRC005DS: B PREC HRC005DS 00570720
HRC005DS: PDATEISO MVI DATE+4,C'-' CCYY-MM-DD HRC005DS 00570760
HRC005DS: MVI DATE+7,C'-' HRC005DS 00570800
HRC005DS: MVC DATE+0(4),CHARDATE+5 CCYY HRC005DS 00570840
HRC005DS: MVC DATE+5(2),CHARDATE+1 MM HRC005DS 00570880
HRC005DS: MVC DATE+8(2),CHARDATE+3 DD HRC005DS 00570920
HRC005DS: ./ R 00665000 00667000 $ 665990 990 01/14/06 19:43:37
HRC005DS: B ERRCNFLC HRC005DS 00665990
HRC005DS: ./ R 00670000 00671000 $ 670090 90 01/14/06 19:43:37
HRC005DS: B ERRCNFLC HRC005DS 00670090
HRC005DS: SPACE , HRC005DS 00670180
HRC005DS: ERR8A LA R6,CONFLCT3 HRC005DS 00670270
HRC005DS: B ERRCNFLC HRC005DS 00670360
HRC005DS: SPACE , HRC005DS 00670450
HRC005DS: ERR8B LA R6,CONFLCT4 HRC005DS 00670540
HRC005DS: B ERRCNFLC HRC005DS 00670630
HRC005DS: SPACE , HRC005DS 00670720
HRC005DS: ERR8C LA R6,CONFLCT5 HRC005DS 00670810
HRC005DS: ERRCNFLC LA R11,24 HRC005DS 00670900
HRC005DS: LA R13,66 HRC005DS 00670990
HRC005DS: ./ I 00710000 $ 710090 90 01/14/06 19:43:37
HRC005DS: * HRC005DS 00710090
HRC005DS: CONFLCT3 DC AL1(L'CONFMSG3) HRC005DS 00710180
HRC005DS: CONFMSG3 DC C'''SHORTDATE'' AND ''ISODATE'' ARE CONFLICTING OPTIONS'*00710270
HRC005DS: , HRC005DS 00710360
HRC005DS: CONFLCT4 DC AL1(L'CONFMSG4) HRC005DS 00710450
HRC005DS: CONFMSG4 DC C'''SHORTDATE'' AND ''FULLDATE'' ARE CONFLICTING OPTIONS*00710540
HRC005DS: ' , HRC005DS 00710630
HRC005DS: CONFLCT5 DC AL1(L'CONFMSG5) HRC005DS 00710720
HRC005DS: CONFMSG5 DC C'''FULLDATE'' AND ''ISODATE'' ARE CONFLICTING OPTIONS' *00710810
HRC005DS: , HRC005DS 00710900
HRC005DS: ./ R 00722150 $ 723040 890 01/14/06 19:43:37
HRC005DS: HEADATE2 DC C' DATE TIME LABEL ' HRC005DS 00723040
HRC005DS: ./ R 00752000 00753000 $ 752490 490 01/14/06 19:43:37
HRC005DS: DPATRN DC X'F021202020' (FOR DATE .... HRC005DS 00752490
HRC005DS: TPATRN DC X'4021207A2020' ... AND TIME) HRC005DS 00752980
HRC005DS: CHARDATE DC C' MMDDCCYY' HRC005DS 00753470
HRC005DS: ./ R 00773000 00775000 $ 773590 590 01/14/06 19:43:37
HRC005DS: FLAGS DC F'0' HRC005DS 00773590
HRC005DS: FLAG EQU FLAGS,1 HRC005DS 00774180
HRC005DS: FLAG2 EQU FLAGS+1,1 HRC005DS 00774770
HRC005DS: FLAG3 EQU FLAGS+2,1 HRC005DS 00775360
HRC005DS: FLAG4 EQU FLAGS+3,1 HRC005DS 00775950
HRC005DS: ./ R 00783000 $ 783490 490 01/14/06 19:43:37
HRC005DS: NAME EQU TYPLOC HRC005DS 00783490
HRC005DS: ./ R 00786000 00792000 $ 786990 990 01/14/06 19:43:37
HRC005DS: FORM EQU TYPLOC+23 HRC005DS 00786990
HRC005DS: ITM EQU TYPLOC+31 HRC005DS 00787980
HRC005DS: NOREC EQU TYPLOC+38 HRC005DS 00788970
HRC005DS: DATE EQU TYPLOC+45 HRC005DS 00789960
HRC005DS: TIME EQU TYPLOC+55 HRC005DS 00790950
HRC005DS: VOLID EQU TYPLOC+62 HRC005DS 00791940
HRC005DS: ./ I 00803000 $ 803100 100 01/14/06 19:43:37
HRC005DS: * FLAG2 SETTINGS HRC005DS 00803100
HRC005DS: FLG2ISO EQU X'80' ISO DATE WANTED YYYY-MM-DD HRC005DS 00803200
HRC005DS: FLG2SHRT EQU X'40' SHORT DATE WANTED MM/DD/YY HRC005DS 00803300
HRC005DS: FLG2FULL EQU X'20' FULL DATE WANTED MM/DD/YYYY HRC005DS 00803400
HRC005DS: * HRC005DS 00803500
BEGIN APPLY >>> ./ I 00040000 $ 40500 500 01/14/06 19:43:37
END APPLY >>> ./ I 00040000 $ 40500 500 01/14/06 19:43:37
BEGIN APPLY >>> ./ I 00209150 $ 209550 400 01/14/06 19:43:37
END APPLY >>> ./ I 00209150 $ 209550 400 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00342000 $ 342490 490 01/14/06 19:43:37
END APPLY >>> ./ R 00342000 $ 342490 490 01/14/06 19:43:37
BEGIN APPLY >>> ./ I 00345000 $ 345040 40 01/14/06 19:43:37
END APPLY >>> ./ I 00345000 $ 345040 40 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00372000 $ 372490 490 01/14/06 19:43:37
END APPLY >>> ./ R 00372000 $ 372490 490 01/14/06 19:43:37
BEGIN APPLY >>> ./ I 00400000 $ 400100 100 01/14/06 19:43:37
END APPLY >>> ./ I 00400000 $ 400100 100 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00545000 $ 545290 290 01/14/06 19:43:37
END APPLY >>> ./ R 00545000 $ 545290 290 01/14/06 19:43:37
BEGIN APPLY >>> ./ I 00546000 $ 546500 500 01/14/06 19:43:37
END APPLY >>> ./ I 00546000 $ 546500 500 01/14/06 19:43:37
BEGIN APPLY >>> ./ D 00548000 01/14/06 19:43:37
END APPLY >>> ./ D 00548000 01/14/06 19:43:37
BEGIN APPLY >>> ./ D 00557000 00561000 01/14/06 19:43:37
END APPLY >>> ./ D 00557000 00561000 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00563000 $ 563490 490 01/14/06 19:43:37
END APPLY >>> ./ R 00563000 $ 563490 490 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00569000 $ 569290 290 01/14/06 19:43:37
END APPLY >>> ./ R 00569000 $ 569290 290 01/14/06 19:43:37
BEGIN APPLY >>> ./ I 00570000 $ 570040 40 01/14/06 19:43:37
END APPLY >>> ./ I 00570000 $ 570040 40 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00665000 00667000 $ 665990 990 01/14/06 19:43:37
END APPLY >>> ./ R 00665000 00667000 $ 665990 990 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00670000 00671000 $ 670090 90 01/14/06 19:43:37
END APPLY >>> ./ R 00670000 00671000 $ 670090 90 01/14/06 19:43:37
BEGIN APPLY >>> ./ I 00710000 $ 710090 90 01/14/06 19:43:37
END APPLY >>> ./ I 00710000 $ 710090 90 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00722150 $ 723040 890 01/14/06 19:43:37
END APPLY >>> ./ R 00722150 $ 723040 890 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00752000 00753000 $ 752490 490 01/14/06 19:43:37
END APPLY >>> ./ R 00752000 00753000 $ 752490 490 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00773000 00775000 $ 773590 590 01/14/06 19:43:37
END APPLY >>> ./ R 00773000 00775000 $ 773590 590 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00783000 $ 783490 490 01/14/06 19:43:37
END APPLY >>> ./ R 00783000 $ 783490 490 01/14/06 19:43:37
BEGIN APPLY >>> ./ R 00786000 00792000 $ 786990 990 01/14/06 19:43:37
END APPLY >>> ./ R 00786000 00792000 $ 786990 990 01/14/06 19:43:37
BEGIN APPLY >>> ./ I 00803000 $ 803100 100 01/14/06 19:43:37
END APPLY >>> ./ I 00803000 $ 803100 100 01/14/06 19:43:37
Update Succeeded
Update Execution Time 39 milliseconds.
HRC309DS
Date Sunday Nov 02, 2008 09:48:00 PM
Loaded from MAINT(093)
HRC309DS: ./ R 00093000 $ 93000 50 11/02/08 20:46:57
HRC309DS: * LISTFILE is treated as a "command" or a "function" HRC309DS 00093000
HRC309DS: * according to the high-order byte of R1 at input, viz: HRC309DS 00093050
HRC309DS: * If = x'0B', it was issued as a command from DMSINT. HRC309DS 00093100
HRC309DS: * If = X'0D', it was issued from an EXEC FILE (DMSEXT), HRC309DS 00093150
HRC309DS: * with "&CONTROL" set to either "CMS" or "ALL". HRC309DS 00093200
HRC309DS: * If = x'01', it was issued from an EXEC file (DMSEXT), HRC309DS 00093250
HRC309DS: * with "&CONTROL OFF" in effect. HRC309DS 00093300
HRC309DS: * Otherwise, it is assumed to be a function. HRC309DS 00093350
HRC309DS: * HRC309DS 00093400
HRC309DS: * If DMSLST is called as a function, all error messages HRC309DS 00093450
HRC309DS: * are ommitted. Also, if LISTFILE is called from EXEC HRC309DS 00093500
HRC309DS: * with "&CONTROL OFF" in effect, the "file not found" HRC309DS 00093550
HRC309DS: * error message is omitted. HRC309DS 00093600
HRC309DS: ./ R 00639100 00639400 $ 639100 100 11/02/08 20:46:57
HRC309DS: CLI SAVEDR1,X'0B' LISTFILE called from cmd line? HRC309DS 00639100
HRC309DS: BE TELL yes, issue error message HRC309DS 00639200
HRC309DS: CLI SAVEDR1,X'0D' from EXEC with '&CONTROL MSG'? HRC309DS 00639300
HRC309DS: BE TELL yes, issue error message HRC309DS 00639400
BEGIN APPLY >>> ./ R 00093000 $ 93000 50 11/02/08 20:46:57
END APPLY >>> ./ R 00093000 $ 93000 50 11/02/08 20:46:57
BEGIN APPLY >>> ./ R 00639100 00639400 $ 639100 100 11/02/08 20:46:57
END APPLY >>> ./ R 00639100 00639400 $ 639100 100 11/02/08 20:46:57
Update Succeeded
Update Execution Time 23 milliseconds.
HRC320DS
Date Monday Sep 15, 2008 10:46:00 AM
Loaded from MAINT(093)
HRC320DS: ./ R 00333000 $ 333000 09/15/08 10:46:57
HRC320DS: ALLOC LA R3,44 don't truncate "BLOCKS" HRC320DS 00333000
HRC320DS: ./ R 00372490 $ 372490 09/15/08 10:46:57
HRC320DS: LABEL LA R3,69 better formatted header HRC320DS 00372490
HRC320DS: ./ R 00722100 $ 722100 09/15/08 10:46:57
HRC320DS: HEADMS DC C'Filename Filetype Fm Format Recs Blocks ' V0027 00722100
HRC320DS: ./ R 00723040 $ 723040 09/15/08 10:46:57
HRC320DS: HEADATE2 DC C' Date Time Label ' HRC320DS 00723040
HRC320DS: ./ R 00769000 $ 769000 09/15/08 10:46:57
HRC320DS: DC CL47' ' better formatted header HRC320DS 00769000
HRC320DS: ./ R 00785000 $ 785000 09/15/08 10:46:57
HRC320DS: MODE EQU TYPLOC+18 better formatted header HRC320DS 00785000
HRC320DS: ./ R 00786990 00788970 $ 786990 990 09/15/08 10:46:57
HRC320DS: FORM EQU TYPLOC+22 better formatted header HRC320DS 00786990
HRC320DS: ITM EQU TYPLOC+30 don't truncate number of blocks HRC320DS 00787980
HRC320DS: NOREC EQU TYPLOC+37 don't truncate number of blocks HRC320DS 00788970
HRC320DS: ./ R 00791940 $ 791940 09/15/08 10:46:57
HRC320DS: VOLID EQU TYPLOC+63 better formatted header HRC320DS 00791940
BEGIN APPLY >>> ./ R 00333000 $ 333000 09/15/08 10:46:57
END APPLY >>> ./ R 00333000 $ 333000 09/15/08 10:46:57
BEGIN APPLY >>> ./ R 00372490 $ 372490 09/15/08 10:46:57
END APPLY >>> ./ R 00372490 $ 372490 09/15/08 10:46:57
BEGIN APPLY >>> ./ R 00722100 $ 722100 09/15/08 10:46:57
END APPLY >>> ./ R 00722100 $ 722100 09/15/08 10:46:57
BEGIN APPLY >>> ./ R 00723040 $ 723040 09/15/08 10:46:57
END APPLY >>> ./ R 00723040 $ 723040 09/15/08 10:46:57
BEGIN APPLY >>> ./ R 00769000 $ 769000 09/15/08 10:46:57
END APPLY >>> ./ R 00769000 $ 769000 09/15/08 10:46:57
BEGIN APPLY >>> ./ R 00785000 $ 785000 09/15/08 10:46:57
END APPLY >>> ./ R 00785000 $ 785000 09/15/08 10:46:57
BEGIN APPLY >>> ./ R 00786990 00788970 $ 786990 990 09/15/08 10:46:57
END APPLY >>> ./ R 00786990 00788970 $ 786990 990 09/15/08 10:46:57
BEGIN APPLY >>> ./ R 00791940 $ 791940 09/15/08 10:46:57
END APPLY >>> ./ R 00791940 $ 791940 09/15/08 10:46:57
Update Succeeded
Update Execution Time 31 milliseconds.
HRC321DS
Date Monday Sep 15, 2008 11:36:00 AM
Loaded from MAINT(093)
HRC321DS: ./ I 00044000 $ 44100 100 09/15/08 11:37:57
HRC321DS: * CL8'STACK' HRC321DS 00044100
HRC321DS: * CL8'FIFO ' 'LIFO' HRC321DS 00044200
HRC321DS: ./ I 00132000 $ 132025 25 09/15/08 11:37:57
HRC321DS: * If the STACK option is specified, the output is HRC321DS 00132025
HRC321DS: * placed in the stack in FIFO order. The STACK option HRC321DS 00132050
HRC321DS: * implies the NOHEADER option. HRC321DS 00132075
HRC321DS: * HRC321DS 00132100
HRC321DS: * If the FIFO option is specified, the output is placed HRC321DS 00132125
HRC321DS: * in the stack in FIFO order. The FIFO option implies HRC321DS 00132150
HRC321DS: * the NOHEADER option. HRC321DS 00132175
HRC321DS: * HRC321DS 00132200
HRC321DS: * If the LIFO option is specified, the output is placed HRC321DS 00132225
HRC321DS: * in the stack in LIFO order. The LIFO option implies HRC321DS 00132250
HRC321DS: * the NOHEADER option. HRC321DS 00132275
HRC321DS: * HRC321DS 00132300
HRC321DS: ./ I 00350000 $ 350050 50 09/15/08 11:37:57
HRC321DS: FIFO EQU * HRC321DS 00350050
HRC321DS: OI FLAG2,FLG2STCK we are stacking output HRC321DS 00350100
HRC321DS: TM FLAG,HEAD header specified already? HRC321DS 00350150
HRC321DS: BO ERR8E yes, and this is a conflict HRC321DS 00350200
HRC321DS: OI FLAG,NOHEAD no header by default HRC321DS 00350250
HRC321DS: TM FLAG2,FLG2LIFI already processed LIFO/FIFO? HRC321DS 00350300
HRC321DS: BNO FIFO1 no, so FIFO is valid HRC321DS 00350350
HRC321DS: TM FLAG2,FLG2LIFO was the LIFO option specified? HRC321DS 00350400
HRC321DS: BO ERR8D yes, complain about it HRC321DS 00350450
HRC321DS: FIFO1 EQU * HRC321DS 00350500
HRC321DS: OI FLAG2,FLG2FIFO remember FIFO HRC321DS 00350550
HRC321DS: OI FLAG2,FLG2LIFI remember we did this HRC321DS 00350600
HRC321DS: BR R2 return HRC321DS 00350650
HRC321DS: SPACE 1 HRC321DS 00350700
HRC321DS: ./ I 00368000 $ 368100 100 09/15/08 11:37:57
HRC321DS: TM FLAG2,FLG2STCK are we stacking output? HRC321DS 00368100
HRC321DS: BNO HDR2 no, proceed HRC321DS 00368200
HRC321DS: TM FLAG2,FLG2FIFO was the FIFO option specified? HRC321DS 00368300
HRC321DS: BO ERR8E yes, complain about it HRC321DS 00368400
HRC321DS: TM FLAG2,FLG2LIFO was the LIFO option specified? HRC321DS 00368500
HRC321DS: BO ERR8F yes, complain about it HRC321DS 00368600
HRC321DS: HDR2 EQU * HRC321DS 00368700
HRC321DS: ./ I 00375000 $ 375050 50 09/15/08 11:37:57
HRC321DS: LIFO EQU * HRC321DS 00375050
HRC321DS: OI FLAG2,FLG2STCK we are stacking output HRC321DS 00375100
HRC321DS: TM FLAG,HEAD header specified already? HRC321DS 00375150
HRC321DS: BO ERR8F yes, and this is a conflict HRC321DS 00375200
HRC321DS: OI FLAG,NOHEAD no header by default HRC321DS 00375250
HRC321DS: TM FLAG2,FLG2LIFI already processed LIFO/FIFO? HRC321DS 00375300
HRC321DS: BNO LIFO1 no, so LIFO is valid HRC321DS 00375350
HRC321DS: TM FLAG2,FLG2FIFO was the FIFO option specified? HRC321DS 00375400
HRC321DS: BO ERR8D yes, complain about it HRC321DS 00375450
HRC321DS: LIFO1 EQU * HRC321DS 00375500
HRC321DS: NI FLAG2,255-FLG2FIFO replace STACK default (FIFO) HRC321DS 00375550
HRC321DS: OI FLAG2,FLG2LIFO remember LIFO HRC321DS 00375600
HRC321DS: OI FLAG2,FLG2LIFI remember we did this HRC321DS 00375650
HRC321DS: BR R2 return HRC321DS 00375700
HRC321DS: SPACE 1 HRC321DS 00375750
HRC321DS: ./ I 00379000 $ 379050 50 09/15/08 11:37:57
HRC321DS: SPACE 1 HRC321DS 00379050
HRC321DS: STACK EQU * HRC321DS 00379100
HRC321DS: TM FLAG2,FLG2STCK FIFO or LIFO already handled? HRC321DS 00379150
HRC321DS: BO R2 no further work required HRC321DS 00379200
HRC321DS: TM FLAG,HEAD header specified already? HRC321DS 00379250
HRC321DS: BO ERR8G yes, and this is a conflict HRC321DS 00379300
HRC321DS: OI FLAG,NOHEAD no header by default HRC321DS 00379350
HRC321DS: OI FLAG2,FLG2STCK we are stacking output HRC321DS 00379400
HRC321DS: OI FLAG2,FLG2FIFO stack FIFO by default HRC321DS 00379450
HRC321DS: BR R2 return HRC321DS 00379500
HRC321DS: ./ I 00404000 $ 404050 50 09/15/08 11:37:57
HRC321DS: OPTION FIFO HRC321DS 00404050
HRC321DS: SPACE 1 HRC321DS 00404100
HRC321DS: OPTION LIFO HRC321DS 00404150
HRC321DS: SPACE 1 HRC321DS 00404200
HRC321DS: OPTION STACK HRC321DS 00404250
HRC321DS: SPACE 1 HRC321DS 00404300
HRC321DS: ./ I 00533000 $ 533050 50 09/15/08 11:37:57
HRC321DS: SPACE 1 HRC321DS 00533050
HRC321DS: TM FLAG2,FLG2FIFO should we stack header instead? HRC321DS 00533100
HRC321DS: BO PRNFIFO yes, FIFO HRC321DS 00533150
HRC321DS: TM FLAG2,FLG2LIFO should we stack header LIFO? HRC321DS 00533200
HRC321DS: BNO PRINTIT no, just type it HRC321DS 00533250
HRC321DS: MVC FIFOLIFO(4),=C'LIFO' HRC321DS 00533300
HRC321DS: B PRSTACK HRC321DS 00533350
HRC321DS: PRNFIFO EQU * HRC321DS 00533400
HRC321DS: MVC FIFOLIFO(4),=C'FIFO' HRC321DS 00533450
HRC321DS: PRSTACK EQU * set up the parameter list HRC321DS 00533500
HRC321DS: MVC STACKLEN(1),CHARB+3 HRC321DS 00533550
HRC321DS: MVC STACKADR(3),BUFLOC HRC321DS 00533600
HRC321DS: LA R1,STACK HRC321DS 00533650
HRC321DS: SPACE 1 HRC321DS 00533700
HRC321DS: PRINTIT EQU * HRC321DS 00533750
HRC321DS: ./ I 00594000 $ 594050 50 09/15/08 11:37:57
HRC321DS: SPACE 1 HRC321DS 00594050
HRC321DS: TM FLAG2,FLG2FIFO should we stack line instead? HRC321DS 00594100
HRC321DS: BO STKFIFO yes, FIFO HRC321DS 00594150
HRC321DS: TM FLAG2,FLG2LIFO should we stack line LIFO? HRC321DS 00594200
HRC321DS: BNO TYPEIT no, just type it HRC321DS 00594250
HRC321DS: MVC FIFOLIFO(4),=C'LIFO' HRC321DS 00594300
HRC321DS: B STACKLN HRC321DS 00594350
HRC321DS: STKFIFO EQU * HRC321DS 00594400
HRC321DS: MVC FIFOLIFO(4),=C'FIFO' HRC321DS 00594450
HRC321DS: STACKLN EQU * HRC321DS 00594500
HRC321DS: MVC STACKLEN(1),CHARB+3 HRC321DS 00594550
HRC321DS: MVC STACKADR(3),BUFLOC HRC321DS 00594600
HRC321DS: LA R1,STACKPL HRC321DS 00594650
HRC321DS: SPACE 1 HRC321DS 00594700
HRC321DS: TYPEIT EQU * HRC321DS 00594750
HRC321DS: ./ I 00670810 $ 670820 10 09/15/08 11:37:57
HRC321DS: B ERRCNFLC HRC321DS 00670820
HRC321DS: ERR8D LA R6,CONFLCT6 FIFO and LIFO conflict HRC321DS 00670830
HRC321DS: B ERRCNFLC HRC321DS 00670840
HRC321DS: ERR8E LA R6,CONFLCT7 FIFO and HEADER conflict HRC321DS 00670850
HRC321DS: B ERRCNFLC HRC321DS 00670860
HRC321DS: ERR8F LA R6,CONFLCT8 LIFO and HEADER conflict HRC321DS 00670870
HRC321DS: B ERRCNFLC HRC321DS 00670880
HRC321DS: ERR8G LA R6,CONFLCT9 STACK and HEADER conflict HRC321DS 00670890
HRC321DS: ./ R 00682000 $ 682000 09/15/08 11:37:57
HRC321DS: TEXT='Error ''..'' writing file ''CMS EXEC A1'' on disk' 00682000
HRC321DS: ./ R 00689000 $ 689000 09/15/08 11:37:57
HRC321DS: WRMSG DC C'Disk ''A'' is read-only' HRC321DS 00689000
HRC321DS: ./ R 00692000 $ 692000 09/15/08 11:37:57
HRC321DS: NTFNDMSG DC C'File not found' HRC321DS 00692000
HRC321DS: ./ R 00695000 $ 695000 09/15/08 11:37:57
HRC321DS: ACCMSG DC C'Disk ''Z'' not accessed' HRC321DS 00695000
HRC321DS: ./ R 00698000 $ 698000 09/15/08 11:37:57
HRC321DS: PARMSG DC C'Invalid parameter ''........''' HRC321DS 00698000
HRC321DS: ./ R 00701000 $ 701000 09/15/08 11:37:57
HRC321DS: OPTMSG DC C'Invalid option ''........''' HRC321DS 00701000
HRC321DS: ./ R 00704000 $ 704000 09/15/08 11:37:57
HRC321DS: MODEMSG DC C'Invalid filemode ''........''' HRC321DS 00704000
HRC321DS: ./ R 00707000 $ 707000 09/15/08 11:37:57
HRC321DS: CONFMSG1 DC C'''APPEND'' and ''EXEC'' are conflicting options' 00707000
HRC321DS: ./ R 00710000 $ 710000 09/15/08 11:37:57
HRC321DS: CONFMSG2 DC C'''HEADER'' and ''NOHEADER'' are conflicting options' 00710000
HRC321DS: ./ R 00710270 $ 710270 09/15/08 11:37:57
HRC321DS: CONFMSG3 DC C'''SHORTDATE'' and ''ISODATE'' are conflicting options'*00710270
HRC321DS: ./ R 00710540 $ 710540 09/15/08 11:37:57
HRC321DS: CONFMSG4 DC C'''SHORTDATE'' and ''FULLDATE'' are conflicting options*00710540
HRC321DS: ./ R 00710810 $ 710810 09/15/08 11:37:57
HRC321DS: CONFMSG5 DC C'''FULLDATE'' and ''ISODATE'' are conflicting options' *00710810
HRC321DS: ./ I 00710900 $ 710905 05 09/15/08 11:37:57
HRC321DS: CONFLCT6 DC AL1(L'CONFMSG6) HRC321DS 00710905
HRC321DS: CONFMSG6 DC C'''FIFO'' and ''LIFO'' are conflicting options' 00710910
HRC321DS: * HRC321DS 00710915
HRC321DS: CONFLCT7 DC AL1(L'CONFMSG7) HRC321DS 00710920
HRC321DS: CONFMSG7 DC C'''FIFO'' and ''HEADER'' are conflicting options' 00710925
HRC321DS: * HRC321DS 00710930
HRC321DS: CONFLCT8 DC AL1(L'CONFMSG8) HRC321DS 00710935
HRC321DS: CONFMSG8 DC C'''LIFO'' and ''HEADER'' are conflicting options' 00710940
HRC321DS: * HRC321DS 00710945
HRC321DS: CONFLCT9 DC AL1(L'CONFMSG9) HRC321DS 00710950
HRC321DS: CONFMSG9 DC C'''STACK'' and ''HEADER'' are conflicting options' 00710955
HRC321DS: ./ I 00770000 $ 770050 50 09/15/08 11:37:57
HRC321DS: SPACE 1 HRC321DS 00770050
HRC321DS: * ATTN parameter list to stack the output HRC321DS 00770100
HRC321DS: DS 0F HRC321DS 00770150
HRC321DS: STACKPL DC CL8'ATTN' HRC321DS 00770200
HRC321DS: FIFOLIFO DS CL4 HRC321DS 00770250
HRC321DS: STACKLEN DS AL1 HRC321DS 00770300
HRC321DS: STACKADR DS AL3 HRC321DS 00770350
HRC321DS: ./ I 00803400 $ 803420 20 09/15/08 11:37:57
HRC321DS: FLG2STCK EQU X'10' stack results HRC321DS 00803420
HRC321DS: FLG2FIFO EQU X'08' stack results FIFO HRC321DS 00803440
HRC321DS: FLG2LIFO EQU X'04' stack results LIFO HRC321DS 00803460
HRC321DS: FLG2LIFI EQU X'02' LIFO or FIFO option handled HRC321DS 00803460
BEGIN APPLY >>> ./ I 00044000 $ 44100 100 09/15/08 11:37:57
END APPLY >>> ./ I 00044000 $ 44100 100 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00132000 $ 132025 25 09/15/08 11:37:57
END APPLY >>> ./ I 00132000 $ 132025 25 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00350000 $ 350050 50 09/15/08 11:37:57
END APPLY >>> ./ I 00350000 $ 350050 50 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00368000 $ 368100 100 09/15/08 11:37:57
END APPLY >>> ./ I 00368000 $ 368100 100 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00375000 $ 375050 50 09/15/08 11:37:57
END APPLY >>> ./ I 00375000 $ 375050 50 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00379000 $ 379050 50 09/15/08 11:37:57
END APPLY >>> ./ I 00379000 $ 379050 50 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00404000 $ 404050 50 09/15/08 11:37:57
END APPLY >>> ./ I 00404000 $ 404050 50 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00533000 $ 533050 50 09/15/08 11:37:57
END APPLY >>> ./ I 00533000 $ 533050 50 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00594000 $ 594050 50 09/15/08 11:37:57
END APPLY >>> ./ I 00594000 $ 594050 50 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00670810 $ 670820 10 09/15/08 11:37:57
END APPLY >>> ./ I 00670810 $ 670820 10 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00682000 $ 682000 09/15/08 11:37:57
END APPLY >>> ./ R 00682000 $ 682000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00689000 $ 689000 09/15/08 11:37:57
END APPLY >>> ./ R 00689000 $ 689000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00692000 $ 692000 09/15/08 11:37:57
END APPLY >>> ./ R 00692000 $ 692000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00695000 $ 695000 09/15/08 11:37:57
END APPLY >>> ./ R 00695000 $ 695000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00698000 $ 698000 09/15/08 11:37:57
END APPLY >>> ./ R 00698000 $ 698000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00701000 $ 701000 09/15/08 11:37:57
END APPLY >>> ./ R 00701000 $ 701000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00704000 $ 704000 09/15/08 11:37:57
END APPLY >>> ./ R 00704000 $ 704000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00707000 $ 707000 09/15/08 11:37:57
END APPLY >>> ./ R 00707000 $ 707000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00710000 $ 710000 09/15/08 11:37:57
END APPLY >>> ./ R 00710000 $ 710000 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00710270 $ 710270 09/15/08 11:37:57
END APPLY >>> ./ R 00710270 $ 710270 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00710540 $ 710540 09/15/08 11:37:57
END APPLY >>> ./ R 00710540 $ 710540 09/15/08 11:37:57
BEGIN APPLY >>> ./ R 00710810 $ 710810 09/15/08 11:37:57
END APPLY >>> ./ R 00710810 $ 710810 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00710900 $ 710905 05 09/15/08 11:37:57
END APPLY >>> ./ I 00710900 $ 710905 05 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00770000 $ 770050 50 09/15/08 11:37:57
END APPLY >>> ./ I 00770000 $ 770050 50 09/15/08 11:37:57
BEGIN APPLY >>> ./ I 00803400 $ 803420 20 09/15/08 11:37:57
END APPLY >>> ./ I 00803400 $ 803420 20 09/15/08 11:37:57
Update Succeeded
Update Execution Time 31 milliseconds.