Hi Bob,
I don't get output with D A,L in ULOG. Only in SYSLOG. Could be a problema
with RACF authorization in SDSF?. Please see, my files attached
Regards
----------------------------------------------------------------------
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 15:54:44.56 JOB03623 00000281 $HASP100 LANCREX2 ON
INTRDR SISTEMAS FROM TSU03622
S JGARCI1
N 0000000 DES1 17263 15:54:44.57 JOB03623 00000290 IRR010I USERID
JGARCI1 IS ASSIGNED TO THIS JOB.
N 0020000 DES1 17263 15:54:44.60 JOB03623 00000281 ICH70001I JGARCI1
LAST ACCESS AT 15:53:46 ON WEDNESDAY, SEPTEMBER 20,
S 2017
N 4000000 DES1 17263 15:54:44.60 JOB03623 00000090 $HASP373 LANCREX2
STARTED - INIT 1 - CLASS A - SYS DES1
N 0000000 DES1 17263 15:54:44.60 JOB03623 00000090 IEF403I LANCREX2 -
STARTED - TIME=15.54.44
N 0000000 DES1 17263 15:54:44.67 JOB03623 00000290 IEA630I OPERATOR
JGARCI1 NOW ACTIVE, SYSTEM=DES1 , LU=LANCREX2
NC0000000 DES1 17263 15:54:44.67 JGARCI1 00000290 D A,L
MR0000000 DES1 17263 15:54:44.67 JGARCI1 00000090 IEE114I 15.54.44
2017.263 ACTIVITY 229
LR 229 00000090 JOBS M/S TS
USERS SYSAS INITS ACTIVE/MAX VTAM OAS
LR 229 00000090 00008 00101
00003 00041 00037 00003/00120 00089
DR 229 00000090 LLA LLA LLA
NSW S VLF VLF VLF NSW S
DR 229 00000090 CNMPSSI CNMPSSI
NETVIEW NSW S CNMHSAM CNMHSAM HSAMPROC NSW SO
DR 229 00000090 CNMPROC CNMPROC
NETVIEW NSW SO OAM OAM IEFPROC NSW S
DR 229 00000090 RACF RACF
RACF NSW S JES2 JES2 IEFPROC NSW S
DR 229 00000090 DFHSM DFHSM
DFSMSHSM NSW S EPWFFST FFST EPWFFST NSW S
DR 229 00000090 DFRMM DFRMM
IEFPROC NSW S VTAM VTAM VTAM NSW S
DR 229 00000090 APPC APPC
APPC NSW S ASCH ASCH ASCH NSW S
DR 229 00000090 OSASF OSASF
OSASF1 IN S TCPIP TCPIP TCPIP NSW SO
DR 229 00000090 INETD4 STEP1
STCOMV OWT AO AFPCRE2 FSSCRE2 AFPCRE2 NSW SO
DR 229 00000090 AFPMTK2 FSSMTK2
AFPMTK2 NSW SO AFPCRE1 FSSCRE1 AFPCRE1 NSW SO
DR 229 00000090 AFPMTK1 FSSMTK1
AFPMTK1 NSW SO RXSERVE RXSERVE RXSERVE OWT SO
DR 229 00000090 TSO TSO
STEP1 OWT S RMF RMF IEFPROC NSW S
DR 229 00000090 SYSLOGD SYSLOGD
CONFPDS OWT SO TN3270 TN3270 TN3270 NSW SO
DR 229 00000090 SDSF SDSF
SDSF NSW S AOPD STEP1 STCAOP NSW AO
DR 229 00000090 AOPLOGD STEP1
STCAOP NSW AO AOPSDBD STEP1 STCAOP OWT AO
DR 229 00000090 AOPHINVD STEP1
STCAOP OWT AO AOPXFD STEP1 STCAOP OWT AO
DR 229 00000090 SDSFAUX SDSFAUX
SDSFAUX NSW S OMDCNDL OMDCNDL OMDCN NSW SO
DR 229 00000090 ADACOR03 ADACOR03
SYSCO1 NSW S CMASSD CMASSD CICS NSW SO
DR 229 00000090 CNX3ADA CNX3ADA
CNXRUNA OWT SO IOASMON IOASMON IOASMON NSW S
DR 229 00000090 IOASRV IOASRV
SERVER OWT SO IOASNMP IOASNMP IOASNMP OWT SO
DR 229 00000090 OMDCMS OMDCMS
OMDCMS NSW SO OMDETE OMDETE OMDETE NSW S
DR 229 00000090 OMDOC0 OMDOC0
OMDOC0 NSW S OMDM2 OMDM2 OMDM2 NSW SO
DR 229 00000090 OMDM2CS OMDM2CS
OMDM2CS NSW S OMDC20 OMDC20 OMDC20 NSW S
DR 229 00000090 CICSDW01 CICSDW01
CICS NSW SO FTPD1 STEP1 STCTCP OWT AO
DR 229 00000090 CACNDES1 CACNDES1
IEFPROC NSW SO RMFGAT RMFGAT IEFPROC NSW SO
DR 229 00000090 OMDM2RC OMDM2RC
OMDM2RC OWT S OMDM2HI OMDM2HI OMDM2HI NSW SO
DR 229 00000090 MQIMMSTR MQIMMSTR
PROCSTEP NSW S MQIMCHIN MQIMCHIN PROCSTEP IN SO
DR 229 00000090 CACEPS71 CACEPS71
CACPROC NSW SO ADAST71 ADAST71 ADAST71 NSW S
DR 229 00000090 RMFM3BX RMFM3BX
ERBM3B OWT S RMFWTO RMFWTO ERBM3B OWT S
DR 229 00000090 MQITMSTR MQITMSTR
PROCSTEP NSW S MQITCHIN MQITCHIN PROCSTEP IN SO
DR 229 00000090 CACEPI31 CACEPI31
CACPROC NSW SO ADAIT31 ADAIT31 ADAIT31 NSW S
DR 229 00000090 GBPDES1 GBPDES1
STEP OWT S EXBIT31 EXBIT31 BROKER NSW SO
DR 229 00000090 CICSIA02 CICSIA02
CICS NSW SO CICSIA01 CICSIA01 CICS NSW SO
DR 229 00000090 NAT31COL NAT31COL
RPCBATCH OWT SO NAT31COM NAT31COM RPCBATCH OWT SO
DR 229 00000090 NAT31COP NAT31COP
RPCBATCH OWT SO NAT31WEM NAT31WEM RPCBATCH OWT SO
DR 229 00000090 NAT31WEL NAT31WEL
RPCBATCH OWT SO NAT31WEP NAT31WEP RPCBATCH OWT SO
DR 229 00000090 CICSIT01 CICSIT01
CICS NSW SO MQDEMSTR MQDEMSTR PROCSTEP NSW S
DR 229 00000090 MQDECHIN MQDECHIN
PROCSTEP IN SO CACEPD21 CACEPD21 CACPROC NSW SO
DR 229 00000090 ADADT21 ADADT21
ADADT21 NSW S EXBDT21 EXBDT21 BROKER NSW SO
DR 229 00000090 CICSDA01 CICSDA01
CICS NSW SO CICSDA02 CICSDA02 CICS NSW SO
DR 229 00000090 NAT21COL NAT21COL
RPCBATCH OWT SO NAT21COD NAT21COD RPCBATCH OWT SO
1 SDSF OPERLOG PRINT DATE 09/20/2017 1 FILTERS PAGE
2
0DR 229 00000090 NAT21COP NAT21COP
RPCBATCH OWT SO NAT21COM NAT21COM RPCBATCH OWT SO
DR 229 00000090 NAT21IDL NAT21IDL
RPCBATCH OWT SO NAT21WED NAT21WED RPCBATCH OWT SO
DR 229 00000090 NAT21WEL NAT21WEL
RPCBATCH OWT SO NAT21WEP NAT21WEP RPCBATCH OWT SO
MR0000000 DES1 17263 15:54:44.67 JGARCI1 00000090 NAT21WEM NAT21WEM
RPCBATCH OWT SO CICSDT01 CICSDT01 CICS NSW SO
DR 229 00000090 QFSI QFSI
QFSS NSW SO QFSD QFSD QFSS NSW SO
DR 229 00000090 QFSZ QFSZ
QFSS NSW SO ADAMT91 ADAMT91 ADAMT91 NSW S
DR 229 00000090 CACEPP51 CACEPP51
CACPROC NSW SO ADAPT51 ADAPT51 ADAPT51 NSW S
DR 229 00000090 EXBPT51 EXBPT51
BROKER NSW SO CICSZA01 CICSZA01 CICS NSW SO
DR 229 00000090 CICSZA02 CICSZA02
CICS NSW SO NAT51COL NAT51COL RPCBATCH OWT SO
DR 229 00000090 NAT51COM NAT51COM
RPCBATCH OWT SO NAT51COP NAT51COP RPCBATCH OWT SO
DR 229 00000090 NAT51WEM NAT51WEM
RPCBATCH OWT SO NAT51WEL NAT51WEL RPCBATCH OWT SO
DR 229 00000090 NAT51WEP NAT51WEP
RPCBATCH OWT SO CICSZT01 CICSZT01 CICS NSW SO
DR 229 00000090 OMDM2HD OMDM2HD
OMDM2HD OWT S OMDM2EZ OMDM2EZ OMDM2EZ NSW S
DR 229 00000090 LANCREX2 PASO10
IN J
ER 229 00000090 ANCANAS OWT
MVEDUAR OWT JGARCI1 OWT
N FFFFFFF DES1 17263 15:54:50.85 STC08205 00000090 KCP0243: WSR WAITING
FOR WORKLOAD DEFINITIONS
N 0000000 DES1 17263 15:54:54.68 JOB03623 00000290 IEA631I OPERATOR
JGARCI1 NOW INACTIVE, SYSTEM=DES1 , LU=LANCREX2
----------------------------------------------------------------------
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
15.54.44 JOB03623 ---- WEDNESDAY, 20 SEP 2017 ----
15.54.44 JOB03623 IRR010I USERID JGARCI1 IS ASSIGNED TO THIS JOB.
15.54.44 JOB03623 ICH70001I JGARCI1 LAST ACCESS AT 15:53:46 ON WEDNESDAY,
SEPTEMBER 20, 2017
15.54.44 JOB03623 $HASP373 LANCREX2 STARTED - INIT 1 - CLASS A -
SYS DES1
15.54.44 JOB03623 IEF403I LANCREX2 - STARTED - TIME=15.54.44
15.54.44 JOB03623 IEA630I OPERATOR JGARCI1 NOW ACTIVE, SYSTEM=DES1 ,
LU=LANCREX2
15.54.44 JOB03623 D A,L
15.54.54 JOB03623 IEA631I OPERATOR JGARCI1 NOW INACTIVE, SYSTEM=DES1 ,
LU=LANCREX2
15.54.54 JOB03623 - -----TIMINGS
(MINS.)------ -----PAGING COUNTS----
15.54.54 JOB03623 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB
CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
15.54.54 JOB03623 -PASO10 12 70 16 .00 .00
.1 1663 BATCH 0 0 0 0
15.54.54 JOB03623 IEF404I LANCREX2 - ENDED - TIME=15.54.54
15.54.54 JOB03623 -LANCREX2 ENDED. NAME-SISTEMAS TOTAL TCB CPU
TIME= .00 TOTAL ELAPSED TIME= .1 SUBSYS=JES2
15.54.54 JOB03623 $HASP395 LANCREX2 ENDED
0------ JES2 JOB STATISTICS ------
- 20 SEP 2017 JOB EXECUTION DATE
- 12 CARDS READ
- 119 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
JOB03623
//* 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 15:53:46 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.JOB03623.D0000102.? SYSOUT
IEF285I JGARCI1.LANCREX2.JOB03623.D0000103.? SYSOUT
IEF285I JGARCI1.LANCREX2.JOB03623.D0000104.? SYSOUT
IGD104I MPLX.SYSPLEX.REXX RETAINED, DDNAME=SYSPROC
IEF285I JGARCI1.LANCREX2.JOB03623.D0000101.? SYSIN
IEF373I STEP/PASO10 /START 2017263.1554
IEF032I STEP/PASO10 /STOP 2017263.1554
CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 48K SYS: 480K EXT: 460K SYS: 12724K
ATB- REAL: 12K SLOTS: 0K
VIRT- ALLOC: 2M SHRD: 0M
IEF375I JOB/LANCREX2/START 2017263.1554
IEF033I JOB/LANCREX2/STOP 2017263.1554
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 *-* /**/
6 *-* con_input = 'D A,L'
>L> "D A,L"
7 *-* pass_arg. = "CONSOLE SYSCMD("con_input") CART(CARTREVP)"
>L> "CONSOLE SYSCMD("
>V> "D A,L"
>O> "CONSOLE SYSCMD(D A,L"
>L> ") CART(CARTREVP)"
>O> "CONSOLE SYSCMD(D A,L) CART(CARTREVP)"
8 *-* /**/
9 *-* "CONSOLE ACTIVATE NAME("USERID()")"
>L> "CONSOLE ACTIVATE NAME("
>F> "JGARCI1"
>O> "CONSOLE ACTIVATE NAME(JGARCI1"
>L> ")"
>O> "CONSOLE ACTIVATE NAME(JGARCI1)"
10 *-* if rc <> 0
>V> "0"
>L> "0"
>O> "0"
14 *-* /**/
15 *-* pass_arg.
>V> "CONSOLE SYSCMD(D A,L) CART(CARTREVP)"
16 *-* getcode = 0
>L> "0"
17 *-* Do while getcode = 0 /**/
>V> "0"
>L> "0"
>O> "1"
18 *-* getcode = GETMSG('CACDS.','SOL',CARTEVEP,,10)
>L> "CACDS."
>L> "SOL"
>L> "CARTEVEP"
>L> ""
>L> "10"
>F> "4"
19 *-* If getcode = 0
>V> "4"
>L> "0"
>O> "0"
27 *-* End
17 *-* Do while getcode = 0 /**/
>V> "4"
1 >L> "0"
>O> "0"
28 *-* Do ii = 1 to wto.0
>L> "1"
>L> "WTO.0"
28 +++ Do ii = 1 to wto.0
IRX0041I Error running COMANDO4, line 28: Bad arithmetic conversion
READY
END
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
