DMSQRY History
References
-
-
Fixes Applied : 12
-
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.