ibm:vm370-lib:cms:dmslst.assemble_hst
Table of Contents
DMSLST History
References
- Fixes Applied : 7
- Latest Source Date : Tuesday, December 12, 1978
- 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.
ibm/vm370-lib/cms/dmslst.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator