Dale, Bob,
Please find attached last execution and the last rexx code version with yours
suggestions. It doesn't work fine
Regards
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
1 J E S 2 J O B L O G -- S Y S T E M D E S 1 --
N O D E N 1
0
10.47.30 JOB03328 ---- WEDNESDAY, 20 SEP 2017 ----
10.47.30 JOB03328 IRR010I USERID JGARCI1 IS ASSIGNED TO THIS JOB.
10.47.30 JOB03328 ICH70001I JGARCI1 LAST ACCESS AT 10:46:35 ON WEDNESDAY,
SEPTEMBER 20, 2017
10.47.30 JOB03328 $HASP373 LANCREX2 STARTED - INIT 2 - CLASS A -
SYS DES1
10.47.30 JOB03328 IEF403I LANCREX2 - STARTED - TIME=10.47.30
10.47.30 JOB03328 IEA630I OPERATOR JGARCI1 NOW ACTIVE, SYSTEM=DES1 ,
LU=LANCREX2
10.47.30 JOB03328 F CACEPS71,CMD,CACDS,"REPORT"
10.47.40 JOB03328 IEA631I OPERATOR JGARCI1 NOW INACTIVE, SYSTEM=DES1 ,
LU=LANCREX2
10.47.40 JOB03328 - -----TIMINGS
(MINS.)------ -----PAGING COUNTS----
10.47.40 JOB03328 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB
CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
10.47.40 JOB03328 -PASO10 12 72 16 .00 .00
.1 1672 BATCH 0 0 0 0
10.47.40 JOB03328 IEF404I LANCREX2 - ENDED - TIME=10.47.40
10.47.40 JOB03328 -LANCREX2 ENDED. NAME-SISTEMAS TOTAL TCB CPU
TIME= .00 TOTAL ELAPSED TIME= .1 SUBSYS=JES2
10.47.40 JOB03328 $HASP395 LANCREX2 ENDED
0------ JES2 JOB STATISTICS ------
- 20 SEP 2017 JOB EXECUTION DATE
- 12 CARDS READ
- 118 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 5 SYSOUT SPOOL KBYTES
- 0.16 MINUTES EXECUTION TIME
1 //LANCREX2 JOB ,'SISTEMAS',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
JOB03328
//* LANZA UN REXX EN BATCH
IEFC653I SUBSTITUTION JCL -
,'SISTEMAS',CLASS=A,MSGCLASS=X,NOTIFY=JGARCI1
2 //PASO10 EXEC PGM=IKJEFT01,REGION=6M
3 //SYSPRINT DD SYSOUT=*
4 //SYSUDUMP DD SYSOUT=*
5 //SYSTSPRT DD SYSOUT=*
6 //SYSPROC DD DISP=SHR,DSN=MPLX.SYSPLEX.REXX
7 //SYSTSIN DD *
ICH70001I JGARCI1 LAST ACCESS AT 10:46:35 ON WEDNESDAY, SEPTEMBER 20, 2017
IEF236I ALLOC. FOR LANCREX2 PASO10
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSUDUMP
IEF237I JES2 ALLOCATED TO SYSTSPRT
IGD103I SMS ALLOCATED TO DDNAME SYSPROC
IEF237I JES2 ALLOCATED TO SYSTSIN
IEF142I LANCREX2 PASO10 - STEP WAS EXECUTED - COND CODE 0012
IEF285I JGARCI1.LANCREX2.JOB03328.D0000102.? SYSOUT
IEF285I JGARCI1.LANCREX2.JOB03328.D0000103.? SYSOUT
IEF285I JGARCI1.LANCREX2.JOB03328.D0000104.? SYSOUT
IGD104I MPLX.SYSPLEX.REXX RETAINED, DDNAME=SYSPROC
IEF285I JGARCI1.LANCREX2.JOB03328.D0000101.? SYSIN
IEF373I STEP/PASO10 /START 2017263.1047
IEF032I STEP/PASO10 /STOP 2017263.1047
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 48K SYS: 480K EXT: 460K SYS: 12608K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 2M SHRD: 0M
IEF375I JOB/LANCREX2/START 2017263.1047
IEF033I JOB/LANCREX2/STOP 2017263.1047
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
1READY
PROFILE NOPREFIX
READY
PROFILE MSGID
READY
%COMANDO4
3 *-* "CONSOLE DEACTIVATE"
>L> "CONSOLE DEACTIVATE"
IKJ55307I THE CONSOLE COMMAND HAS TERMINATED.+
IKJ55307I A CONSOLE SESSION IS NOT ACTIVE.
+++ RC(20) +++
4 *-* "CONSPROF SOLDISP(NO) SOLNUM(400)"
>L> "CONSPROF SOLDISP(NO) SOLNUM(400)"
5 *-* con_input = 'F CACEPS71,CMD,CACDS,"REPORT"'
>L> "F CACEPS71,CMD,CACDS,"REPORT""
6 *-* pass_arg. = "CONSOLE SYSCMD("con_input") CART(CARTREVP)"
>L> "CONSOLE SYSCMD("
>V> "F CACEPS71,CMD,CACDS,"REPORT""
>O> "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT""
>L> ") CART(CARTREVP)"
>O> "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTREVP)"
7 *-* /**/
8 *-* "CONSOLE ACTIVATE NAME("USERID()")"
>L> "CONSOLE ACTIVATE NAME("
>F> "JGARCI1"
>O> "CONSOLE ACTIVATE NAME(JGARCI1"
>L> ")"
>O> "CONSOLE ACTIVATE NAME(JGARCI1)"
9 *-* if rc <> 0
>V> "0"
>L> "0"
>O> "0"
13 *-* /**/
14 *-* pass_arg.
>V> "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTREVP)"
15 *-* getcode = 0
>L> "0"
16 *-* Do while getcode = 0 /**/
>V> "0"
>L> "0"
>O> "1"
17 *-* getcode = GETMSG('CACDS.','SOL',CARTEVEP,,10)
>L> "CACDS."
>L> "SOL"
>L> "CARTEVEP"
>L> ""
>L> "10"
>F> "4"
18 *-* If getcode = 0
>V> "4"
>L> "0"
>O> "0"
26 *-* End
16 *-* Do while getcode = 0 /**/
>V> "4"
>L> "0"
1 >O> "0"
27 *-* Do ii = 1 to wto.0
>L> "1"
>L> "WTO.0"
27 +++ Do ii = 1 to wto.0
IRX0041I Error running COMANDO4, line 27: Bad arithmetic conversion
READY
END
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
/* REXX */
TRACE I
"CONSOLE DEACTIVATE"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
con_input = 'F CACEPS71,CMD,CACDS,"REPORT"'
pass_arg. = "CONSOLE SYSCMD("con_input") CART(CARTREVP)"
/*"CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)" */
"CONSOLE ACTIVATE NAME("USERID()")"
if rc <> 0 then
do
say "CONSOLE Activation problem - " rc
end
/*ADDRESS CONSOLE "F CACEPS71,CMD,CACDS,"REPORT"" */
pass_arg.
getcode = 0
Do while getcode = 0 /* get console message */
getcode = GETMSG('CACDS.','SOL',CARTEVEP,,10)
If getcode = 0 then
Do
Do i = 1 to CACDS.0
k = i + j
wto.k = CACDS.i
End
j = j + CACDS.0
End
End
Do ii = 1 to wto.0
Say wto.ii
ii = ii + 1
End
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
