Hi David,
Thanks for your code. It Works, but the problem if you enter the command in
ULOG option in SDSF you can't see the result in ULOG. You can see only the
command response in LOG option, not in ULOG.
Please find attached the job's sysout and system log.
The last entry available is the command, but you don't have more data available
in sysout. The display is available in LOG option
Any other advice?
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.19.39 JOB03291 ---- WEDNESDAY, 20 SEP 2017 ----
10.19.39 JOB03291 IRR010I USERID JGARCI1 IS ASSIGNED TO THIS JOB.
10.19.39 JOB03291 ICH70001I JGARCI1 LAST ACCESS AT 10:18:22 ON WEDNESDAY,
SEPTEMBER 20, 2017
10.19.39 JOB03291 $HASP373 LANCREX3 STARTED - INIT 1 - CLASS A -
SYS DES1
10.19.39 JOB03291 IEF403I LANCREX3 - STARTED - TIME=10.19.39
10.19.39 JOB03291 IEA630I OPERATOR JGARCI1 NOW ACTIVE, SYSTEM=DES1 ,
LU=
10.19.39 JOB03291 F CACEPS71,CMD,CACDS,"REPORT"
10.19.41 JOB03291 IEA631I OPERATOR JGARCI1 NOW INACTIVE, SYSTEM=DES1 ,
LU=
10.19.41 JOB03291 - -----TIMINGS
(MINS.)------ -----PAGING COUNTS----
10.19.41 JOB03291 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB
CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
10.19.41 JOB03291 -OPERCMD 00 112 26 .00 .00
.0 3308 BATCH 0 0 0 0
10.19.41 JOB03291 IEF404I LANCREX3 - ENDED - TIME=10.19.41
10.19.41 JOB03291 -LANCREX3 ENDED. NAME-SISTEMAS TOTAL TCB CPU
TIME= .00 TOTAL ELAPSED TIME= .0 SUBSYS=JES2
10.19.41 JOB03291 $HASP395 LANCREX3 ENDED
0------ JES2 JOB STATISTICS ------
- 20 SEP 2017 JOB EXECUTION DATE
- 12 CARDS READ
- 208 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 9 SYSOUT SPOOL KBYTES
- 0.03 MINUTES EXECUTION TIME
1 //LANCREX3 JOB ,'SISTEMAS',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
JOB03291
IEFC653I SUBSTITUTION JCL -
,'SISTEMAS',CLASS=A,MSGCLASS=X,NOTIFY=JGARCI1
2 //OPERCMD EXEC PGM=IKJEFT1B,REGION=32M
3 //SYSEXEC DD DSN=MPLX.SYSPLEX.REXX,DISP=SHR
4 //SYSTSPRT DD SYSOUT=*
5 //SYSIN DD *
6 //SYSTSIN DD *
ICH70001I JGARCI1 LAST ACCESS AT 10:18:22 ON WEDNESDAY, SEPTEMBER 20, 2017
IEF236I ALLOC. FOR LANCREX3 OPERCMD
IGD103I SMS ALLOCATED TO DDNAME SYSEXEC
IEF237I JES2 ALLOCATED TO SYSTSPRT
IEF237I JES2 ALLOCATED TO SYSIN
IEF237I JES2 ALLOCATED TO SYSTSIN
IEF237I JES2 ALLOCATED TO SYS00001
IEF142I LANCREX3 OPERCMD - STEP WAS EXECUTED - COND CODE 0000
IGD104I MPLX.SYSPLEX.REXX RETAINED, DDNAME=SYSEXEC
IEF285I JGARCI1.LANCREX3.JOB03291.D0000103.? SYSOUT
IEF285I JGARCI1.LANCREX3.JOB03291.D0000101.? SYSIN
IEF285I JGARCI1.LANCREX3.JOB03291.D0000102.? SYSIN
IEF285I JGARCI1.LANCREX3.JOB03291.D0000104.? SYSOUT
IEF373I STEP/OPERCMD /START 2017263.1019
IEF032I STEP/OPERCMD /STOP 2017263.1019
CPU: 0 HR 00 MIN 00.02 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 76K SYS: 488K EXT: 4080K SYS: 12544K
ATB- REAL: 16K SLOTS: 0K
VIRT- ALLOC: 3M SHRD: 0M
IEF375I JOB/LANCREX3/START 2017263.1019
IEF033I JOB/LANCREX3/STOP 2017263.1019
CPU: 0 HR 00 MIN 00.02 SEC SRB: 0 HR 00 MIN 00.00 SEC
1READY
PROFILE NOPREFIX
READY
PROFILE MSGID
READY
%COMANDO6
6 *-* 'EXECIO * DISKR SYSIN (STEM mycmd. FINIS'
>L> "EXECIO * DISKR SYSIN (STEM mycmd. FINIS"
7 *-* if rc > 0
>V> "0"
>L> "0"
>O> "0"
13 *-* /* Allocate results output file */
14 *-* Call BPXWDYN "alloc rtddn(ddnm) sysout"
>L> "alloc rtddn(ddnm) sysout"
>>> "0"
16 *-* /* Process all input commands */
17 *-* Do c=1 to mycmd.0
>L> "1"
>V> "1"
18 *-* oper_command.0 = 1
>L> "1"
19 *-* oper_command.1 = mycmd.c
>C> "MYCMD.1"
>V> "F CACEPS71,CMD,CACDS,"REPORT"
"
20 *-* Call Main_process
27 *-* Main_process:
28 *-* /* process all data from SYSIN */
29 *-* rc=isfcalls('ON')
>L> "ON"
>F> "0"
30 *-* Address SDSF ISFSLASH "("oper_command.") (WAIT)"
>L> "ISFSLASH"
>L> "("
>O> "ISFSLASH ("
>L> "OPER_COMMAND."
>O> "ISFSLASH (OPER_COMMAND."
>L> ") (WAIT)"
>O> "ISFSLASH (OPER_COMMAND.) (WAIT)"
31 *-* l_cnt = 0
>L> "0"
32 *-* If datatype(isfulog.0) = "NUM"
>V> "2"
>F> "NUM"
>L> "NUM"
>O> "1"
*-* Then
*-* Do
33 *-* If isfulog.0 <> 0
>V> "2"
>L> "0"
>O> "1"
*-* Then
*-* Do
34 *-* l_cnt = l_cnt + 1
>V> "0"
1 >L> "1"
>O> "1"
35 *-* l.l_cnt = substr(isfulog.1,1,43)
>V> "DES1 2017263 10:19:39.60 ISF031I CONSOLE
JGARCI1 ACTIVATED"
>L> "1"
>L> "43"
>F> "DES1 2017263 10:19:39.60 "
>C> "L.1"
36 *-* Do ix=1 to isfulog.0
>L> "1"
>V> "2"
37 *-* ll = length(isfulog.ix)
>C> "ISFULOG.1"
>V> "DES1 2017263 10:19:39.60 ISF031I
CONSOLE JGARCI1 ACTIVATED"
>F> "76"
38 *-* if ll <> 0
>V> "76"
>L> "0"
>O> "1"
*-* Then
39 *-* qdata = substr(isfulog.ix,44,ll-43)
>C> "ISFULOG.1"
>V> "DES1 2017263 10:19:39.60 ISF031I
CONSOLE JGARCI1 ACTIVATED"
>L> "44"
>V> "76"
>L> "43"
>O> "33"
>F> "ISF031I CONSOLE JGARCI1 ACTIVATED"
42 *-* l_cnt = l_cnt + 1
>V> "1"
>L> "1"
>O> "2"
43 *-* l.l_cnt = qdata
>V> "ISF031I CONSOLE JGARCI1 ACTIVATED"
>C> "L.2"
44 *-* End
36 *-* Do ix=1 to isfulog.0
37 *-* ll = length(isfulog.ix)
>C> "ISFULOG.2"
>V> "DES1 2017263 10:19:39.60 -F
CACEPS71,CMD,CACDS,"REPORT""
>F> "72"
38 *-* if ll <> 0
>V> "72"
>L> "0"
>O> "1"
*-* Then
39 *-* qdata = substr(isfulog.ix,44,ll-43)
>C> "ISFULOG.2"
>V> "DES1 2017263 10:19:39.60 -F
CACEPS71,CMD,CACDS,"REPORT""
>L> "44"
>V> "72"
>L> "43"
>O> "29"
>F> "F CACEPS71,CMD,CACDS,"REPORT""
42 *-* l_cnt = l_cnt + 1
>V> "2"
1 >L> "1"
>O> "3"
43 *-* l.l_cnt = qdata
>V> "F CACEPS71,CMD,CACDS,"REPORT""
>C> "L.3"
44 *-* End
36 *-* Do ix=1 to isfulog.0
45 *-* End
50 *-* End
55 *-* rc=isfcalls("OFF")
>L> "OFF"
>F> "0"
56 *-* If (l_cnt = 0)
>V> "3"
>L> "0"
>O> "0"
60 *-* l.0 = l_cnt
>V> "3"
61 *-* Address MVS "ExecIO "l_cnt" DiskW "ddnm" (Finis Stem l.)"
>L> "ExecIO "
>V> "3"
>O> "ExecIO 3"
>L> " DiskW "
>O> "ExecIO 3 DiskW "
>V> "SYS00001"
>O> "ExecIO 3 DiskW SYS00001"
>L> " (Finis Stem l.)"
>O> "ExecIO 3 DiskW SYS00001 (Finis Stem l.)"
62 *-* l_cnt = 0
>L> "0"
63 *-* Return
21 *-* End
17 *-* Do c=1 to mycmd.0
23 *-* /* Free results output file */
24 *-* Call BPXWDYN "free fi(ddnm)"
>L> "free fi(ddnm)"
>>> "70778880"
25 *-* Return 0
>L> "0"
READY
END
DES1 2017263 10:19:39.60
ISF031I CONSOLE JGARCI1 ACTIVATED
F CACEPS71,CMD,CACDS,"REPORT"
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
1 SDSF OPERLOG PRINT DATE 09/20/2017 1 FILTERS PAGE
1
0N 0200000 DES1 17263 10:19:39.50 JOB03291 00000281 $HASP100 LANCREX3 ON
INTRDR SISTEMAS FROM TSU03267
S JGARCI1
N 0000000 DES1 17263 10:19:39.51 JOB03291 00000290 IRR010I USERID
JGARCI1 IS ASSIGNED TO THIS JOB.
N 0020000 DES1 17263 10:19:39.54 JOB03291 00000281 ICH70001I JGARCI1
LAST ACCESS AT 10:18:22 ON WEDNESDAY, SEPTEMBER 20,
S 2017
N 4000000 DES1 17263 10:19:39.54 JOB03291 00000090 $HASP373 LANCREX3
STARTED - INIT 1 - CLASS A - SYS DES1
N 0000000 DES1 17263 10:19:39.54 JOB03291 00000090 IEF403I LANCREX3 -
STARTED - TIME=10.19.39
N 0000000 DES1 17263 10:19:39.60 JOB03291 00000290 IEA630I OPERATOR
JGARCI1 NOW ACTIVE, SYSTEM=DES1 , LU=
NC0000000 DES1 17263 10:19:39.60 JGARCI1 00000290 F
CACEPS71,CMD,CACDS,"REPORT"
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 CAC00200I
CMD,CACDS,"REPORT"
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 CACJ001I DISTRIBUTION
SERVICE ACTIVITY REPORT
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090
--------------------------------------------
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 Change Message(s)
Received = 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 Commit Message(s)
Received = 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 Message(s) Sent = 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 Message(s) Staged =
(0, 0)
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 Total Message(s)
Staged = (0, 0)
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090
--------------------------------------------
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 CACJ028I DISPLAY
CURRENT WRITER INFORMATION
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 SUB NAME
TYPE STAT TABLE NAME
S CHANGES INSERTS
UPDATES DELETES
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090
========================== ==== ==== ===========================
S ===========
=========== =========== ===========
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 FL_ADA71EP.IVU_CIS
XML ACT ADA71EP.IVU_CIS
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 FL_ADA71EP.IVU_GRUPO
XML ACT ADA71EP.IVU_GRUPO
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090
FL_ADA71EP.IVU_HISTSUPLE XML ACT ADA71EP.IVU_HISTSUPLE
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090 FL_ADA71EP.IVU_POLIZA
XML ACT ADA71EP.IVU_POLIZA
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090
FL_ADA71EP.IVU_RGA_ACTOMED XML ACT ADA71EP.IVU_RGA_ACTOMED
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090
FL_ADA71EP.IVU_RGA_FACTURA XML ACT ADA71EP.IVU_RGA_FACTURA
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090
FL_ADA71EP.IVU_RGA_LIQUIDA XML ACT ADA71EP.IVU_RGA_LIQUIDACIO
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.61 STC09724 00000090
FL_ADA71EP.IVU_RGA_SOLICIT XML ACT ADA71EP.IVU_RGA_SOLICITUD
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
FL_ADA71EP.IVU_SII_FACTURA XML ACT ADA71EP.IVU_SII_FACTURA_PV
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
FL_ADA71EP.IVU_SII_INFORME XML ACT ADA71EP.IVU_SII_INFORME_ME
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
FL_ADA71EP.IVU_SII_PAGO XML ACT ADA71EP.IVU_SII_PAGO
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
FL_ADA71EP.IVU_SII_SOLICIT XML ACT ADA71EP.IVU_SII_SOLICITUD
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
FL_ADA71EP.IVU_SII_VALORAC XML ACT ADA71EP.IVU_SII_VALORACION
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
FL_ADA71EP.IVU_SUPLE_GRUPO XML ACT ADA71EP.IVU_SUPLE_GRUPO
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090 FL_IVU_HISTSUPLE
XML ACT ADA71EP.IVU_HISTSUPLE
S 0 0
0 0
1 SDSF OPERLOG PRINT DATE 09/20/2017 1 FILTERS PAGE
2
0N 0020000 DES1 17263 10:19:39.62 STC09724 00000090 IVU_PUBLICACION
XML ACT ADA71EP.IVU_PUBLICACION
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
MQ_ADA71EP.IVU_CARACTER XML ACT ADA71EP.IVU_CARACTER
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
MQ_ADA71EP.IVU_GARANTIA XML ACT ADA71EP.IVU_GARANTIA
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
MQ_ADA71EP.IVU_GARMODOB XML ACT ADA71EP.IVU_GARMODOB
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
MQ_ADA71EP.IVU_MODALIDA XML ACT ADA71EP.IVU_MODALIDA
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
MQ_ADA71EP.IVU_PRODUCTO XML ACT ADA71EP.IVU_PRODUCTO
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090 TOTALS
ALL ---- ALL
S 0 0
0 0
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090
========================== ==== ==== ===========================
S ===========
=========== =========== ===========
N 0020000 DES1 17263 10:19:39.62 STC09724 00000090 Displayed 21 of 21
apply entries
N 0000000 DES1 17263 10:19:41.61 JOB03291 00000290 IEA631I OPERATOR
JGARCI1 NOW INACTIVE, SYSTEM=DES1 , LU=
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
