ibm:vm370-lib:cms:dmsqry.assemble_hst
Table of Contents
DMSQRY History
References
- Fixes Applied : 12
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC372DS]
Update History
CMS File Input : DMSQRY ASSEMBLE
Date : 12/12/1978 8:32:00 AM
VM Context : MAINT(393)
File Name : DMSQRY.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM
Update Order
- R09636DS 607 MSDMSITS122S IF QUERY DOS IN CMS SUBSET WITH OS VSAM DATASET
- R13551DS 622 UV04635 DMSQRY FAILS TO TEST FOR AUTOREAD AND CMSTYPE
- R15063DS 628 UV06058 PE VM13551 REMOVE DEVELOPMENT TYPE CODE.
- HRC001DS V01 ADD QUERY CMSLEVEL TO MATCH VM/SP - QUERY
- HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP - QUERY
- HRC003DS V01 ENHANCE Q DISK TO MATCH VM/SP - QUERY
- HRC009DS V01 IMPLEMENT SUPPORT FOR SET ABEND COMMAND
- HRC101DS V02 IMPLEMENT SUPPORT FOR STACK OPTION
- HRC322DS V03 CMSLEVEL now obeys stack optn, all msgs lowercase
- HRC324DS V03 Fix looping bug in QUERY FILEDEF created by HRC101DS
- HRC371DS V03 updated CMSLEVEL message for “SixPack”
- HRC372DS V03 fixed bug in HRC101DS that causes infinite loop
R09636DS
Date Monday Dec 17, 1979 11:13:00 AM
Loaded from MAINT(193)
R09636DS: ./ R 970000 973000 $ 972000
R09636DS: BNZ OPTON ONE MUST HAVE BEEN ON @VA09636
BEGIN APPLY >>> ./ R 970000 973000 $ 972000
END APPLY >>> ./ R 970000 973000 $ 972000
Update Succeeded
Update Execution Time 23 milliseconds.
R13551DS
Date Tuesday Jun 30, 1981 06:17:00 AM
Loaded from MAINT(193)
R13551DS: ./ I 00187000 $ 00187300 300
R13551DS: CAUTORD DC CL8'AUTOREAD' AUTOREAD @VA13551
R13551DS: B AUTORD @VA13551
R13551DS: ./ I 00478000 $ 00478100 100
R13551DS: * @VA13551
R13551DS: * AUTOREAD. IF AUTOREAD IS ON, TELL THE INQUIRER. @VA13551
R13551DS: * @VA13551
R13551DS: AUTORD EQU * @VA13551
R13551DS: MVC QOPT,CAUTORD OPTION QUERIED @VA13551
R13551DS: TM OPTFLAGS,NOVMREAD IS IT OFF? @VA13551
R13551DS: BO OPTOFF YES, AUTOREAD=OFF @VA13551
R13551DS: B OPTON NO, AUTOREAD=ON @VA13551
R13551DS: SPACE 2 @VA13551
BEGIN APPLY >>> ./ I 00187000 $ 00187300 300
END APPLY >>> ./ I 00187000 $ 00187300 300
BEGIN APPLY >>> ./ I 00478000 $ 00478100 100
END APPLY >>> ./ I 00478000 $ 00478100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R15063DS
Date Monday Feb 15, 1982 09:30:00 AM
Loaded from MAINT(193)
R15063DS: ./ D 00187300 00187600 01/21/82 21:31:04
R15063DS: ./ D 00478100 00478900 01/21/82 21:31:04
BEGIN APPLY >>> ./ D 00187300 00187600 01/21/82 21:31:04
END APPLY >>> ./ D 00187300 00187600 01/21/82 21:31:04
BEGIN APPLY >>> ./ D 00478100 00478900 01/21/82 21:31:04
END APPLY >>> ./ D 00478100 00478900 01/21/82 21:31:04
Update Succeeded
Update Execution Time 23 milliseconds.
HRC001DS
Date Tuesday Mar 21, 2006 02:09:00 PM
Loaded from MAINT(093)
HRC001DS: ./ R 00186000 00187000 $ 186390 390 01/01/06 13:14:56
HRC001DS: CCMSLEVL DC CL8'CMSLEVEL' CMSLEVEL HRC001DS 00186000
HRC001DS: B CMSLEVEL HRC001DS 00187000
HRC001DS: CABBREV DC CL8'ABBREV' ABBREV HRC001DS 00186000
HRC001DS: B ABBREV HRC001DS 00187000
HRC001DS: ./ I 00239000 $ 239100 100 01/01/06 13:14:56
HRC001DS: CMSLEVEL EQU * HRC001DS
HRC001DS: LINEDIT TEXT='VM/370 Release 6, PLC 629, HRC V02', HRC001DS*01011000
HRC001DS: DOT=NO HRC001DS
HRC001DS: BR R5 ANY MORE QUERY REQUESTS ? HRC001DS 01012000
HRC001DS: EJECT HRC001DS 00239000
BEGIN APPLY >>> ./ R 00186000 00187000 $ 186390 390 01/01/06 13:14:56
END APPLY >>> ./ R 00186000 00187000 $ 186390 390 01/01/06 13:14:56
BEGIN APPLY >>> ./ I 00239000 $ 239100 100 01/01/06 13:14:56
END APPLY >>> ./ I 00239000 $ 239100 100 01/01/06 13:14:56
Update Succeeded
Update Execution Time 39 milliseconds.
HRC002DS
Date Thursday Feb 09, 2006 09:23:00 PM
Loaded from MAINT(093)
HRC002DS: ./ I 01259000 $ 1259080 80 01/01/06 12:32:45
HRC002DS: DC C'H ' HDISK HRC002DS 01259080
HRC002DS: DC C'I ' IDISK HRC002DS 01259160
HRC002DS: DC C'J ' JDISK HRC002DS 01259240
HRC002DS: DC C'K ' KDISK HRC002DS 01259320
HRC002DS: DC C'L ' LDISK HRC002DS 01259400
HRC002DS: DC C'M ' MDISK HRC002DS 01259480
HRC002DS: DC C'N ' NDISK HRC002DS 01259560
HRC002DS: DC C'O ' ODISK HRC002DS 01259640
HRC002DS: DC C'P ' PDISK HRC002DS 01259720
HRC002DS: DC C'Q ' QDISK HRC002DS 01259800
HRC002DS: DC C'R ' RDISK HRC002DS 01259880
HRC002DS: ./ I 01260000 $ 1260100 100 01/01/06 12:32:45
HRC002DS: DC C'T ' TDISK HRC002DS 01260100
HRC002DS: DC C'U ' UDISK HRC002DS 01260200
HRC002DS: DC C'V ' VDISK HRC002DS 01260300
HRC002DS: DC C'W ' WDISK HRC002DS 01260400
HRC002DS: DC C'X ' XDISK HRC002DS 01260500
BEGIN APPLY >>> ./ I 01259000 $ 1259080 80 01/01/06 12:32:45
END APPLY >>> ./ I 01259000 $ 1259080 80 01/01/06 12:32:45
BEGIN APPLY >>> ./ I 01260000 $ 1260100 100 01/01/06 12:32:45
END APPLY >>> ./ I 01260000 $ 1260100 100 01/01/06 12:32:45
Update Succeeded
Update Execution Time 23 milliseconds.
HRC003DS
Date Thursday Feb 09, 2006 09:20:00 PM
Loaded from MAINT(093)
HRC003DS: ./ R 00029000 $ 29490 490 01/29/06 08:14:34
HRC003DS: * FUNCTIONS = ABBREV, BLIP, DISK MODE|*|MAX|R/W,HRC003DS 00029490
HRC003DS: ./ D 00168000 00169000 01/29/06 08:14:34
HRC003DS: ./ I 00171000 $ 171300 300 01/29/06 08:14:34
HRC003DS: CLC CDISK,0(R7) DISK FUNCTION HRC003DS 00171300
HRC003DS: BE 8(,R7) YES, SPECIAL HANDLING HRC003DS 00171600
HRC003DS: ./ R 00242000 $ 242190 190 01/29/06 08:14:34
HRC003DS: * IN. IF 'DISK MAX' , TYPE OUT ALL INFORMATION ON THE R/W DISK HRC003DS 00242190
HRC003DS: * LOGGED IN WITH THE MOST SPACE AVAILABLE. IF 'DISK R/W', TYPE HRC003DS 00242380
HRC003DS: * OUT ALL INFORMATION ON ALL THE R/W DISKS LOGGED IN. ELSE HRC003DS 00242570
HRC003DS: * TYPE OUT ALL INFORMATION ON THE SPECIFIED DISK. HRC003DS 00242760
HRC003DS: ./ I 00248000 $ 248500 500 01/29/06 08:14:34
HRC003DS: STC R3,FRSTFLAG SHOW FIRST TIME TRUE HRC003DS 00248500
HRC003DS: ./ I 00249000 $ 249100 100 01/29/06 08:14:34
HRC003DS: CLI 8(R2),X'FF' DISK USER ENTER "QUERY DISK" ? HRC003DS 00249100
HRC003DS: BE DISK20 YES, TREAT AS "QUERY DISK *" HRC003DS 00249200
HRC003DS: CLC STRRW,8(R2) WAS "Q DISK R/W" REQUESTED ? HRC003DS 00249300
HRC003DS: BE DISK19 YES, CONTINUE HRC003DS 00249400
HRC003DS: CLC STRMAX,8(R2) WAS "Q DISK MAX" REQUESTED ? HRC003DS 00249500
HRC003DS: BE DISK1 YES, CONTINUE HRC003DS 00249600
HRC003DS: CLC =C'* ',8(R2) WAS '*' SPECIFIED HRC003DS 00249700
HRC003DS: BE DISK20 YES, PUT STATUS OF ALL DISKS HRC003DS 00249800
HRC003DS: L R15,VCADTLKP LOOK UP DISK, HRC003DS 00249900
HRC003DS: ./ D 00257000 00258000 01/29/06 08:14:34
HRC003DS: ./ R 00260000 00261000 $ 260390 390 01/29/06 08:14:34
HRC003DS: DISK1 EQU * PUT OUT STATUS OF DISK HRC003DS 00260390
HRC003DS: LA R1,STRQMRK-24 HRC003DS 00260780
HRC003DS: L R15,VCADTLKW SEARCH R/W DISK HRC003DS 00261170
HRC003DS: DISK10 EQU * PUT OUT STATUS OF DISK HRC003DS 00261560
HRC003DS: ./ R 00266000 $ 266190 190 01/29/06 08:14:34
HRC003DS: DISK19 EQU * PUT OUT STATUS OF ALL R/W DISKS HRC003DS 00266190
HRC003DS: OI FRSTFLAG,QRWDSK SEARCH ONLY R/W DISKS HRC003DS 00266380
HRC003DS: DISK20 EQU * PUT OUT STATUS OF ALL DISKS HRC003DS 00266570
HRC003DS: ./ R 00271000 $ 271290 290 01/29/06 08:14:34
HRC003DS: BNZ GIVMSG1 NONE LEFT, CONTINUE HRC003DS 00271290
HRC003DS: * BCR 7,R5 NONE LEFT, RETURN TO CALLER HRC003DS 00271580
HRC003DS: ./ I 00279000 $ 279200 200 01/29/06 08:14:34
HRC003DS: GIVMSG1 EQU * HRC003DS 00279200
HRC003DS: TM FRSTFLAG,FRSTTIME DID WE TYPE ANY ?? HRC003DS 00279400
HRC003DS: BOR R5 YES, RETURN TO CALLER HRC003DS 00279600
HRC003DS: B ERROR006 HRC003DS 00279800
HRC003DS: ./ R 00342000 00356000 $ 342390 390 01/29/06 08:14:34
HRC003DS: TM FRSTFLAG,QRWDSK R/W WANTED ? HRC003DS 00342390
HRC003DS: BZ PTSUB0 HRC003DS 00342780
HRC003DS: TM ADTFLG1,ADTFRO R/O DISK ? HRC003DS 00343170
HRC003DS: BOR R14 YES, RETURN TO CALLER HRC003DS 00343560
HRC003DS: TM ADTFLG2,ADTFROS+ADTFDOS OS TO DOS DISK? HRC003DS 00343950
HRC003DS: BNZR R14 YES, RETURN TO CALLER HRC003DS 00344340
HRC003DS: PTSUB0 EQU * HRC003DS 00344730
HRC003DS: L R7,ADTCYL GET NUMBER OF CYLINDERS, HRC003DS 00345120
HRC003DS: LTR R7,R7 MAKE SURE IT IS NOT ZERO HRC003DS 00345510
HRC003DS: BNP NOTFOUND HRC003DS 00345900
HRC003DS: TM FRSTFLAG,FRSTTIME IS THIS FIRST TIME HERE? HRC003DS 00346290
HRC003DS: BO PTSUB1 BR IF NOT FIRST. HRC003DS 00346680
HRC003DS: LA R1,TDTITLE GIVE TYPEOUT, HRC003DS 00347070
HRC003DS: SVC X'CA' HRC003DS 00347460
HRC003DS: OI FRSTFLAG,FRSTTIME SHOW THAT WE HAVE BEEN HERE HRC003DS 00347850
HRC003DS: PTSUB1 EQU * HRC003DS 00348240
HRC003DS: MVI PTMSG,BLANK HRC003DS 00348630
HRC003DS: MVC PTMSG+1(LPTMSG-1),PTMSG CLEAR LINE HRC003DS 00349020
HRC003DS: MVC PTLABEL,ADTID VOLID HRC003DS 00349410
HRC003DS: L R10,ADTDTA POINT TO ACTUAL-DEVICE-ADDRESS, HRC003DS 00349800
HRC003DS: UNPK DECDEC(5),DTAD(3,R10) CONVERT P-DISK OR T-DISKHRC003DS 00350190
HRC003DS: TR DECDEC(4),HEXTBL-C'0' TO PRINTABLE HEX HRC003DS 00350580
HRC003DS: MVC PTUNIT(3),DECDEC+1 AND STORE IN THE MESSAGEHRC003DS 00350970
HRC003DS: MVC PTMODE,ADTM MOVE MODE TO MESSAGE, HRC003DS 00351360
HRC003DS: CLI ADTMX,BLANK ANY EXTENSION HRC003DS 00351750
HRC003DS: BE PTSUB2 NO, CONTINUE HRC003DS 00352140
HRC003DS: MVI PTSLASH,C'/' ELSE, PUT SEPERATOR HRC003DS 00352530
HRC003DS: MVC PTMODEX,ADTMX AND EXTENSION MODE IN MESSAGE HRC003DS 00352920
HRC003DS: PTSUB2 EQU * HRC003DS 00353310
HRC003DS: MVC PTTYPE,=C'3330' MOVE CHARACTERS TO MESSAGE HRC003DS 00353700
HRC003DS: ./ R 00358000 00365000 $ 358790 790 01/29/06 08:14:34
HRC003DS: BE OK1 CONTINUE HRC003DS 00358990
HRC003DS: MVC PTTYPE,=C'3350' MOVE CHARACTERS TO MESSAGE HRC003DS 00359980
HRC003DS: CLI DTADT(R10),T3350 3350 ? HRC003DS 00360970
HRC003DS: BE OK1 CONTINUE HRC003DS 00361960
HRC003DS: MVC PTTYPE,=C'3380' MOVE CHARACTERS TO MESSAGE HRC003DS 00359980
HRC003DS: CLI DTADT(R10),T3380 3380 ? HRC003DS 00360970
HRC003DS: BE OK1 CONTINUE HRC003DS 00361960
HRC003DS: MVC PTTYPE,=C'3340' MOVE CHARACTERS TO MESSAGE HRC003DS 00362950
HRC003DS: ./ R 00367000 00370000 $ 368990 1990 01/29/06 08:14:34
HRC003DS: BE OK1 CONTINUE HRC003DS 00368990
HRC003DS: ./ R 00373000 00374000 $ 373190 190 01/29/06 08:14:34
HRC003DS: MVC PTTYPE,=C'2314' MOVE CHARACTERS TO MESSAGE HRC003DS 00373190
HRC003DS: OK1 EQU * HRC003DS 00373380
HRC003DS: L R7,ADTCYL GET NUMBER OF CYLINDERS, HRC003DS 00373570
HRC003DS: CVD R7,DEC NUMCYLP OR NUMCYLT TO DECIMAL HRC003DS 00373760
HRC003DS: MVC PTCYL,=X'402020202120' HRC003DS 00373950
HRC003DS: ED PTCYL,DEC+5 HRC003DS 00374140
HRC003DS: MVC PTSTAT,=C'R/W' FILL IN MESSAGE HRC003DS 00374330
HRC003DS: TM ADTFLG1,ADTFRW IS IT READ-WRITE ? HRC003DS 00374520
HRC003DS: ./ R 00376000 $ 376490 490 01/29/06 08:14:34
HRC003DS: MVI PTSTAT+2,C'O' IF NOT MAKE IT "R/O" THEN HRC003DS 00376490
HRC003DS: ./ D 00379000 00386000 01/29/06 08:14:34
HRC003DS: ./ R 00388000 00395000 $ 389990 1990 01/29/06 08:14:34
HRC003DS: CVD R9,DEC NUMTRKS TO DECIMAL HRC003DS 00389990
HRC003DS: MVC PTBLKTOT,=X'402020202020202020202120' HRC003DS 00391980
HRC003DS: ED PTBLKTOT,DEC+2 MAKE IT DISPLAYABLE HRC003DS 00393970
HRC003DS: ./ R 00401000 00403000 $ 401990 990 01/29/06 08:14:34
HRC003DS: MVC PTBLKFRE,=X'402020202020202020202120' HRC003DS 00401990
HRC003DS: ED PTBLKFRE,DEC+2 MAKE IT DISPLAYABLE HRC003DS 00402980
HRC003DS: ./ R 00413000 00419000 $ 413490 490 01/29/06 08:14:34
HRC003DS: MVC PTPCTUSD,=X'F02120' HRC003DS 00413490
HRC003DS: ED PTPCTUSD,DEC+6 HRC003DS 00413980
HRC003DS: MVI PTPCTUSD,C'-' HRC003DS 00414470
HRC003DS: L R10,ADTUSED HRC003DS 00414960
HRC003DS: CVD R10,DEC NUMBER OF RECORDS IN USE... HRC003DS 00415450
HRC003DS: MVC PTBLKUSD,=X'402020202020202020202120' HRC003DS 00415940
HRC003DS: ED PTBLKUSD,DEC+2 MAKE IT DISPLAYABLE HRC003DS 00416430
HRC003DS: L R7,ADTFSTC NUMBER OF FILES, HRC003DS 00416920
HRC003DS: CVD R7,DEC HRC003DS 00417410
HRC003DS: MVC PTFILES,=X'402020202020202020202120' HRC003DS 00417900
HRC003DS: ED PTFILES,DEC+2 READABLE HRC003DS 00418390
HRC003DS: MVC PTBLKS,=C' 800' CDF DISK SIZE HRC003DS 00418880
HRC003DS: CLRZEROS EQU * HRC003DS 00419370
HRC003DS: ./ R 00422000 00440000 $ 430990 8990 01/29/06 08:14:34
HRC003DS: LINEDONE EQU * HRC003DS 00430990
HRC003DS: ./ D 00446000 00452000 01/29/06 08:14:34
HRC003DS: ./ R 00456000 00462000 $ 456990 990 01/29/06 08:14:34
HRC003DS: MVI PTSTAT+2,C'W' SET MSG FOR R/W DISK HRC003DS 00456990
HRC003DS: OSLINE2 EQU * HRC003DS 00457980
HRC003DS: MVC PTFILES+5(2),=C'OS' HRC003DS 00458970
HRC003DS: ./ R 00464000 00468000 $ 464990 990 01/29/06 08:14:34
HRC003DS: BZ LINEDONE NO, RETURN HRC003DS 00464990
HRC003DS: MVI PTFILES+4,C'D' SET AS DOS DISK HRC003DS 00465980
HRC003DS: B LINEDONE RETURN HRC003DS 00466970
HRC003DS: ./ I 00999000 $ 999300 300 01/29/06 08:14:34
HRC003DS: CLC STRMAX,8(R2) WAS THAT Q DISK MAX ? HRC003DS 00999300
HRC003DS: BE ERROR006 YES, SAY NO R/W DISK ACCESSED HRC003DS 00999600
HRC003DS: ./ I 01030000 $ 1030100 100 01/29/06 08:14:34
HRC003DS: ERROR006 EQU * HRC003DS 01030100
HRC003DS: DMSERR NUM=6,LET=E,TEXT='NO READ/WRITE DISK ACCESSED' HRC003DS 01030200
HRC003DS: LA R15,24 RETURN CODE HRC003DS 01030300
HRC003DS: B EXIT HRC003DS 01030400
HRC003DS: SPACE 2 , HRC003DS 01030500
HRC003DS: ./ I 01120000 $ 1120500 500 01/29/06 08:14:34
HRC003DS: T3380 EQU X'0E' HRC003DS 01120000
HRC003DS: ./ R 01133000 $ 1133490 490 01/29/06 08:14:34
HRC003DS: TLENTH DC AL3(LPTMSG) (MAY BE FILLED IN TO SHORTERHRC003DS 01133490
HRC003DS: ./ R 01164000 01173000 $ 1164390 390 01/29/06 08:14:34
HRC003DS: PTMSG EQU * HRC003DS 01164390
HRC003DS: PTLABEL DC CL6' ',CL1' ' HRC003DS 01164780
HRC003DS: PTUNIT DC CL3'000',CL1' ' HRC003DS 01165170
HRC003DS: PTMODE DC CL1' ' HRC003DS 01165560
HRC003DS: PTSLASH DC CL1' ' HRC003DS 01165950
HRC003DS: PTMODEX DC CL1' ',CL1' ' HRC003DS 01166340
HRC003DS: PTSTAT DC CL3' ' HRC003DS 01166730
HRC003DS: ORG *-1 HRC003DS 01167120
HRC003DS: PTCYL DC CL6' 0000',CL1' ' HRC003DS 01167510
HRC003DS: PTTYPE DC CL4'0000',CL1' ' HRC003DS 01167900
HRC003DS: PTBLKS DC CL4'0000' HRC003DS 01168290
HRC003DS: ORG *-1 HRC003DS 01168680
HRC003DS: PTFILES DC CL12'000000000000' HRC003DS 01169070
HRC003DS: ORG *-1 HRC003DS 01169460
HRC003DS: PTBLKUSD DC CL12'000000000000' HRC003DS 01169850
HRC003DS: PTPCTUSD DC CL3'-00' HRC003DS 01170240
HRC003DS: ORG *-1 HRC003DS 01170630
HRC003DS: PTBLKFRE DC CL12'000000000000' HRC003DS 01171020
HRC003DS: ORG *-1 HRC003DS 01171410
HRC003DS: PTBLKTOT DC CL12'000000000000' HRC003DS 01171800
HRC003DS: LPTMSG EQU *-PTMSG HRC003DS 01172190
HRC003DS: ./ R 01175000 01183000 $ 1175990 990 01/29/06 08:14:34
HRC003DS: FRSTFLAG DC X'00' HRC003DS 01175990
HRC003DS: FRSTTIME EQU X'80' FIRST TIME THRU HRC003DS 01176980
HRC003DS: QRWDSK EQU X'01' R/W DISK WANTED HRC003DS 01177970
HRC003DS: * HRC003DS 01178960
HRC003DS: TDTITLE DC CL8'TYPLIN',AL1(1),AL3(DTITLE),C'B',AL3(L'DTITLE) HRC003DS 01179950
HRC003DS: DTITLE DC C'LABEL CUU M STAT CYL TYPE BLKSIZE FILES BLKS USEX01180940
HRC003DS: D-(%) BLKS LEFT BLK TOTAL' HRC003DS 01181930
HRC003DS: ./ R 01498000 $ 1498490 490 01/29/06 08:14:34
HRC003DS: * STORAGE FIELDS PECULIAR TO 'DISK' PROCESSING... HRC003DS 01498490
HRC003DS: ./ I 01500000 $ 1500090 90 01/29/06 08:14:34
HRC003DS: SPACE 1 , HRC003DS 01500090
HRC003DS: STRQMRK DC CL2'??' HRC003DS 01500180
HRC003DS: STRMAX DC CL4'MAX ' HRC003DS 01500270
HRC003DS: STRRW DC CL4'R/W ' HRC003DS 01500360
HRC003DS: EJECT HRC003DS 01500450
HRC003DS: ***************************************************************HRC003DS 01500540
HRC003DS: * HRC003DS 01500630
HRC003DS: * STORAGE FIELDS PECULIAR TO 'LIST' PROCESSING... HRC003DS 01500720
HRC003DS: * HRC003DS 01500810
HRC003DS: ***************************************************************HRC003DS 01500900
BEGIN APPLY >>> ./ R 00029000 $ 29490 490 01/29/06 08:14:34
END APPLY >>> ./ R 00029000 $ 29490 490 01/29/06 08:14:34
BEGIN APPLY >>> ./ D 00168000 00169000 01/29/06 08:14:34
END APPLY >>> ./ D 00168000 00169000 01/29/06 08:14:34
BEGIN APPLY >>> ./ I 00171000 $ 171300 300 01/29/06 08:14:34
END APPLY >>> ./ I 00171000 $ 171300 300 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00242000 $ 242190 190 01/29/06 08:14:34
END APPLY >>> ./ R 00242000 $ 242190 190 01/29/06 08:14:34
BEGIN APPLY >>> ./ I 00248000 $ 248500 500 01/29/06 08:14:34
END APPLY >>> ./ I 00248000 $ 248500 500 01/29/06 08:14:34
BEGIN APPLY >>> ./ I 00249000 $ 249100 100 01/29/06 08:14:34
END APPLY >>> ./ I 00249000 $ 249100 100 01/29/06 08:14:34
BEGIN APPLY >>> ./ D 00257000 00258000 01/29/06 08:14:34
END APPLY >>> ./ D 00257000 00258000 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00260000 00261000 $ 260390 390 01/29/06 08:14:34
END APPLY >>> ./ R 00260000 00261000 $ 260390 390 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00266000 $ 266190 190 01/29/06 08:14:34
END APPLY >>> ./ R 00266000 $ 266190 190 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00271000 $ 271290 290 01/29/06 08:14:34
END APPLY >>> ./ R 00271000 $ 271290 290 01/29/06 08:14:34
BEGIN APPLY >>> ./ I 00279000 $ 279200 200 01/29/06 08:14:34
END APPLY >>> ./ I 00279000 $ 279200 200 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00342000 00356000 $ 342390 390 01/29/06 08:14:34
END APPLY >>> ./ R 00342000 00356000 $ 342390 390 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00358000 00365000 $ 358790 790 01/29/06 08:14:34
END APPLY >>> ./ R 00358000 00365000 $ 358790 790 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00367000 00370000 $ 368990 1990 01/29/06 08:14:34
END APPLY >>> ./ R 00367000 00370000 $ 368990 1990 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00373000 00374000 $ 373190 190 01/29/06 08:14:34
END APPLY >>> ./ R 00373000 00374000 $ 373190 190 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00376000 $ 376490 490 01/29/06 08:14:34
END APPLY >>> ./ R 00376000 $ 376490 490 01/29/06 08:14:34
BEGIN APPLY >>> ./ D 00379000 00386000 01/29/06 08:14:34
END APPLY >>> ./ D 00379000 00386000 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00388000 00395000 $ 389990 1990 01/29/06 08:14:34
END APPLY >>> ./ R 00388000 00395000 $ 389990 1990 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00401000 00403000 $ 401990 990 01/29/06 08:14:34
END APPLY >>> ./ R 00401000 00403000 $ 401990 990 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00413000 00419000 $ 413490 490 01/29/06 08:14:34
END APPLY >>> ./ R 00413000 00419000 $ 413490 490 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00422000 00440000 $ 430990 8990 01/29/06 08:14:34
END APPLY >>> ./ R 00422000 00440000 $ 430990 8990 01/29/06 08:14:34
BEGIN APPLY >>> ./ D 00446000 00452000 01/29/06 08:14:34
END APPLY >>> ./ D 00446000 00452000 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00456000 00462000 $ 456990 990 01/29/06 08:14:34
END APPLY >>> ./ R 00456000 00462000 $ 456990 990 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 00464000 00468000 $ 464990 990 01/29/06 08:14:34
END APPLY >>> ./ R 00464000 00468000 $ 464990 990 01/29/06 08:14:34
BEGIN APPLY >>> ./ I 00999000 $ 999300 300 01/29/06 08:14:34
END APPLY >>> ./ I 00999000 $ 999300 300 01/29/06 08:14:34
BEGIN APPLY >>> ./ I 01030000 $ 1030100 100 01/29/06 08:14:34
END APPLY >>> ./ I 01030000 $ 1030100 100 01/29/06 08:14:34
BEGIN APPLY >>> ./ I 01120000 $ 1120500 500 01/29/06 08:14:34
END APPLY >>> ./ I 01120000 $ 1120500 500 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 01133000 $ 1133490 490 01/29/06 08:14:34
END APPLY >>> ./ R 01133000 $ 1133490 490 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 01164000 01173000 $ 1164390 390 01/29/06 08:14:34
END APPLY >>> ./ R 01164000 01173000 $ 1164390 390 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 01175000 01183000 $ 1175990 990 01/29/06 08:14:34
END APPLY >>> ./ R 01175000 01183000 $ 1175990 990 01/29/06 08:14:34
BEGIN APPLY >>> ./ R 01498000 $ 1498490 490 01/29/06 08:14:34
END APPLY >>> ./ R 01498000 $ 1498490 490 01/29/06 08:14:34
BEGIN APPLY >>> ./ I 01500000 $ 1500090 90 01/29/06 08:14:34
END APPLY >>> ./ I 01500000 $ 1500090 90 01/29/06 08:14:34
Update Succeeded
Update Execution Time 133 milliseconds.
HRC009DS
Date Friday Feb 10, 2006 10:28:00 AM
Loaded from MAINT(093)
HRC009DS: ./ I 00187560 $ 187660 100 02/10/06 10:28:13
HRC009DS: CABEND DC CL8'ABEND' ABEND HRC009DS
HRC009DS: B ABEND HRC009DS
HRC009DS: ./ I 00466970 $ 467050 80 02/10/06 10:28:13
HRC009DS: EJECT , HRC009DS
HRC009DS: * HRC009DS 00470000
HRC009DS: * ABEND. TYPE OUT THE COMMAND NAME TO EXECUTE UPON ABEND. HRC009DS 00471000
HRC009DS: * HRC009DS 00472000
HRC009DS: ABEND EQU * HRC009DS
HRC009DS: MVC QOPT,CABEND OPTION QUERIED HRC009DS
HRC009DS: L R7,ABNCOMND R6=A(USER ABEND COMMAND) HRC009DS
HRC009DS: LTR R7,R7 DOES ONE EXIST ? HRC009DS
HRC009DS: BNZ ABEND1 YES, FIND OUT WHAT IT IS HRC009DS
HRC009DS: MVC QSTATUS(4),NONE INDICATE NONE SET HRC009DS
HRC009DS: LA R3,4(,R3) 4 CHARACTERS ADDED TO TYPEOUT LINHRC009DS
HRC009DS: B TYPEOUT TYPEOUT THE MESSAGE HRC009DS
HRC009DS: ABEND1 EQU * HRC009DS
HRC009DS: SR R6,R6 CLEAR FOR LENGTH HRC009DS
HRC009DS: IC R6,0(R7) GET LENGTH OF ABEND COMMAND HRC009DS
HRC009DS: BCTR R6,0 LESS ONE FOR EXECUTE HRC009DS
HRC009DS: EX R6,MOVABN COMMAND LINE TO BUFFER HRC009DS
HRC009DS: LA R3,1(R3,R6) ADD LEN OF STD QUERY RESPONSE HRC009DS
HRC009DS: STH R3,QMSGL HRC009DS
HRC009DS: LINEDIT TEXTA=QMSGL+1,DOT=NO HRC009DS
HRC009DS: B SR1515 HRC009DS
HRC009DS: SPACE , HRC009DS
HRC009DS: MOVABN MVC QSTATUS(0),1(R7) ABEND COMMAND TO BUFFER HRC009DS
BEGIN APPLY >>> ./ I 00187560 $ 187660 100 02/10/06 10:28:13
END APPLY >>> ./ I 00187560 $ 187660 100 02/10/06 10:28:13
BEGIN APPLY >>> ./ I 00466970 $ 467050 80 02/10/06 10:28:13
END APPLY >>> ./ I 00466970 $ 467050 80 02/10/06 10:28:13
Update Succeeded
Update Execution Time 31 milliseconds.
HRC101DS
Date Sunday Mar 05, 2006 12:25:00 PM
Loaded from MAINT(093)
HRC101DS: ./ R 00026000 00027000 $ 26290 290 02/27/06 20:53:28
HRC101DS: * CLn - n = 8 * number of argument for cmd HRC101DS 00026290
HRC101DS: * CL8 - ( or FENCE HRC101DS 00026580
HRC101DS: * CL8 - STACK HRC101DS 00026870
HRC101DS: * CL8 - FIFO/LIFO HRC101DS 00027160
HRC101DS: * CL8 - FENCE HRC101DS 00027450
HRC101DS: ./ I 00138000 $ 138500 500 02/27/06 20:53:28
HRC101DS: NI OPTSFLAG,255-(OPTFIFO+OPTSTACK+OPTLIFO) HRC101DS 00138500
HRC101DS: ./ R 00140000 00141000 $ 140020 20 02/27/06 20:53:28
HRC101DS: CLI 0(R2),FENCE ANY FUNCTION SPECIFIED HRC101DS 00140020
HRC101DS: BE ERROR047 NO, SIGNAL ERROR TO USER HRC101DS 00140040
HRC101DS: LA R9,8(,R2) POINT TO WHAT SHOULD BE FENCE HRC101DS 00140060
HRC101DS: SPACE , HRC101DS 00140080
HRC101DS: QRY100FF EQU * HRC101DS 00140100
HRC101DS: CLI 0(R9),FENCE IS THIS THE FENCE ? HRC101DS 00140120
HRC101DS: BE QRY100ND YES, ALL DONE HRC101DS 00140140
HRC101DS: CLI 0(R9),C'(' BEGIN OF OPTION ? HRC101DS 00140160
HRC101DS: BE QRY100OP YES, CHECK THEM OUT HRC101DS 00140180
HRC101DS: LA R9,8(,R9) CHECK NEXT TOKEN HRC101DS 00140200
HRC101DS: B QRY100FF LOOP AGAIN HRC101DS 00140220
HRC101DS: SPACE , HRC101DS 00140240
HRC101DS: QRY100OP EQU * HRC101DS 00140260
HRC101DS: ST R9,SAVE9 SAVE FOR LATER HRC101DS 00140280
HRC101DS: LA R9,8(,R9) CHECK NEXT TOKEN HRC101DS 00140300
HRC101DS: SPACE , HRC101DS 00140320
HRC101DS: QRY100FO EQU * HRC101DS 00140340
HRC101DS: CLC 0(8,R9),=CL8'FIFO' HRC101DS 00140360
HRC101DS: BE QRY100FI YES, SET FLAG AND CONTINUE HRC101DS 00140380
HRC101DS: CLC 0(8,R9),=CL8'LIFO' HRC101DS 00140400
HRC101DS: BE QRY100LI YES, SET FLAG AND CONTINUE HRC101DS 00140420
HRC101DS: CLC 0(8,R9),=CL8'STACK' HRC101DS 00140440
HRC101DS: BNE ERROR003 HRC101DS 00140460
HRC101DS: SPACE , HRC101DS 00140480
HRC101DS: QRY100FN EQU * HRC101DS 00140500
HRC101DS: TM OPTSFLAG,OPTSTACK HAVE WE BEEN HERE BEFORE? HRC101DS 00140520
HRC101DS: BO ERROR070 YES, INDICATE ERROR HRC101DS 00140540
HRC101DS: OI OPTSFLAG,OPTSTACK+OPTFIFO HRC101DS 00140560
HRC101DS: SPACE , HRC101DS 00140580
HRC101DS: QRY100FX EQU * HRC101DS 00140600
HRC101DS: LA R9,8(,R9) HRC101DS 00140620
HRC101DS: CLI 0(R9),FENCE END OF OPTION HRC101DS 00140640
HRC101DS: BE QRY100SF DEFAULT TO FIFO HRC101DS 00140660
HRC101DS: CLI 0(R9),C')' END OF OPTION HRC101DS 00140680
HRC101DS: BNE QRY100FO NO, CHECK FOR LIFO/FIFO HRC101DS 00140700
HRC101DS: CLI 8(R9),FENCE FENCE ? HRC101DS 00140720
HRC101DS: BNE ERROR070 ERROR 70 HRC101DS 00140740
HRC101DS: SPACE , HRC101DS 00140760
HRC101DS: QRY100SF EQU * HRC101DS 00140780
HRC101DS: L R9,SAVE9 RESTORE R9 HRC101DS 00140800
HRC101DS: MVI 0(R9),FENCE SET NEW FENCE HRC101DS 00140820
HRC101DS: B QRY100ND CONTINUE HRC101DS 00140840
HRC101DS: SPACE , HRC101DS 00140860
HRC101DS: QRY100FI EQU * HRC101DS 00140880
HRC101DS: OI OPTSFLAG,OPTFIFO HRC101DS 00140900
HRC101DS: B QRY100FX HRC101DS 00140920
HRC101DS: SPACE , HRC101DS 00140940
HRC101DS: QRY100LI EQU * HRC101DS 00140960
HRC101DS: OI OPTSFLAG,OPTLIFO HRC101DS 00140980
HRC101DS: B QRY100FX HRC101DS 00141000
HRC101DS: SPACE , HRC101DS 00141020
HRC101DS: QRY100ND EQU * HRC101DS 00141040
HRC101DS: ./ I 00155000 $ 155300 300 02/27/06 20:53:28
HRC101DS: TM OPTSFLAG,OPTSTACK DO WE STACK THE CP COMMANDS HRC101DS 00155300
HRC101DS: BO CPQUERY yes, continue HRC101DS 00155600
HRC101DS: ./ D 00162000 02/27/06 20:53:28
HRC101DS: ./ R 00165000 $ 165490 490 02/27/06 20:53:28
HRC101DS: LA R9,8(,R2) POINT TO WHAT SHOULD BE FENCE HRC101DS 00165490
HRC101DS: ./ R 00172000 00173000 $ 172590 590 02/27/06 20:53:28
HRC101DS: CLI 0(R9),FENCE IS A FENCE THERE ? HRC101DS 00172590
HRC101DS: BNE ERROR070 NO, UNEXPECTED PARAMETER HRC101DS 00173180
HRC101DS: ./ R 00249100 $ 249140 40 02/27/06 20:53:28
HRC101DS: CLI 8(R2),FENCE DISK USER ENTER "QUERY DISK" ? HRC101DS 00249140
HRC101DS: ./ R 00323000 00324000 $ 323190 190 02/27/06 20:53:28
HRC101DS: SPACE , HRC101DS 00323190
HRC101DS: PSHORT1B EQU * HRC101DS 00323380
HRC101DS: LA R1,SHORTMSG GIVE SHORT 'Q SEARCH' MSG HRC101DS 00323570
HRC101DS: SR R3,R3 CLEAR R3 HRC101DS 00323760
HRC101DS: IC R3,SHORTCNT GET LENGTH HRC101DS 00323950
HRC101DS: LR R10,R5 SAVE R5 ACROSS CALL HRC101DS 00324140
HRC101DS: BAL R5,TYPEOUT SEND OUT MESSAGE HRC101DS 00324330
HRC101DS: LR R5,R10 RESTORE R5 HRC101DS 00324520
HRC101DS: ./ R 00347070 00347460 $ 347160 90 02/27/06 20:53:28
HRC101DS: LA R1,DTITLE GIVE TYPEOUT, HRC101DS 00347160
HRC101DS: LA R3,L'DTITLE LENGTH HRC101DS 00347250
HRC101DS: LR R10,R5 SAVE ACROSS CALL HRC101DS 00347340
HRC101DS: BAL R5,TYPEOUT HRC101DS 00347430
HRC101DS: LR R5,R10 SAVE ACROSS CALL HRC101DS 00347520
HRC101DS: ./ R 00441000 00443000 $ 441490 490 02/27/06 20:53:28
HRC101DS: LA R1,PTMSG MESSAGE TO PRINT HRC101DS 00441490
HRC101DS: LA R3,LPTMSG MESSAGE LENGTH HRC101DS 00441980
HRC101DS: LR R10,R5 SAVE ACROSS CALL HRC101DS 00442470
HRC101DS: BAL R5,TYPEOUT GIVE TYPEOUT, HRC101DS 00442960
HRC101DS: LR R5,R10 RESTORE IT NOW HRC101DS 00443450
HRC101DS: ./ R 00467930 $ 467960 30 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00467960
HRC101DS: ./ R 00468570 00468650 $ 468640 70 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00468640
HRC101DS: ./ R 00493000 $ 493490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00493490
HRC101DS: ./ R 00518000 $ 518490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00518490
HRC101DS: ./ R 00556000 $ 556490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00556490
HRC101DS: ./ R 00597000 00599000 $ 597290 290 02/27/06 20:53:28
HRC101DS: LA R3,(L'LISTMES+L'LISTDSK) SET UP LENGTH HRC101DS 00597290
HRC101DS: SPACE , HRC101DS 00597580
HRC101DS: LIST3 EQU * HRC101DS 00597870
HRC101DS: LA R1,LISTMES ADDRESS OF DESCRIPTION HRC101DS 00598160
HRC101DS: LR R10,R5 SAVE R5 HRC101DS 00598450
HRC101DS: BAL R5,TYPEOUT TYPE OUT MESSAGE HRC101DS 00598740
HRC101DS: LR R10,R5 RESTORE 5 HRC101DS 00599030
HRC101DS: ./ R 00601000 $ 601190 190 02/27/06 20:53:28
HRC101DS: LA R3,L'LISTMES RESTORE DEFAULT LENGTH HRC101DS 00601190
HRC101DS: MVI LISTMES,C' ' BLANK OUT FIRST CHAR HRC101DS 00601380
HRC101DS: MVC LISTMES+1((L'LISTMES)-1),LISTMES CLEAR BUFFER HRC101DS 00601570
HRC101DS: ./ R 00666000 00667000 $ 666490 490 02/27/06 20:53:28
HRC101DS: LA R1,QMSG SET UP ENTRY CONDITIONS FOR TYPLIHRC101DS 00666490
HRC101DS: LH R3,QMSGL LENGTH OF MESSAGE HRC101DS 00666980
HRC101DS: BAL R5,TYPEOUT TYPE OUT THE MESSAGE HRC101DS 00667470
HRC101DS: ./ R 00719000 $ 719490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00719490
HRC101DS: ./ R 00741000 $ 741490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00741490
HRC101DS: ./ R 00745000 $ 745490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00745490
HRC101DS: ./ R 00760000 $ 760490 490 02/27/06 20:53:28
HRC101DS: CLI 0(R7),FENCE ARE ANY LIBRARY NAMES IN EFFECT? HRC101DS 00760490
HRC101DS: ./ R 00769000 00770000 $ 769590 590 02/27/06 20:53:28
HRC101DS: CLI 0(R7),FENCE END OF LIBRARY NAME LIST HRC101DS 00769590
HRC101DS: BE TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00770180
HRC101DS: ./ R 00789000 $ 789490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00789490
HRC101DS: ./ R 00798000 $ 798490 490 02/27/06 20:53:28
HRC101DS: CLI 8(R2),FENCE ANY ARGUMENTS SPECIFIED?? HRC101DS 00798490
HRC101DS: ./ R 00811000 $ 811490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG GO TYPE OUT THE MESSAGE HRC101DS 00811490
HRC101DS: ./ R 00822000 $ 822490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPE OUT THE MESSAGE HRC101DS 00822490
HRC101DS: ./ R 00826000 $ 826490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPE OUT THE MESSAGE HRC101DS 00826490
HRC101DS: ./ D 00854000 02/27/06 20:53:28
HRC101DS: ./ R 00862000 00863000 $ 862490 490 02/27/06 20:53:28
HRC101DS: LA R1,ONEIDLE CARRIAGE-RETURN AFTERWARDS HRC101DS 00862490
HRC101DS: LA R3,1 LENGTH OF ONE HRC101DS 00862980
HRC101DS: BAL R5,TYPEOUT HRC101DS 00863470
HRC101DS: ./ R 00866000 00872000 $ 866490 490 02/27/06 20:53:28
HRC101DS: SPACE , HRC101DS 00866490
HRC101DS: OKPS EQU * HRC101DS 00866980
HRC101DS: LA R1,FIRST FIRST MESSAGE HRC101DS 00867470
HRC101DS: LA R3,L'FIRST LENGTH MESSAGE HRC101DS 00867960
HRC101DS: BAL R5,TYPEOUT TYPE IT OUT HRC101DS 00868450
HRC101DS: LA R1,FIRST1 SECOND MESSAGE HRC101DS 00868940
HRC101DS: LA R3,L'FIRST1 LENGTH MESSAGE HRC101DS 00869430
HRC101DS: BAL R5,TYPEOUT TYPE IT OUT HRC101DS 00869920
HRC101DS: LA R1,FIRST2 THIRD MESSAGE HRC101DS 00870410
HRC101DS: LA R3,L'FIRST2 LENGTH MESSAGE HRC101DS 00870900
HRC101DS: BAL R5,TYPEOUT TYPE IT OUT HRC101DS 00871390
HRC101DS: LA R1,SYSCOM SET UP R1 FOR TYPEOUTS HRC101DS 00871880
HRC101DS: ./ I 00878000 $ 878500 500 02/27/06 20:53:28
HRC101DS: LR R3,R6 SAVE FOR HRC101DS 00878500
HRC101DS: ./ R 00881000 $ 881090 90 02/27/06 20:53:28
HRC101DS: LA R1,SYSCOM MESSAGE TO DISPLAY HRC101DS 00881090
HRC101DS: LA R3,(L'SYSCOM+L'SYSABB) HRC101DS 00881180
HRC101DS: LR R6,R5 SAVE R5 HRC101DS 00881270
HRC101DS: BAL R5,TYPEOUT CALL TYPLIN (DELETES TERMINAL BLAHRC101DS 00881360
HRC101DS: LR R5,R6 RESTORE R5 HRC101DS 00881450
HRC101DS: ./ R 00884000 00886000 $ 884590 590 02/27/06 20:53:28
HRC101DS: LA R1,ONEIDLE CARRIAGE-RETURN AFTERWARDS HRC101DS 00884590
HRC101DS: LA R3,1 LENGTH OF ONE HRC101DS 00885180
HRC101DS: LA R5,USRSYN YES, AFTER SYSTEM SYNONYM TYPEOUTHRC101DS 00885770
HRC101DS: B TYPEOUT HRC101DS 00886360
HRC101DS: ./ D 00893000 02/27/06 20:53:28
HRC101DS: ./ R 00897000 00903000 $ 897590 590 02/27/06 20:53:28
HRC101DS: LA R1,SECOND PRELIMINARY HEADER FOR USER SYN'SHRC101DS 00897590
HRC101DS: LA R3,L'SECOND ... HRC101DS 00898180
HRC101DS: BAL R5,TYPEOUT ... HRC101DS 00898770
HRC101DS: LA R1,SECOND1 ... HRC101DS 00899360
HRC101DS: LA R3,L'SECOND1 ... HRC101DS 00899950
HRC101DS: BAL R5,TYPEOUT ... HRC101DS 00900540
HRC101DS: LA R1,SECOND2 ... HRC101DS 00901130
HRC101DS: LA R3,L'SECOND2 ... HRC101DS 00901720
HRC101DS: BAL R5,TYPEOUT ... HRC101DS 00902310
HRC101DS: LA R1,SYSCOM2 SET UP R1 FOR TYPEOUTS HRC101DS 00902900
HRC101DS: ./ R 00917000 $ 917490 490 02/27/06 20:53:28
HRC101DS: BCTR R6,0 IF NON-BLANK, MOVE IN SHORT-FORM HRC101DS 00917490
HRC101DS: ./ R 00919000 $ 919190 190 02/27/06 20:53:28
HRC101DS: SPACE , HRC101DS 00919190
HRC101DS: NOSHRT EQU * HRC101DS 00919380
HRC101DS: LA R3,(L'SYSCOM2+L'USERSYN2+L'USERABB2) HRC101DS 00919570
HRC101DS: BAL R5,TYPEOUT HRC101DS 00919760
HRC101DS: ./ R 00921000 00923000 $ 921590 590 02/27/06 20:53:28
HRC101DS: LA R1,ONEIDLE CARRIAGE-RETURN AFTERWARDS HRC101DS 00921590
HRC101DS: LA R3,1 LENGTH OF ONE HRC101DS 00922180
HRC101DS: LA R5,SR1515 AFTER TYPEOUT RETURN TO CALLER HRC101DS 00922770
HRC101DS: B TYPEOUT RETURN TO CALLER HRC101DS 00923360
HRC101DS: ./ R 00933000 00936000 $ 933490 490 02/27/06 20:53:28
HRC101DS: LA R1,ONEIDLE HRC101DS 00933490
HRC101DS: LA R3,1 HRC101DS 00933980
HRC101DS: BAL R5,TYPEOUT HRC101DS 00934470
HRC101DS: LA R1,SYSN1 POINT TO 1ST LINE HRC101DS 00934960
HRC101DS: LA R3,L'SYSN1 HRC101DS 00935450
HRC101DS: BAL R5,TYPEOUT HRC101DS 00935940
HRC101DS: ./ R 00947000 00951000 $ 947590 590 02/27/06 20:53:28
HRC101DS: LA R1,SYSN2 POINT TO 2ND LINE HRC101DS 00947590
HRC101DS: LA R3,L'SYSN2 HRC101DS 00948180
HRC101DS: BAL R5,TYPEOUT HRC101DS 00948770
HRC101DS: LA R1,ONEIDLE HRC101DS 00949360
HRC101DS: LA R3,1 HRC101DS 00949950
HRC101DS: LA R5,SR1515 RETURN TO CALLER HRC101DS 00950540
HRC101DS: B TYPEOUT HRC101DS 00951130
HRC101DS: ./ R 00983000 $ 983490 490 02/27/06 20:53:28
HRC101DS: B TYPEQMSG TYPEOUT THE MESSAGE HRC101DS 00983490
HRC101DS: ./ R 00989000 $ 989090 90 02/27/06 20:53:28
HRC101DS: TYPEQMSG EQU * TYPE OUT THE MESSAGE HRC101DS 00989090
HRC101DS: LA R1,QMSG ADDRESS OF BUFFER HRC101DS 00989180
HRC101DS: TYPEOUT EQU * TYPE OUT THE MESSAGE HRC101DS 00989270
HRC101DS: TM OPTSFLAG,OPTSTACK STACK RESULTS ? HRC101DS 00989360
HRC101DS: BO STACKOUT YES, CONTINUE HRC101DS 00989450
HRC101DS: ST R1,PTYPBUF SET THE ADDRESS OF THE MESSAGE HRC101DS 00989540
HRC101DS: ./ I 00992000 $ 992500 500 02/27/06 20:53:28
HRC101DS: L R1,PTYPBUF RESTORE R1 HRC101DS 00992500
HRC101DS: ./ I 00993000 $ 993060 60 02/27/06 20:53:28
HRC101DS: SPACE , HRC101DS 00993060
HRC101DS: STACKOUT DS 0H HRC101DS 00993120
HRC101DS: TM OPTSFLAG,OPTLIFO HRC101DS 00993180
HRC101DS: BNO STACKFIF HRC101DS 00993240
HRC101DS: MVC PSTKDIR,=CL8'LIFO' HRC101DS 00993300
HRC101DS: SPACE , HRC101DS 00993360
HRC101DS: STACKFIF EQU * HRC101DS 00993420
HRC101DS: ST R1,PSTKBUF ADDRESS OF BUFFER HRC101DS 00993480
HRC101DS: STC R3,PSTKBUF LENGTH OF MESSAGE HRC101DS 00993540
HRC101DS: LA R1,PSTKLIN ADDRESS OF STACK PLIST HRC101DS 00993600
HRC101DS: SVC 202 STACK IT NOW HRC101DS 00993660
HRC101DS: DC AL4(ERR109S) ERROR FROM SVC HRC101DS 00993720
HRC101DS: L R1,PSTKBUF RESTORE R1 HRC101DS 00993780
HRC101DS: BR R5 RETURN TO CALLER HRC101DS 00993840
HRC101DS: ./ R 01025000 01027000 $ 1025690 690 02/27/06 20:53:28
HRC101DS: ERROR003 EQU * HRC101DS 01025690
HRC101DS: DMSERR NUM=3,LET=E,SUB=(CHARA,(R2)), P0705*01026380
HRC101DS: TEXT='INVALID OPTION: ........ SPECIFIED' HRC101DS 01027070
HRC101DS: ./ I 01029000 $ 1029100 100 02/27/06 20:53:28
HRC101DS: SPACE 2 HRC101DS 01029100
HRC101DS: ERROR005 EQU * HRC101DS 01029200
HRC101DS: DMSERR NUM=5,LET=E,SUB=(CHARA,(R2)), P0705*01029300
HRC101DS: TEXT='NO ''........ PARAMETER'' SPECIFIED' HRC101DS 01029400
HRC101DS: LA R15,24 COMPLETION CODE HRC101DS 01029500
HRC101DS: B EXIT RETURN TO CALLER HRC101DS 01029600
HRC101DS: ./ I 01049000 $ 1049500 500 02/27/06 20:53:28
HRC101DS: CPQUERY EQU * HRC101DS 01049500
HRC101DS: ./ R 01128000 01133490 $ 1128790 790 02/27/06 20:53:28
HRC101DS: SPACE , HRC101DS 01128790
HRC101DS: OPTSFLAG DC X'00' HRC101DS 01129580
HRC101DS: OPTSTACK EQU X'80' STACK REQUESTED HRC101DS 01130370
HRC101DS: OPTFIFO EQU X'08' FIFO REQUESTED HRC101DS 01131160
HRC101DS: OPTLIFO EQU X'04' LIFO REQUESTED HRC101DS 01131950
HRC101DS: SPACE , HRC101DS 01132740
HRC101DS: ./ D 01135000 01137000 02/27/06 20:53:28
HRC101DS: ./ D 01154000 01155000 02/27/06 20:53:28
HRC101DS: ./ D 01179950 02/27/06 20:53:28
HRC101DS: ./ I 01185000 $ 1185500 500 02/27/06 20:53:28
HRC101DS: SAVE9 DS 1F R9 SAVED HERE HRC101DS 01185500
HRC101DS: ./ D 01188000 01203000 02/27/06 20:53:28
HRC101DS: ./ R 01219000 $ 1219490 490 02/27/06 20:53:28
HRC101DS: PTYPBUF DC A(QMSG) A(OUTPUT MESSAGE) HRC101DS 01219490
HRC101DS: ./ I 01229000 $ 1229100 100 02/27/06 20:53:28
HRC101DS: SPACE , HRC101DS 01229100
HRC101DS: PSTKLIN DS 0F STACK THE OUTPUT HRC101DS 01229200
HRC101DS: DC CL8'ATTN' ATTN FUNCTION HRC101DS 01229300
HRC101DS: PSTKDIR DC CL4'FIFO' HRC101DS 01229400
HRC101DS: PSTKBUF DC A(0) LENGTH,ADDRESS HRC101DS 01229500
HRC101DS: ./ D 01231000 01233000 02/27/06 20:53:28
HRC101DS: ./ D 01267000 01268000 02/27/06 20:53:28
HRC101DS: ./ I 01281000 $ 1281200 200 02/27/06 20:53:28
HRC101DS: CLI 0(R9),C'(' HRC101DS 01281200
HRC101DS: BNE DLBL100 HRC101DS 01281400
HRC101DS: SPACE , HRC101DS 01281600
HRC101DS: DLBL100 EQU * HRC101DS 01281800
HRC101DS: ./ I 01283000 $ 1283300 300 02/27/06 20:53:28
HRC101DS: CLI 0(R9),C'(' HRC101DS 01283300
HRC101DS: BNE ERROR070 HRC101DS 01283600
BEGIN APPLY >>> ./ R 00026000 00027000 $ 26290 290 02/27/06 20:53:28
END APPLY >>> ./ R 00026000 00027000 $ 26290 290 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 00138000 $ 138500 500 02/27/06 20:53:28
END APPLY >>> ./ I 00138000 $ 138500 500 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00140000 00141000 $ 140020 20 02/27/06 20:53:28
END APPLY >>> ./ R 00140000 00141000 $ 140020 20 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 00155000 $ 155300 300 02/27/06 20:53:28
END APPLY >>> ./ I 00155000 $ 155300 300 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 00162000 02/27/06 20:53:28
END APPLY >>> ./ D 00162000 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00165000 $ 165490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00165000 $ 165490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00172000 00173000 $ 172590 590 02/27/06 20:53:28
END APPLY >>> ./ R 00172000 00173000 $ 172590 590 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00249100 $ 249140 40 02/27/06 20:53:28
END APPLY >>> ./ R 00249100 $ 249140 40 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00323000 00324000 $ 323190 190 02/27/06 20:53:28
END APPLY >>> ./ R 00323000 00324000 $ 323190 190 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00347070 00347460 $ 347160 90 02/27/06 20:53:28
END APPLY >>> ./ R 00347070 00347460 $ 347160 90 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00441000 00443000 $ 441490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00441000 00443000 $ 441490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00467930 $ 467960 30 02/27/06 20:53:28
END APPLY >>> ./ R 00467930 $ 467960 30 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00468570 00468650 $ 468640 70 02/27/06 20:53:28
END APPLY >>> ./ R 00468570 00468650 $ 468640 70 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00493000 $ 493490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00493000 $ 493490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00518000 $ 518490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00518000 $ 518490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00556000 $ 556490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00556000 $ 556490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00597000 00599000 $ 597290 290 02/27/06 20:53:28
END APPLY >>> ./ R 00597000 00599000 $ 597290 290 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00601000 $ 601190 190 02/27/06 20:53:28
END APPLY >>> ./ R 00601000 $ 601190 190 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00666000 00667000 $ 666490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00666000 00667000 $ 666490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00719000 $ 719490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00719000 $ 719490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00741000 $ 741490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00741000 $ 741490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00745000 $ 745490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00745000 $ 745490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00760000 $ 760490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00760000 $ 760490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00769000 00770000 $ 769590 590 02/27/06 20:53:28
END APPLY >>> ./ R 00769000 00770000 $ 769590 590 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00789000 $ 789490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00789000 $ 789490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00798000 $ 798490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00798000 $ 798490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00811000 $ 811490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00811000 $ 811490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00822000 $ 822490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00822000 $ 822490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00826000 $ 826490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00826000 $ 826490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 00854000 02/27/06 20:53:28
END APPLY >>> ./ D 00854000 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00862000 00863000 $ 862490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00862000 00863000 $ 862490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00866000 00872000 $ 866490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00866000 00872000 $ 866490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 00878000 $ 878500 500 02/27/06 20:53:28
END APPLY >>> ./ I 00878000 $ 878500 500 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00881000 $ 881090 90 02/27/06 20:53:28
END APPLY >>> ./ R 00881000 $ 881090 90 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00884000 00886000 $ 884590 590 02/27/06 20:53:28
END APPLY >>> ./ R 00884000 00886000 $ 884590 590 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 00893000 02/27/06 20:53:28
END APPLY >>> ./ D 00893000 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00897000 00903000 $ 897590 590 02/27/06 20:53:28
END APPLY >>> ./ R 00897000 00903000 $ 897590 590 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00917000 $ 917490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00917000 $ 917490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00919000 $ 919190 190 02/27/06 20:53:28
END APPLY >>> ./ R 00919000 $ 919190 190 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00921000 00923000 $ 921590 590 02/27/06 20:53:28
END APPLY >>> ./ R 00921000 00923000 $ 921590 590 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00933000 00936000 $ 933490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00933000 00936000 $ 933490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00947000 00951000 $ 947590 590 02/27/06 20:53:28
END APPLY >>> ./ R 00947000 00951000 $ 947590 590 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00983000 $ 983490 490 02/27/06 20:53:28
END APPLY >>> ./ R 00983000 $ 983490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 00989000 $ 989090 90 02/27/06 20:53:28
END APPLY >>> ./ R 00989000 $ 989090 90 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 00992000 $ 992500 500 02/27/06 20:53:28
END APPLY >>> ./ I 00992000 $ 992500 500 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 00993000 $ 993060 60 02/27/06 20:53:28
END APPLY >>> ./ I 00993000 $ 993060 60 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 01025000 01027000 $ 1025690 690 02/27/06 20:53:28
END APPLY >>> ./ R 01025000 01027000 $ 1025690 690 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 01029000 $ 1029100 100 02/27/06 20:53:28
END APPLY >>> ./ I 01029000 $ 1029100 100 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 01049000 $ 1049500 500 02/27/06 20:53:28
END APPLY >>> ./ I 01049000 $ 1049500 500 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 01128000 01133490 $ 1128790 790 02/27/06 20:53:28
END APPLY >>> ./ R 01128000 01133490 $ 1128790 790 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 01135000 01137000 02/27/06 20:53:28
END APPLY >>> ./ D 01135000 01137000 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 01154000 01155000 02/27/06 20:53:28
END APPLY >>> ./ D 01154000 01155000 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 01179950 02/27/06 20:53:28
END APPLY >>> ./ D 01179950 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 01185000 $ 1185500 500 02/27/06 20:53:28
END APPLY >>> ./ I 01185000 $ 1185500 500 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 01188000 01203000 02/27/06 20:53:28
END APPLY >>> ./ D 01188000 01203000 02/27/06 20:53:28
BEGIN APPLY >>> ./ R 01219000 $ 1219490 490 02/27/06 20:53:28
END APPLY >>> ./ R 01219000 $ 1219490 490 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 01229000 $ 1229100 100 02/27/06 20:53:28
END APPLY >>> ./ I 01229000 $ 1229100 100 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 01231000 01233000 02/27/06 20:53:28
END APPLY >>> ./ D 01231000 01233000 02/27/06 20:53:28
BEGIN APPLY >>> ./ D 01267000 01268000 02/27/06 20:53:28
END APPLY >>> ./ D 01267000 01268000 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 01281000 $ 1281200 200 02/27/06 20:53:28
END APPLY >>> ./ I 01281000 $ 1281200 200 02/27/06 20:53:28
BEGIN APPLY >>> ./ I 01283000 $ 1283300 300 02/27/06 20:53:28
END APPLY >>> ./ I 01283000 $ 1283300 300 02/27/06 20:53:28
Update Succeeded
Update Execution Time 180 milliseconds.
HRC322DS
Date Tuesday Sep 09, 2008 11:09:00 AM
Loaded from MAINT(093)
HRC322DS: ./ R 00035000 09/09/08 11:09:57
HRC322DS: * UPSI, DLBL, DOSLNCNT, CMSLEVEL HRC322DS 00035000
HRC322DS: ./ R 00062000 09/09/08 11:09:57
HRC322DS: * Diag83 - Issue CP command HRC322DS 00062000
HRC322DS: ./ R 00140900 09/09/08 11:09:57
HRC322DS: OI OPTSFLAG,OPTSTACK+OPTFIFO HRC101DS 00140900
HRC322DS: ./ R 00140980 09/09/08 11:09:57
HRC322DS: OI OPTSFLAG,OPTSTACK+OPTLIFO HRC101DS 00140980
HRC322DS: ./ D 00239100 00239500
HRC322DS: ./ I 00994000 $ 994010 10 09/09/08 11:09:57
HRC322DS: * HRC322DS 00994010
HRC322DS: * CP QUERY with STACK option. Issue the CP command and place HRC322DS 00994020
HRC322DS: * the result on the stack. HRC322DS 00994030
HRC322DS: CPQUERY DS 0H HRC322DS 00994040
HRC322DS: S R2,=F'8' R2 now points to QUERY command HRC322DS 00994050
HRC322DS: LA R3,CPCMND point to buffer for CP command HRC322DS 00994060
HRC322DS: SLR R5,R5 zero buffer length HRC322DS 00994070
HRC322DS: * Loop to build up the CP command. HRC322DS 00994080
HRC322DS: CPPARMLP DS 0H copy CMS tokens to CP command HRC322DS 00994090
HRC322DS: MVC 0(8,R3),0(R2) copy token HRC322DS 00994100
HRC322DS: MVI 8(R3),C' ' add a blank HRC322DS 00994110
HRC322DS: LA R2,8(R2) bump to next token HRC322DS 00994120
HRC322DS: LA R3,9(R3) update CP command pointer HRC322DS 00994130
HRC322DS: LA R5,9(R5) accumulate length HRC322DS 00994140
HRC322DS: CLI 0(R2),X'FF' all done? HRC322DS 00994150
HRC322DS: BE CPQUERY1 yes, go issue the CP command HRC322DS 00994160
HRC322DS: CLI 0(R2),C'(' is it the start of options? HRC322DS 00994170
HRC322DS: BNE CPPARMLP no, so process next token HRC322DS 00994180
HRC322DS: CPQUERY1 DS 0H issue the CP command HRC322DS 00994190
HRC322DS: LA R0,1024 buffer for CP output (in DWORDs) HRC322DS 00994200
HRC322DS: DMSFREE DWORDS=(0),MSG=NO,ERR=ERR109S,TYPCALL=BALR HRC322DS 00994210
HRC322DS: LR R9,R1 save buffer address HRC322DS 00994220
HRC322DS: LA R2,CPCMND address of CP command HRC322DS 00994230
HRC322DS: LR R3,R9 address of buffer for CP output HRC322DS 00994240
HRC322DS: SLL R0,3 convert to bytes HRC322DS 00994250
HRC322DS: LR R6,R0 size of output buffer HRC322DS 00994260
HRC322DS: LR R1,R5 save CP command length HRC322DS 00994270
HRC322DS: ICM R5,8,=X'40' set flag for output to buffer HRC322DS 00994280
HRC322DS: * Issue the CP command, with output directed to our buffer. HRC322DS 00994290
HRC322DS: DIAG R2,R5,8 at last we issue the CP command HRC322DS 00994300
HRC322DS: BC 4,CPQUERY4 buffer overflow HRC322DS 00994310
HRC322DS: LTR R8,R5 save return code from CP HRC322DS 00994320
HRC322DS: BNZ CPQUERY6 don't stack results if error HRC322DS 00994330
HRC322DS: LTR R6,R6 any output from CP? HRC322DS 00994340
HRC322DS: BZ CPQUERY5 no, set return code and exit HRC322DS 00994350
HRC322DS: LR R3,R9 CP output buffer HRC322DS 00994360
HRC322DS: BCTR R3,0 prime the pump HRC322DS 00994370
HRC322DS: * Loop to place each output line from CP on the stack. HRC322DS 00994380
HRC322DS: CPNXTLIN DS 0H HRC322DS 00994390
HRC322DS: LA R3,1(R3) skip previous linend character HRC322DS 00994400
HRC322DS: LR R1,R3 start of this line HRC322DS 00994410
HRC322DS: * Loop to find the end of this line. HRC322DS 00994420
HRC322DS: CPNXTCHR DS 0H HRC322DS 00994430
HRC322DS: CLI 0(R3),X'15' are we at the end of this line? HRC322DS 00994440
HRC322DS: BE CPQUERY2 yes, go stack it HRC322DS 00994450
HRC322DS: LA R3,1(R3) no, on to next character HRC322DS 00994460
HRC322DS: BCT R6,CPNXTCHR continue loop until buffer end HRC322DS 00994470
HRC322DS: * We have a line, now stack it. HRC322DS 00994480
HRC322DS: CPQUERY2 DS 0H HRC322DS 00994490
HRC322DS: LR R7,R3 save scan pointer HRC322DS 00994500
HRC322DS: SR R3,R1 length of this line of output HRC322DS 00994510
HRC322DS: BCTR R6,0 account for linend character HRC322DS 00994520
HRC322DS: LA R5,CPQUERY3 return address HRC322DS 00994530
HRC322DS: B STACKOUT stack the line HRC322DS 00994540
HRC322DS: CPQUERY3 DS 0H HRC322DS 00994550
HRC322DS: L R1,PSTKBUF restore our buffer address HRC322DS 00994560
HRC322DS: LR R3,R7 restore scan pointer HRC322DS 00994570
HRC322DS: LTR R6,R6 more lines to process? HRC322DS 00994580
HRC322DS: BP CPNXTLIN yes, go scan and stack them HRC322DS 00994590
HRC322DS: B CPQUERY5 no, we are finished HRC322DS 00994600
HRC322DS: * Wrap up and exit. HRC322DS 00994610
HRC322DS: CPQUERY4 DS 0H HRC322DS 00994620
HRC322DS: LA R8,88 return code of 88 HRC322DS 00994630
HRC322DS: CPQUERY5 DS 0H HRC322DS 00994640
HRC322DS: LA R0,1024 buffer size HRC322DS 00994650
HRC322DS: LR R1,R9 get address of buffer HRC322DS 00994660
HRC322DS: DMSFRET DWORDS=(0),LOC=(1),TYPCALL=BALR HRC322DS 00994670
HRC322DS: LR R15,R8 set return code HRC322DS 00994680
HRC322DS: B EXIT return to caller HRC322DS 00994690
HRC322DS: CPQUERY6 DS 0H HRC322DS 00994700
HRC322DS: DIAG R2,R1,8 reissue CP cmd to show error msg HRC322DS 00994710
HRC322DS: LR R15,R1 set return code HRC322DS 00994720
HRC322DS: B EXIT return to caller HRC322DS 00994730
HRC322DS: EJECT HRC322DS 00994740
HRC322DS: ./ I 00997000 $ 997100 100 09/09/08 11:09:57
HRC322DS: SPACE 2 HRC322DS 00997100
HRC322DS: CMSLEVEL EQU * HRC322DS 00997200
HRC322DS: LA R1,LEVELMSG address of CMSLEVEL message HRC322DS 00997300
HRC322DS: L R3,=F'34' length of CMSLEVEL message HRC322DS 00997400
HRC322DS: B TYPEOUT type or stack the message HRC322DS 00997500
HRC322DS: LEVELMSG DC CL34'VM/370 Release 6, PLC 629, HRC V02' HRC322DS 00997600
HRC322DS: ./ R 01001000 01003000 $ 1001000 500 09/09/08 11:09:57
HRC322DS: LINEDIT SUB=(CHARA,(R2)),RENT=NO,TEXT='Disk ''........'' not a+01001000
HRC322DS: ccessed',DISP=NONE,BUFFA=MSGBUFL HRC322DS 01001500
HRC322DS: LA R1,MSGBUF address of message text HRC322DS 01002000
HRC322DS: SR R3,R3 HRC322DS 01002500
HRC322DS: IC R3,MSGBUFL length of message text HRC322DS 01003000
HRC322DS: B TYPEOUT type or stack the message HRC322DS 01003500
HRC322DS: ./ R 01006000 01008000 $ 1006000 500 09/09/08 11:09:57
HRC322DS: ERR324I DMSERR NUM=324,LET=I,SUB=(CHARA,(R7)),DISP=NONE,BUFFA=MSGBUFL,*01006000
HRC322DS: TEXT='No user defined ........''s in effect' HRC322DS 01006500
HRC322DS: LA R1,MSGBUF address of message text HRC322DS 01007000
HRC322DS: SR R3,R3 HRC322DS 01007500
HRC322DS: IC R3,MSGBUFL length of message text HRC322DS 01008000
HRC322DS: B TYPEOUT type or stack the message HRC322DS 01008500
HRC322DS: ./ R 01011000 01012000 $ 1011000 500 09/09/08 11:09:57
HRC322DS: LA R1,SYNMSGNS address of message text HRC322DS 01011000
HRC322DS: L R3,=F'28' length of message text HRC322DS 01011500
HRC322DS: B TYPEOUT type or stack the message HRC322DS 01012000
HRC322DS: SYNMSGNS DC CL28'No system synonyms in effect' HRC322DS 01012500
HRC322DS: ./ R 01015000 01016000 $ 1015000 500 09/09/08 11:09:57
HRC322DS: LA R1,SYNMSGNU address of message text HRC322DS 01015000
HRC322DS: L R3,=F'26' length of message text HRC322DS 01015500
HRC322DS: B TYPEOUT type or stack the message HRC322DS 01016000
HRC322DS: SYNMSGNU DC CL26'No user synonyms in effect' HRC322DS 01016500
HRC322DS: ./ R 01018000 01019000 $ 1018000 500 09/09/08 11:09:57
HRC322DS: LA R1,INPMSGM address of message text HRC322DS 01018000
HRC322DS: L R3,=F'44' length of message text HRC322DS 01018500
HRC322DS: B TYPEOUT type or stack the message HRC322DS 01019000
HRC322DS: INPMSGM DC CL44'No user defined input translate table in use' 01019500
HRC322DS: ./ R 01022000 01023000 $ 1022000 400 09/09/08 11:09:57
HRC322DS: LA R1,OUTMSGM address of message text HRC322DS 01022000
HRC322DS: L R3,=F'45' length of message text HRC322DS 01022400
HRC322DS: B TYPEOUT type or stack the message HRC322DS 01022800
HRC322DS: OUTMSGM DC CL45'No user defined output translate table in use' 01023200
HRC322DS: DS 0H HRC322DS 01023600
HRC322DS: ./ R 01027070 09/09/08 11:09:57
HRC322DS: TEXT='Invalid option: ........ specified' HRC322DS 01027070
HRC322DS: ./ R 01029400 09/09/08 11:09:57
HRC322DS: TEXT='No ''........ parameter'' specified' HRC322DS 01029400
HRC322DS: ./ R 01030200 09/09/08 11:09:57
HRC322DS: DMSERR NUM=6,LET=E,TEXT='No read/write disk accessed' HRC322DS 01030200
HRC322DS: ./ R 01032000 01033000 $ 1032000 1000 09/09/08 11:09:57
HRC322DS: DMSERR NUM=14,LET=E,SUB=(CHARA,(R2)),TEXT='Invalid function ''+01032000
HRC322DS: ........''' HRC322DS 01033000
HRC322DS: ./ R 01040000 01041000 $ 1040000 1000 09/09/08 11:09:57
HRC322DS: Invalid parameter ''........'' for ''........'' function+01040000
HRC322DS: ' HRC322DS 01041000
HRC322DS: ./ R 01046000 09/09/08 11:09:57
HRC322DS: DMSERR NUM=47,LET=E,TEXT='No function specified' HRC322DS 01046000
HRC322DS: ./ D 01049500
HRC322DS: ./ R 01051000 01052000 $ 1051000 1000 09/09/08 11:09:57
HRC322DS: DMSERR NUM=70,LET=E,SUB=(CHARA,(R9)),TEXT='Invalid parameter '+01051000
HRC322DS: '........''' HRC322DS 01052000
HRC322DS: ./ R 01057000 01058000 $ 1057000 1000 09/09/08 11:09:57
HRC322DS: DMSERR TEXT='CMS/DOS environment not active',NUM=99,LET=E 01057000
HRC322DS: LA R15,RC40 RETURN CODE HRC322DS 01058000
HRC322DS: ./ R 01062000 01063000 $ 1062000 1000 09/09/08 11:09:57
HRC322DS: DMSERR NUM=109,LET=S,TEXT='Virtual storage capacity exceeded' 01062000
HRC322DS: LA R15,109 HRC322DS 01063000
HRC322DS: ./ R 01180940 09/09/08 11:09:57
HRC322DS: DTITLE DC C'Label CUU M Stat Cyl Type Blksize Files Blks UseX01180940
HRC322DS: ./ R 01181930 09/09/08 11:09:57
HRC322DS: d-(%) Blks Left Blk Total' HRC322DS 01181930
HRC322DS: ./ R 01205000 01206000 $ 1205000 1000 09/09/08 11:09:57
HRC322DS: FIRST DC C'System Shortest' HRC322DS 01205000
HRC322DS: FIRST1 DC C'Command Form' HRC322DS 01206000
HRC322DS: ./ I 01230000 $ 1231000 1000 09/09/08 11:09:57
HRC322DS: MSGBUFL DS CL1 length of text from LINEDIT HRC322DS 01231000
HRC322DS: MSGBUF DS CL79 msg buffer: type or stack this HRC322DS 01232000
HRC322DS: ./ R 01235000 01236000 $ 1235000 1000 09/09/08 11:09:57
HRC322DS: SECOND DC C'System User Shortest' HRC322DS 01235000
HRC322DS: SECOND1 DC C'Command Synonym Form (if any)' HRC322DS 01236000
HRC322DS: ./ D 01247000 01248000
HRC322DS: ./ R 01271000 09/09/08 11:09:57
HRC322DS: SYSN2 DC CL49' Entries:' HRC322DS 01271000
BEGIN APPLY >>> ./ R 00035000 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00035000 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 00062000 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00062000 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 00140900 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00140900 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 00140980 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00140980 09/09/08 11:09:57
BEGIN APPLY >>> ./ D 00239100 00239500
END APPLY >>> ./ D 00239100 00239500
BEGIN APPLY >>> ./ I 00994000 $ 994010 10 09/09/08 11:09:57
END APPLY >>> ./ I 00994000 $ 994010 10 09/09/08 11:09:57
BEGIN APPLY >>> ./ I 00997000 $ 997100 100 09/09/08 11:09:57
END APPLY >>> ./ I 00997000 $ 997100 100 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01001000 01003000 $ 1001000 500 09/09/08 11:09:57
END APPLY >>> ./ R 01001000 01003000 $ 1001000 500 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01006000 01008000 $ 1006000 500 09/09/08 11:09:57
END APPLY >>> ./ R 01006000 01008000 $ 1006000 500 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01011000 01012000 $ 1011000 500 09/09/08 11:09:57
END APPLY >>> ./ R 01011000 01012000 $ 1011000 500 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01015000 01016000 $ 1015000 500 09/09/08 11:09:57
END APPLY >>> ./ R 01015000 01016000 $ 1015000 500 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01018000 01019000 $ 1018000 500 09/09/08 11:09:57
END APPLY >>> ./ R 01018000 01019000 $ 1018000 500 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01022000 01023000 $ 1022000 400 09/09/08 11:09:57
END APPLY >>> ./ R 01022000 01023000 $ 1022000 400 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01027070 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 01027070 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01029400 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 01029400 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01030200 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 01030200 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01032000 01033000 $ 1032000 1000 09/09/08 11:09:57
END APPLY >>> ./ R 01032000 01033000 $ 1032000 1000 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01040000 01041000 $ 1040000 1000 09/09/08 11:09:57
END APPLY >>> ./ R 01040000 01041000 $ 1040000 1000 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01046000 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 01046000 09/09/08 11:09:57
BEGIN APPLY >>> ./ D 01049500
END APPLY >>> ./ D 01049500
BEGIN APPLY >>> ./ R 01051000 01052000 $ 1051000 1000 09/09/08 11:09:57
END APPLY >>> ./ R 01051000 01052000 $ 1051000 1000 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01057000 01058000 $ 1057000 1000 09/09/08 11:09:57
END APPLY >>> ./ R 01057000 01058000 $ 1057000 1000 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01062000 01063000 $ 1062000 1000 09/09/08 11:09:57
END APPLY >>> ./ R 01062000 01063000 $ 1062000 1000 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01180940 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 01180940 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01181930 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 01181930 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01205000 01206000 $ 1205000 1000 09/09/08 11:09:57
END APPLY >>> ./ R 01205000 01206000 $ 1205000 1000 09/09/08 11:09:57
BEGIN APPLY >>> ./ I 01230000 $ 1231000 1000 09/09/08 11:09:57
END APPLY >>> ./ I 01230000 $ 1231000 1000 09/09/08 11:09:57
BEGIN APPLY >>> ./ R 01235000 01236000 $ 1235000 1000 09/09/08 11:09:57
END APPLY >>> ./ R 01235000 01236000 $ 1235000 1000 09/09/08 11:09:57
BEGIN APPLY >>> ./ D 01247000 01248000
END APPLY >>> ./ D 01247000 01248000
BEGIN APPLY >>> ./ R 01271000 09/09/08 11:09:57
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 01271000 09/09/08 11:09:57
Update Succeeded
Update Execution Time 94 milliseconds.
HRC324DS
Date Monday May 31, 2010 10:21:00 AM
Loaded from MAINT(093)
HRC324DS: ./ R 00599030 00599030 $ 599030 100 02/10/10 14:02:58
HRC324DS: LR R5,R10 restore register 5 HRC324DS 00599030
BEGIN APPLY >>> ./ R 00599030 00599030 $ 599030 100 02/10/10 14:02:58
END APPLY >>> ./ R 00599030 00599030 $ 599030 100 02/10/10 14:02:58
Update Succeeded
Update Execution Time 23 milliseconds.
HRC371DS
Date Monday Jun 07, 2010 06:40:00 PM
Loaded from MAINT(093)
HRC371DS: ./ R 00997400 05/31/10 11:27:58
HRC371DS: L R3,=F'44' length of CMSLEVEL message HRC371DS 00997400
HRC371DS: ./ R 00997600 05/31/10 11:27:58
HRC371DS: LEVELMSG DC CL44'VM/370 Release 6, PLC 629, "SixPack" ver 1.2' 371DS 00997600
BEGIN APPLY >>> ./ R 00997400 05/31/10 11:27:58
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00997400 05/31/10 11:27:58
BEGIN APPLY >>> ./ R 00997600 05/31/10 11:27:58
***WARNING*** >>> Automatic Resequencing Suppressed
END APPLY >>> ./ R 00997600 05/31/10 11:27:58
Update Succeeded
Update Execution Time 31 milliseconds.
HRC372DS
Date Thursday Sep 30, 2010 05:10:00 PM
Loaded from MAINT(093)
HRC372DS: ./ I 00892000 $ 893000 1000 09/30/10 10:10:59
HRC372DS: LA R5,SR1515 AFTER TYPEOUT RETURN TO CALLER HRC372DS 00893000
BEGIN APPLY >>> ./ I 00892000 $ 893000 1000 09/30/10 10:10:59
END APPLY >>> ./ I 00892000 $ 893000 1000 09/30/10 10:10:59
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cms/dmsqry.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator