Date Thursday Jan 15, 1981 01:14:00 AM
Loaded from MAINT(193)
R12384DS: ./ I 00150100 $ 150180 80 12/02/80 22:50:11
R12384DS: TM BATFLAGS,BATRUN IS BATCH ACTIVE? @VA12384 00150180
R12384DS: BNO CPRETURN NO - OK PLAIN RETURN @VA12384 00150260
R12384DS: LTR R15,R3 GOOD RETURN FROM CP? @VA12384 00150340
R12384DS: BZ CPRETURN OK - DON'T BOTHER BATCH. @VA12384 00150420
R12384DS: CLC 0(4,R2),=CL4'LINK' WAS IT LINK CMD? @VA12384 00150500
R12384DS: BNE CPRETURN NOT CP CMD BATCH INTERESTED IN. @VA12384 00150580
R12384DS: OI BATFLAG3,BATCPFNG TELL BATCH OF LINK ERROR @VA12384
R12384DS: OI BATFLAGS,BATCPEX TELL BATCH CPF CALLING @VA12384 00150740
R12384DS: L R15,ABATPROC GET BATCH ADDRESS @VA12384 00150820
R12384DS: BALR R14,R15 GO TO BATCH. @VA12384 00150900
BEGIN APPLY >>> ./ I 00150100 $ 150180 80 12/02/80 22:50:11
END APPLY >>> ./ I 00150100 $ 150180 80 12/02/80 22:50:11
Update Succeeded
Update Execution Time 8 milliseconds.
Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)
R12652DS: ./ I 00036000 $ 36200 200 01/30/81 22:16:10
R12652DS: *| DMSBTP - TO CHECK FOR VALID CP COMMAND AND TO NOTIFY @VA12652 00036200
R12652DS: *| BATCH OF LINK COMMAND FAILURE. @VA12652 00036400
R12652DS: *| DMSINA - TO CHECK FOR SYNONYM OF CP COMMANDS. @VA12652 00036600
R12652DS: ./ I 00045000 $ 45300 300 01/30/81 22:16:10
R12652DS: *| BATFLAGS - NOTIFY BATCH DMSCPF IS CALLING @VA12652 00045200
R12652DS: *| BATFLAG3 - NOTIFY BATCH OF FAILED LINK COMMAND @VA12652 00045400
R12652DS: ./ R 00060000 $ 60000 1000 01/30/81 22:16:10
R12652DS: *| GPR 11 = TEMP STORAGE FOR BALRSAVE REGS @VA12652 00060000
R12652DS: ./ I 00087100 $ 87150 50 01/30/81 22:16:10
R12652DS: SR R11,R11 INITIALIZE R11 @VA12652 00087150
R12652DS: ./ I 00140050 $ 140057 7 01/30/81 22:16:10
R12652DS: LA R0,72 GET STORAGE TO PROTECT USER'S REGS @VA12652 00140057
R12652DS: SRL R0,3 CHANGE TO DOUBLE WORDS @VA12652 00140064
R12652DS: DMSFREE DWORDS=(0),TYPCALL=BALR @VA12652 00140071
R12652DS: LR R11,R1 SAVE GOTTEN AREA ADDRESS @VA12652 00140078
R12652DS: ST R0,0(,R11) SAVE DOUBLE WORD SIZE @VA12652 00140085
R12652DS: MVC 4(64,R11),BALRSAVE PROTECT CALLER'S REGS @VA12652 00140092
R12652DS: ./ R 00151000 $ 151000 100 01/30/81 22:16:10
R12652DS: CPRETURN EQU * @VA12652 00151000
R12652DS: LTR R1,R11 TEST AND SET GOTTEN AREA @VA12652 00151100
R12652DS: BZ CPRET2 NO AREA GOTTEN - DON'T FREE @VA12652 00151200
R12652DS: L R0,0(,R1) GET DWORD SIZE @VA12652 00151300
R12652DS: MVC BALRSAVE(64),4(R1) RESTORE CALLERS REGS @VA12652 00151400
R12652DS: DMSFRET DWORDS=(0),LOC=(1),TYPCALL=BALR @VA12652 00151500
R12652DS: CPRET2 EQU * @VA12652 00151600
R12652DS: LTR R15,R3 LOAD RETURN CODE AND SET CONDITIO@VA12652 00151700
BEGIN APPLY >>> ./ I 00036000 $ 36200 200 01/30/81 22:16:10
END APPLY >>> ./ I 00036000 $ 36200 200 01/30/81 22:16:10
BEGIN APPLY >>> ./ I 00045000 $ 45300 300 01/30/81 22:16:10
END APPLY >>> ./ I 00045000 $ 45300 300 01/30/81 22:16:10
BEGIN APPLY >>> ./ R 00060000 $ 60000 1000 01/30/81 22:16:10
END APPLY >>> ./ R 00060000 $ 60000 1000 01/30/81 22:16:10
BEGIN APPLY >>> ./ I 00087100 $ 87150 50 01/30/81 22:16:10
END APPLY >>> ./ I 00087100 $ 87150 50 01/30/81 22:16:10
BEGIN APPLY >>> ./ I 00140050 $ 140057 7 01/30/81 22:16:10
END APPLY >>> ./ I 00140050 $ 140057 7 01/30/81 22:16:10
BEGIN APPLY >>> ./ R 00151000 $ 151000 100 01/30/81 22:16:10
END APPLY >>> ./ R 00151000 $ 151000 100 01/30/81 22:16:10
Update Succeeded
Update Execution Time 16 milliseconds.
Date Sunday Jun 28, 2009 10:06:00 PM
Loaded from MAINT(093)
HRC350DS: ./ I 00079000 $ 79020 20 06/28/09 16:45:57
HRC350DS: * HRC350DS 00079020
HRC350DS: *| If the first argument is FIFO or LIFO, the output HRC350DS 00079040
HRC350DS: *| from the CP command is placed in the console stack. HRC350DS 00079060
HRC350DS: *| If the first argument is DISCARD, the output from the HRC350DS 00079080
HRC350DS: *| CP command is discarded. In either of these cases if HRC350DS 00079100
HRC350DS: *| the CP command issues a prompt (for a password), that HRC350DS 00079120
HRC350DS: *| prompt is not stacked or discarded. HRC350DS 00079140
HRC350DS: ./ I 00149800 $ 149802 2 06/28/09 16:45:57
HRC350DS: * Now check the first word of the command line. Is it FIFO, HRC350DS 00149802
HRC350DS: * LIFO, or DISCARD? HRC350DS 00149804
HRC350DS: CLC 0(5,R2),FIFO is it 'FIFO' HRC350DS 00149806
HRC350DS: BNE CKLIFO nope HRC350DS 00149808
HRC350DS: LA R6,1 remember FIFO HRC350DS 00149810
HRC350DS: LA R2,5(R2) skip past 'FIFO ' HRC350DS 00149812
HRC350DS: S R3,FIVE decrement CP command length HRC350DS 00149814
HRC350DS: B SPECIAL HRC350DS 00149816
HRC350DS: CKLIFO DS 0H HRC350DS 00149818
HRC350DS: CLC 0(5,R2),LIFO is it 'LIFO' HRC350DS 00149820
HRC350DS: BNE CKDISC nope HRC350DS 00149822
HRC350DS: LA R6,2 remember LIFO HRC350DS 00149824
HRC350DS: LA R2,5(R2) skip past 'LIFO ' HRC350DS 00149826
HRC350DS: S R3,FIVE decrement CP command length HRC350DS 00149828
HRC350DS: B SPECIAL HRC350DS 00149830
HRC350DS: CKDISC DS 0H HRC350DS 00149832
HRC350DS: CLC 0(8,R2),DISCARD is it 'DISCARD' HRC350DS 00149834
HRC350DS: BNE NORMAL nope HRC350DS 00149836
HRC350DS: SR R6,R6 remember DISCARD HRC350DS 00149838
HRC350DS: LA R2,8(R2) skip past 'DISCARD ' HRC350DS 00149840
HRC350DS: S R3,EIGHT decrement CP command length HRC350DS 00149842
HRC350DS: * We will issue the DIAGNOSE instruction with output directed HRC350DS 00149844
HRC350DS: * to a buffer so we can stack it or discard it. HRC350DS 00149846
HRC350DS: SPECIAL DS 0H HRC350DS 00149848
HRC350DS: LTR R3,R3 anything left in the buffer? HRC350DS 00149850
HRC350DS: BZ WRAPUP HRC350DS 00149852
HRC350DS: L R0,BUFSIZE buffer for CP output (in DWORDs) HRC350DS 00149854
HRC350DS: DMSFREE DWORDS=(0),TYPCALL=BALR HRC350DS 00149856
HRC350DS: LR R4,R3 move CP command length to R4 HRC350DS 00149858
HRC350DS: LR R3,R1 address of buffer for CP output HRC350DS 00149860
HRC350DS: LR R9,R1 and save it HRC350DS 00149862
HRC350DS: LR R7,R1 and again HRC350DS 00149864
HRC350DS: L R5,EIGHTK length of output buffer HRC350DS 00149866
HRC350DS: * At last we issue the CP command. HRC350DS 00149868
HRC350DS: * R2 = command, R3 = buffer, R4 = command len, R5 = buffer len HRC350DS 00149870
HRC350DS: ICM R4,8,=X'40' request CP output to our buffer HRC350DS 00149872
HRC350DS: DIAG R2,R4,8 issue the CP command HRC350DS 00149874
HRC350DS: LTR R8,R4 save return code from CP command HRC350DS 00149876
HRC350DS: BNZ THATSALL if error, don't stack result HRC350DS 00149878
HRC350DS: LTR R6,R6 are we stacking the result? HRC350DS 00149880
HRC350DS: BZ THATSALL no, so we are done HRC350DS 00149882
HRC350DS: * Prepare the ATTN plist that will stack the CP command output HRC350DS 00149884
HRC350DS: A R9,EIGHTK R9 = space for ATTN plist HRC350DS 00149886
HRC350DS: USING ATTNPL,R9 HRC350DS 00149888
HRC350DS: MVC ATTNPL(8),ATTN move in 'ATTN ' HRC350DS 00149890
HRC350DS: BCT R6,SPECIAL1 HRC350DS 00149892
HRC350DS: MVC ATTNHOW(4),FIFO stacking FIFO HRC350DS 00149894
HRC350DS: B SPECIAL2 HRC350DS 00149896
HRC350DS: SPECIAL1 DS 0H HRC350DS 00149898
HRC350DS: MVC ATTNHOW(4),LIFO stacking LIFO HRC350DS 00149900
HRC350DS: SPECIAL2 DS 0H HRC350DS 00149902
HRC350DS: BCTR R3,0 prime the pump HRC350DS 00149904
HRC350DS: * Loop to place each output line from CP on the stack. HRC350DS 00149906
HRC350DS: CPNXTLIN DS 0H HRC350DS 00149908
HRC350DS: LA R3,1(R3) skip previous linend character HRC350DS 00149910
HRC350DS: LR R2,R3 start of this line HRC350DS 00149912
HRC350DS: * Loop to find the end of this line. HRC350DS 00149914
HRC350DS: CPNXTCHR DS 0H HRC350DS 00149916
HRC350DS: CLI 0(R3),X'15' are we at the end of this line? HRC350DS 00149918
HRC350DS: BE CPSTACK1 yes, go stack it HRC350DS 00149920
HRC350DS: LA R3,1(R3) no, on to next character HRC350DS 00149922
HRC350DS: BCT R5,CPNXTCHR continue loop until buffer end HRC350DS 00149924
HRC350DS: * We have a line, now stack it. HRC350DS 00149926
HRC350DS: CPSTACK1 DS 0H HRC350DS 00149928
HRC350DS: LR R10,R3 save scan pointer HRC350DS 00149930
HRC350DS: SR R3,R2 length of this line of output HRC350DS 00149932
HRC350DS: BCTR R5,0 account for linend character HRC350DS 00149934
HRC350DS: ST R2,ATTNLEN address of line to stack HRC350DS 00149936
HRC350DS: STC R3,ATTNLEN put line length in ATTN plist HRC350DS 00149938
HRC350DS: LR R1,R9 HRC350DS 00149940
HRC350DS: SVC 202 stack the line HRC350DS 00149942
HRC350DS: DC AL4(THATSALL) go here if an error HRC350DS 00149944
HRC350DS: LR R3,R10 restore scan pointer HRC350DS 00149946
HRC350DS: LTR R5,R5 more lines to process? HRC350DS 00149948
HRC350DS: BP CPNXTLIN yes, go scan and stack them HRC350DS 00149950
HRC350DS: DROP R9 HRC350DS 00149952
HRC350DS: * Our work here is done. HRC350DS 00149954
HRC350DS: THATSALL DS 0H HRC350DS 00149956
HRC350DS: L R0,BUFSIZE buffer size HRC350DS 00149958
HRC350DS: LR R1,R7 get address of buffer to free HRC350DS 00149960
HRC350DS: DMSFRET DWORDS=(0),LOC=(1),TYPCALL=BALR HRC350DS 00149962
HRC350DS: LR R3,R8 CP return code into R3 HRC350DS 00149964
HRC350DS: B WRAPUP HRC350DS 00149966
HRC350DS: NORMAL DS 0H HRC350DS 00149968
HRC350DS: ./ I 00150000 $ 150020 20 06/28/09 16:45:57
HRC350DS: WRAPUP DS 0H HRC350DS 00150020
HRC350DS: ./ I 00155000 $ 155020 20 06/28/09 16:45:57
HRC350DS: EIGHTK DC A(8192) size of buffer for CP output HRC350DS 00155020
HRC350DS: BUFSIZE DC A(1026) size of buffer in doublewords HRC350DS 00155040
HRC350DS: FIVE DC A(5) HRC350DS 00155060
HRC350DS: EIGHT DC A(8) HRC350DS 00155080
HRC350DS: FIFO DC C'FIFO ' HRC350DS 00155100
HRC350DS: LIFO DC C'LIFO ' HRC350DS 00155120
HRC350DS: DISCARD DC C'DISCARD ' HRC350DS 00155140
HRC350DS: ATTN DC C'ATTN ' HRC350DS 00155160
HRC350DS: ./ I 00160000 $ 160020 20 06/28/09 16:45:57
HRC350DS: SPACE 1 HRC350DS 00160020
HRC350DS: ATTNPL DSECT ATTN parameter list HRC350DS 00160040
HRC350DS: DS CL8 'ATTN' HRC350DS 00160060
HRC350DS: ATTNHOW DS CL4 'FIFO' or 'LIFO' HRC350DS 00160080
HRC350DS: ATTNLEN DS AL1 length of line to be stacked HRC350DS 00160100
HRC350DS: ATTNADD DS AL3 address of line to be stacked HRC350DS 00160120
BEGIN APPLY >>> ./ I 00079000 $ 79020 20 06/28/09 16:45:57
END APPLY >>> ./ I 00079000 $ 79020 20 06/28/09 16:45:57
BEGIN APPLY >>> ./ I 00149800 $ 149802 2 06/28/09 16:45:57
END APPLY >>> ./ I 00149800 $ 149802 2 06/28/09 16:45:57
BEGIN APPLY >>> ./ I 00150000 $ 150020 20 06/28/09 16:45:57
END APPLY >>> ./ I 00150000 $ 150020 20 06/28/09 16:45:57
BEGIN APPLY >>> ./ I 00155000 $ 155020 20 06/28/09 16:45:57
END APPLY >>> ./ I 00155000 $ 155020 20 06/28/09 16:45:57
BEGIN APPLY >>> ./ I 00160000 $ 160020 20 06/28/09 16:45:57
END APPLY >>> ./ I 00160000 $ 160020 20 06/28/09 16:45:57
Update Succeeded
Update Execution Time 23 milliseconds.