subject:"GETMSG null with out ADABAS command"

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Richards, Robert B.

Jorge,

Do me a favor and add an ADDRESS TSO to the top right before the CONSOLE 
command and see if that makes any difference.

Also, try executing your exec from Option 6 and not at the READY.

Bob


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Wednesday, September 20, 2017 10:06 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

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 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jesse 1 Robinson

The requirement for ULOG display is similar to the requirement for GETMSG: the 
system has to recognize output as a response to a user's command. I repeat what 
I said earlier: MODIFY task-name... has been problematic for me in the past. I 
know nothing of the internals, but MODIFY responses are essentially 
asynchronous WTOs from the named task. They are not 'MVS messages'. 

If you run SMCS consoles, the SMCS console name must be distinct from the ULOG 
console name. If more than one instance of a given name is found, the 'first 
one' will get all messages directed to that name. That being said, your results 
should be consistent for all commands. Either ULOG gets all responses, or ULOG 
gets none of them.  

If you get inconsistent behavior, I suggest opening an SR with IBM for an *IBM* 
supplied task. Leave ADABAS out of the conversation for now. I was blown away 
to read that D A,L does not come back to ULOG. That is weird beyond belief.

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Wednesday, September 20, 2017 7:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: GETMSG null with out ADABAS command

Hi Elardus,

 I think this is not the problem. We can enter any comand in the system in 
ULOG, but some don't show the output command in the SDSF. Only in LOG (SYSLOG)


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jorge Garcia

Hi Elardus,

 I think this is not the problem. We can enter any comand in the system in 
ULOG, but some don't show the output command in the SDSF. Only in LOG (SYSLOG)

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jorge Garcia

Yes David, I am

 DES1 ULOG  CONSOLE JGARCI1LINE 0   COLUMNS 02- 81  
 COMMAND INPUT ===>SCROLL ===> CSR  
* TOP OF DATA **
DES1  2017263  16:46:29.01 ISF031I CONSOLE JGARCI1 ACTIVATED
DES1  2017263  16:46:30.76-D T  
DES1  2017263  16:46:30.77  TSU03622   IEE136I LOCAL: TIME=16.46.30 DATE=201
 BOTTOM OF DATA 

Regards

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jorge Garcia

Hi Elardus,

 Your code Works fine with D M=CPU command but not with F 
CACEPS71,CMD,CACDS,"REPORT". Please see the sysout file attached.

Regards

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu 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 
 16.33.05 JOB03671  WEDNESDAY, 20 SEP 2017 
 16.33.05 JOB03671  IRR010I  USERID JGARCI1  IS ASSIGNED TO THIS JOB.
 16.33.05 JOB03671  ICH70001I JGARCI1  LAST ACCESS AT 16:27:17 ON WEDNESDAY, 
SEPTEMBER 20, 2017
 16.33.05 JOB03671  $HASP373 LANCREX2 STARTED - INIT 1- CLASS A- 
SYS DES1
 16.33.05 JOB03671  IEF403I LANCREX2 - STARTED - TIME=16.33.05
 16.33.05 JOB03671  IEA630I  OPERATOR PEST NOW ACTIVE,   SYSTEM=DES1, 
LU=
 16.33.05 JOB03671  D M=CPU
 16.33.15 JOB03671  IEA631I  OPERATOR PEST NOW INACTIVE, SYSTEM=DES1, 
LU=
 16.33.15 JOB03671  -  -TIMINGS 
(MINS.)--  -PAGING COUNTS
 16.33.15 JOB03671  -STEPNAME PROCSTEPRC   EXCP   CONN   TCB   SRB  
CLOCK  SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
 16.33.15 JOB03671  -PASO10   00487128   .00   .00  
   .1  3701  BATCH0 0 0 0
 16.33.15 JOB03671  IEF404I LANCREX2 - ENDED - TIME=16.33.15
 16.33.15 JOB03671  -LANCREX2 ENDED.  NAME-SISTEMAS TOTAL TCB CPU 
TIME=  .00 TOTAL ELAPSED TIME=.1 SUBSYS=JES2
 16.33.15 JOB03671  $HASP395 LANCREX2 ENDED
0-- JES2 JOB STATISTICS --
-  20 SEP 2017 JOB EXECUTION DATE
-   12 CARDS READ
-  147 SYSOUT PRINT RECORDS
-0 SYSOUT PUNCH RECORDS
-8 SYSOUT SPOOL KBYTES
- 0.17 MINUTES EXECUTION TIME
 1 //LANCREX2 JOB ,'SISTEMAS',CLASS=A,MSGCLASS=X,NOTIFY= 
   JOB03671
   //*  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 16:27:17 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 
 IEF285I   JGARCI1.LANCREX2.JOB03671.D102.? SYSOUT
 IEF285I   JGARCI1.LANCREX2.JOB03671.D103.? SYSOUT
 IEF285I   JGARCI1.LANCREX2.JOB03671.D104.? SYSOUT
 IGD104I MPLX.SYSPLEX.REXXRETAINED,  DDNAME=SYSPROC 
 IEF285I   JGARCI1.LANCREX2.JOB03671.D101.? SYSIN 
 IEF373I STEP/PASO10  /START 2017263.1633
 IEF032I STEP/PASO10  /STOP  2017263.1633 
 CPU: 0 HR  00 MIN  00.02 SECSRB: 0 HR  00 MIN  00.00 SEC   
 
 VIRT:44K  SYS:   480K  EXT: 4040K  SYS:12724K
 ATB- REAL:36K  SLOTS: 0K
  VIRT- ALLOC:   3M SHRD:   0M
 IEF375I  JOB/LANCREX2/START 2017263.1633
 IEF033I  JOB/LANCREX2/STOP  2017263.1633 
 CPU: 0 HR  00 MIN  00.02 SECSRB: 0 HR  00 MIN  00.00 SEC   
 
1READY
  PROFILE NOPREFIX
 READY
  PROFILE MSGID
 READY
  %COMANDO7
 ISFRESP.1 IS: USERID=JGARCI1
 ISFRESP.2 IS: PROC=REXX
 ISFRESP.3 IS: TERMINAL=
 ISFRESP.4 IS: GRPINDEX=1
 ISFRESP.5 IS: GRPNAME=ISFSPROG
 ISFRESP.6 IS: MVS=z/OS 02.01.00
 ISFRESP.7 IS: JES=z/OS 2.1
 ISFRESP.8 IS: SDSF=HQX7790
 ISFRESP.9 IS: ISPF=N/A
 ISFRESP.10 IS: RMF/DA=NOTACC
 ISFRESP.11 IS: SERVER=YES
 ISFRESP.12 IS: SERVERNAME=SDSF
 ISFRESP.13 IS: JESNAME=JES2
 ISFRESP.14 IS: MEMBER=DES1
 ISFRESP.15 IS: JESTYPE=JES2
 ISFRESP.16 IS: SYSNAME=DES1
 ISFRESP.17 IS: SYSPLEX=SYSPLEX0
 ISFRESP.18 IS: COMM=NOTAVAIL
 ISFRESP.19 IS: COMMX=ENABLED
 COMMAND ISSUED
 ISF147I REXX variable ISFTRACE fetched, return code 0001 value is ''.
 ISF147I REXX variable ISFTRMASK fetched, return code 0001 value is ''.
 ISF147I REXX variable ISFSECTRACE fetched, return code 0001 value is ''.
 ISF147I REXX variable ISFSCHARS fetched, return code 0001 value is ''.
 ISF147I REXX variable ISFACTIONS fetched, return code 0001 value is ''.

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jorge Garcia

Hi David,

 Please see my file attached with the result of execution. No output command 
available in sysout.

Regards

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu 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 
 16.24.34 JOB03656  WEDNESDAY, 20 SEP 2017 
 16.24.34 JOB03656  IRR010I  USERID JGARCI1  IS ASSIGNED TO THIS JOB.
 16.24.34 JOB03656  ICH70001I JGARCI1  LAST ACCESS AT 16:02:37 ON WEDNESDAY, 
SEPTEMBER 20, 2017
 16.24.34 JOB03656  $HASP373 LANCREX3 STARTED - INIT 1- CLASS A- 
SYS DES1
 16.24.34 JOB03656  IEF403I LANCREX3 - STARTED - TIME=16.24.34
 16.24.34 JOB03656  IEA630I  OPERATOR JGARCI1  NOW ACTIVE,   SYSTEM=DES1, 
LU=
 16.24.34 JOB03656  F CACEPS71,CMD,CACDS,"REPORT"
 16.24.36 JOB03656  IEA631I  OPERATOR JGARCI1  NOW INACTIVE, SYSTEM=DES1, 
LU=
 16.24.36 JOB03656  -  -TIMINGS 
(MINS.)--  -PAGING COUNTS
 16.24.36 JOB03656  -STEPNAME PROCSTEPRC   EXCP   CONN   TCB   SRB  
CLOCK  SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
 16.24.36 JOB03656  -OPERCMD  00304 79   .00   .00  
   .0  2875  BATCH0 0 0 0
 16.24.36 JOB03656  IEF404I LANCREX3 - ENDED - TIME=16.24.36
 16.24.36 JOB03656  -LANCREX3 ENDED.  NAME-SISTEMAS TOTAL TCB CPU 
TIME=  .00 TOTAL ELAPSED TIME=.0 SUBSYS=JES2
 16.24.36 JOB03656  $HASP395 LANCREX3 ENDED
0-- JES2 JOB STATISTICS --
-  20 SEP 2017 JOB EXECUTION DATE
-8 CARDS READ
-   53 SYSOUT PRINT RECORDS
-0 SYSOUT PUNCH RECORDS
-3 SYSOUT SPOOL KBYTES
- 0.03 MINUTES EXECUTION TIME
 1 //LANCREX3 JOB ,'SISTEMAS',CLASS=A,MSGCLASS=X,NOTIFY= 
   JOB03656
   IEFC653I SUBSTITUTION JCL - 
,'SISTEMAS',CLASS=A,MSGCLASS=X,NOTIFY=JGARCI1
 2 //OPERCMD   EXEC PGM=IKJEFT1B,PARM='%COMANDO6',REGION=32M
   
 3 //SYSEXEC   DD   DSN=MPLX.SYSPLEX.REXX,DISP=SHR  
   
 4 //SYSIN DD   *   
   
 5 //SYSTSIN  DD DUMMY  
   
 6 //SYSTSPRT DD DUMMY  
   
 ICH70001I JGARCI1  LAST ACCESS AT 16:02:37 ON WEDNESDAY, SEPTEMBER 20, 2017
 IEF236I ALLOC. FOR LANCREX3 OPERCMD
 IGD103I SMS ALLOCATED TO DDNAME SYSEXEC
 IEF237I JES2 ALLOCATED TO SYSIN
 IEF237I DMY  ALLOCATED TO SYSTSIN
 IEF237I DMY  ALLOCATED TO SYSTSPRT
 IEF237I JES2 ALLOCATED TO SYS1
 IEF142I LANCREX3 OPERCMD - STEP WAS EXECUTED - COND CODE 
 IGD104I MPLX.SYSPLEX.REXXRETAINED,  DDNAME=SYSEXEC 
 IEF285I   JGARCI1.LANCREX3.JOB03656.D101.? SYSIN 
 IEF285I   JGARCI1.LANCREX3.JOB03656.D102.? SYSOUT
 IEF373I STEP/OPERCMD /START 2017263.1624
 IEF032I STEP/OPERCMD /STOP  2017263.1624 
 CPU: 0 HR  00 MIN  00.01 SECSRB: 0 HR  00 MIN  00.00 SEC   
 
 VIRT:92K  SYS:   448K  EXT: 4080K  SYS:12428K
 ATB- REAL:16K  SLOTS: 0K
  VIRT- ALLOC:   3M SHRD:   0M
 IEF375I  JOB/LANCREX3/START 2017263.1624
 IEF033I  JOB/LANCREX3/STOP  2017263.1624 
 CPU: 0 HR  00 MIN  00.01 SECSRB: 0 HR  00 MIN  00.00 SEC   
 
 DES1  2017263  16:24:34.48 
 ISF031I CONSOLE JGARCI1 ACTIVATED
 F CACEPS71,CMD,CACDS,"REPORT"



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jorge Garcia

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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
1 SDSF  OPERLOG  PRINT   DATE 09/20/2017 1 FILTERSPAGE  
1
0N 020 DES1 17263 15:54:44.56 JOB03623 0281  $HASP100 LANCREX2 ON 
INTRDR  SISTEMAS  FROM TSU03622
 S   JGARCI1
 N 000 DES1 17263 15:54:44.57 JOB03623 0290  IRR010I  USERID 
JGARCI1  IS ASSIGNED TO THIS JOB.
 N 002 DES1 17263 15:54:44.60 JOB03623 0281  ICH70001I JGARCI1  
LAST ACCESS AT 15:53:46 ON WEDNESDAY, SEPTEMBER 20,
 S   2017
 N 400 DES1 17263 15:54:44.60 JOB03623 0090  $HASP373 LANCREX2 
STARTED - INIT 1- CLASS A- SYS DES1
 N 000 DES1 17263 15:54:44.60 JOB03623 0090  IEF403I LANCREX2 - 
STARTED - TIME=15.54.44
 N 000 DES1 17263 15:54:44.67 JOB03623 0290  IEA630I  OPERATOR 
JGARCI1  NOW ACTIVE,   SYSTEM=DES1, LU=LANCREX2
 NC000 DES1 17263 15:54:44.67 JGARCI1  0290  D A,L
 MR000 DES1 17263 15:54:44.67 JGARCI1  0090  IEE114I 15.54.44 
2017.263 ACTIVITY 229
 LR229 0090   JOBS M/STS 
USERSSYSASINITS   ACTIVE/MAX VTAM OAS
 LR229 0090  800101
3  00041000373/00120   00089
 DR229 0090   LLA  LLA  LLA 
 NSW  S  VLF  VLF  VLF  NSW  S
 DR229 0090   CNMPSSI  CNMPSSI  
NETVIEW  NSW  S  CNMHSAM  CNMHSAM  HSAMPROC NSW  SO
 DR229 0090   CNMPROC  CNMPROC  
NETVIEW  NSW  SO OAM  OAM  IEFPROC  NSW  S
 DR229 0090   RACF RACF 
RACF NSW  S  JES2 JES2 IEFPROC  NSW  S
 DR229 0090   DFHSMDFHSM
DFSMSHSM NSW  S  EPWFFST  FFST EPWFFST  NSW  S
 DR229 0090   DFRMMDFRMM
IEFPROC  NSW  S  VTAM VTAM VTAM NSW  S
 DR229 0090   APPC APPC 
APPC NSW  S  ASCH ASCH ASCH NSW  S
 DR229 0090   OSASFOSASF
OSASF1   IN   S  TCPIPTCPIPTCPIPNSW  SO
 DR229 0090   INETD4   STEP1
STCOMV   OWT  AO AFPCRE2  FSSCRE2  AFPCRE2  NSW  SO
 DR229 0090   AFPMTK2  FSSMTK2  
AFPMTK2  NSW  SO AFPCRE1  FSSCRE1  AFPCRE1  NSW  SO
 DR229 0090   AFPMTK1  FSSMTK1  
AFPMTK1  NSW  SO RXSERVE  RXSERVE  RXSERVE  OWT  SO
 DR229 0090   TSO  TSO  
STEP1OWT  S  RMF  RMF  IEFPROC  NSW  S
 DR229 0090   SYSLOGD  SYSLOGD  
CONFPDS  OWT  SO TN3270   TN3270   TN3270   NSW  SO
 DR229 0090   SDSF SDSF 
SDSF NSW  S  AOPD STEP1STCAOP   NSW  AO
 DR229 0090   AOPLOGD  STEP1
STCAOP   NSW  AO AOPSDBD  STEP1STCAOP   OWT  AO
 DR229 0090   AOPHINVD STEP1
STCAOP   OWT  AO AOPXFD   STEP1STCAOP   OWT  AO
 DR229 0090   SDSFAUX  SDSFAUX  
SDSFAUX  NSW  S  OMDCNDL  OMDCNDL  OMDCNNSW  SO
 DR229 0090   ADACOR03 ADACOR03 
SYSCO1   NSW  S  CMASSD   CMASSD   CICS NSW  SO
 DR229 0090   CNX3ADA  CNX3ADA  
CNXRUNA  OWT  SO IOASMON  IOASMON  IOASMON  NSW  S
 DR229 0090   IOASRV   IOASRV   
SERVER   OWT  SO IOASNMP  IOASNMP  IOASNMP  OWT  SO
 DR229 0090   OMDCMS   OMDCMS   
OMDCMS   NSW  SO OMDETE   OMDETE   OMDETE   NSW  S
 DR229 0090   OMDOC0   OMDOC0   
OMDOC0   NSW  S  OMDM2OMDM2OMDM2NSW  SO
 DR229 0090   OMDM2CS  OMDM2CS  
OMDM2CS  NSW  S  OMDC20   OMDC20   OMDC20   NSW  S
 DR229 0090   CICSDW01 CICSDW01 
CICS NSW  SO FTPD1STEP1STCTCP   OWT  AO
 DR229 0090   CACNDES1 CACNDES1 
IEFPROC  NSW  SO RMFGAT   RMFGAT   IEFPROC  NSW  SO
 DR229 0090   OMDM2RC

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Elardus Engelbrecht

Jousma, David wrote:

>Just another thought.  Are you allowed to use ULOG in ISFPRM00? 

Excellent catch! Have a quick look at WHO output and then look for your group 
in ISFPRMxx.

Look at AUTH=ULOG [1] in your group or in RACF Class SDSF this profile, 
ISFCMD.ODSP.ULOG.

It may perhaps be needed to check your accesses to the profiles in TSOAUTH RACF 
Class.

Groete / Greetings
Elardus Engelbrecht

[1] - If you have AUTH=ALL or AUTH=ALLOPER, ULOG is included.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jousma, David

Jorge,

Just another thought.  Are you allowed to use ULOG in ISFPRM00?

_
Dave Jousma
Manager Mainframe Engineering, Assistant Vice President
david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H
p 616.653.8429
f 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Wednesday, September 20, 2017 4:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

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 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN **CAUTION EXTERNAL 
EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Elardus Engelbrecht

Jousma, David wrote:

>I looked further at your output.   For whatever reason, the response to that 
>command isn’t coming back.   I don’t understand why.  I've tried other modify 
>type commands like F CATALOG,ALLOCATED and that comes back just fine.   Maybe 
>you try that to make sure there isn’t something else different. 

To all including Jorge Garcia, Time for me to jump in again.

Check if you have RACF access on the command and the STCs output. Try RACF 
command ALTUSER  UAUDIT and try out that program. You will see all and 
every RACF SMF records. Perhaps there is a surprise.

Try $T DEBUG,SECURITY=YES (and remember to turn it to SECURITY=NO after 
testing!)

Perhaps JES2 is stopping you because of insufficient authority somewhere? 

It could be there is a WHEN(CONSOLE(console-id)) somewhere in a RACF profile 
stopping you because you're at a 'wrong' console?

I'm also confused, because we sometimes use a similar REXX program with your 
way and also with the API method too as described by Paul Gilmartin and 
J.O.Skip Robinson.

See a sample REXX program below. No QUEUE things and such.

HTH!

Groete / Greetings
Elardus Engelbrecht

/* REXX */   
RC=ISFCALLS("ON")
ISFCONS = "PEST"  /* EMCS CONSOLE NAME */   
ISFDELAY ="10" /* WAIT TIME */   

ADDRESS SDSF ISFEXEC " WHO " 
DO IX=1 TO ISFRESP.0 
  SAY "ISFRESP."IX "IS:" ISFRESP.IX  
END  

ADDRESS SDSF ISFEXEC "'/D M=CPU' (WAIT VERBOSE)" 
IF ISFMSG<>"" THEN   
  SAY ISFMSG 
DO I2 = 1 TO ISFMSG2.0 /* LOOP THOUGH MESSAGES */
  SAY ISFMSG2.I2 
END  
IF RC <= 8 THEN DO   
  SAY "NUMBER OF ULOG ROWS RETURNED" ISFULOG.0   
  IF ISFULOG.0 > 1 THEN DO   
DO IX=1 TO ISFULOG.0   /* LOOP THROUGH ROWS */   
  SAY ISFULOG.IX 
END  
  END
END  
RC=ISFCALLS("OFF")   
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jousma, David

Jorge,

You can disregard this advice.  I looked further at your output.   For whatever 
reason, the response to that command isn’t coming back.   I don’t understand 
why.  I've tried other modify type commands like F CATALOG,ALLOCATED and that 
comes back just fine.   Maybe you try that to make sure there isn’t something 
else different.

_
Dave Jousma
Manager Mainframe Engineering, Assistant Vice President
david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H
p 616.653.8429
f 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jousma, David
Sent: Wednesday, September 20, 2017 7:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

Your JCL doesn’t look quite like mine.  Code it as a parm.   When I run like 
this, the exec dynamically allocates DD SYSxx and routes all the command 
output to it.

//OPERCMD   EXEC PGM=IKJEFT1B,PARM='%OPERCMDB',REGION=32M 
//SYSEXEC   DD   DSN=your.SYSEXEC.dataset,DISP=SHR
//SYSIN DD   *
F CACEPS71,CMD,CACDS,"REPORT"
/*
//SYSTSIN  DD   DUMMY 
//SYSTSPRT DD   DUMMY 

_
Dave Jousma
Manager Mainframe Engineering, Assistant Vice President david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H p 616.653.8429 f 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Wednesday, September 20, 2017 4:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

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 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN **CAUTION EXTERNAL 
EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN **CAUTION EXTERNAL 
EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jousma, David

Your JCL doesn’t look quite like mine.  Code it as a parm.   When I run like 
this, the exec dynamically allocates DD SYSxx and routes all the command 
output to it.

//OPERCMD   EXEC PGM=IKJEFT1B,PARM='%OPERCMDB',REGION=32M 
//SYSEXEC   DD   DSN=your.SYSEXEC.dataset,DISP=SHR
//SYSIN DD   *
F CACEPS71,CMD,CACDS,"REPORT"
/*
//SYSTSIN  DD   DUMMY 
//SYSTSPRT DD   DUMMY 

_
Dave Jousma
Manager Mainframe Engineering, Assistant Vice President
david.jou...@53.com
1830 East Paris, Grand Rapids, MI  49546 MD RSCB2H
p 616.653.8429
f 616.653.2717


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Wednesday, September 20, 2017 4:37 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

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 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN **CAUTION EXTERNAL 
EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Richards, Robert B.

Please try another command, like D A,L and see if you get output.

I have my suspicions as to how the "REPORT" double quotes are being handled.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Wednesday, September 20, 2017 4:56 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

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 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jorge Garcia

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 lists...@listserv.ua.edu 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 PROCSTEPRC   EXCP   CONN   TCB   SRB  
CLOCK  SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
 10.47.40 JOB03328  -PASO10   12 72 16   .00   .00  
   .1  1672  BATCH0 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= 
   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.D102.? SYSOUT
 IEF285I   JGARCI1.LANCREX2.JOB03328.D103.? SYSOUT
 IEF285I   JGARCI1.LANCREX2.JOB03328.D104.? SYSOUT
 IGD104I MPLX.SYSPLEX.REXXRETAINED,  DDNAME=SYSPROC 
 IEF285I   JGARCI1.LANCREX2.JOB03328.D101.? SYSIN 
 IEF373I STEP/PASO10  /START 2017263.1047
 IEF032I STEP/PASO10  /STOP  2017263.1047 
 CPU: 0 HR  00 MIN  00.01 SECSRB: 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 SECSRB: 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

Re: GETMSG null with out ADABAS command

2017-09-20 Thread Jorge Garcia

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 lists...@listserv.ua.edu 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 PROCSTEPRC   EXCP   CONN   TCB   SRB  
CLOCK  SERV  WORKLOAD  PAGE  SWAP   VIO SWAPS
 10.19.41 JOB03291  -OPERCMD  00112 26   .00   .00  
   .0  3308  BATCH0 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= 
   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 SYS1
 IEF142I LANCREX3 OPERCMD - STEP WAS EXECUTED - COND CODE 
 IGD104I MPLX.SYSPLEX.REXXRETAINED,  DDNAME=SYSEXEC 
 IEF285I   JGARCI1.LANCREX3.JOB03291.D103.? SYSOUT
 IEF285I   JGARCI1.LANCREX3.JOB03291.D101.? SYSIN 
 IEF285I   JGARCI1.LANCREX3.JOB03291.D102.? SYSIN 
 IEF285I   JGARCI1.LANCREX3.JOB03291.D104.? SYSOUT
 IEF373I STEP/OPERCMD /START 2017263.1019
 IEF032I STEP/OPERCMD /STOP  2017263.1019 
 CPU: 0 HR  00 MIN  00.02 SECSRB: 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 SECSRB: 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>

Re: GETMSG null with out ADABAS command

2017-09-19 Thread Jousma, David

 RSCB2H
p 616.653.8429
f 616.653.2717

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Tuesday, September 19, 2017 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

**CAUTION EXTERNAL EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

Excuse me Bob. I post the REXX code

/* REXX */ 
TRACE I
"CONSOLE DEACTIVATE"   
"CONSPROF SOLDISP(NO) SOLNUM(400)" 
"CONSOLE ACTIVATE NAME("USERID()")"
if rc <> 0 then
do 
 say "CONSOLE Activation problem - " rc
end
"CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)" 
/*ADDRESS CONSOLE "F CACEPS71,CMD,CACDS,"REPORT"" */   
getcode = 0
Do while getcode = 0/* get console message  */ 
  getcode = GETMSG('salida.','SOL',CARTEVEP,,10)   
  If getcode = 0 then  
Do 
  Do i = 1 to salida.0 
 k = i + j 
  wto.k = salida.i
   End
  j = j + salida.0
 End  
 End  
 Do ii = 1 to wto.0   
Say wto.ii
ii = ii + 1   
  End 

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN **CAUTION EXTERNAL 
EMAIL**

**DO NOT open attachments or click on links from unknown senders or unexpected 
emails**

This e-mail transmission contains information that is confidential and may be 
privileged.   It is intended only for the addressee(s) named above. If you 
receive this e-mail in error, please do not read, copy or disseminate it in any 
manner. If you are not the intended recipient, any disclosure, copying, 
distribution or use of the contents of this information is prohibited. Please 
reply to the message immediately by informing the sender that the message was 
misdirected. After replying, please erase it from your computer system. Your 
assistance in correcting this error is appreciated.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-19 Thread Dale R. Smith

On Tue, 19 Sep 2017 02:39:55 -0500, Jorge Garcia  wrote:

>*  getcode = GETMSG('salida.','SOL',CARTEVEP,,10)   
>   >L>"salida."  
>   >L>"SOL"  
>   >L>"CARTEVEP" 
>   >L>"" 
>   >L>"10"   

Jorge, I noticed that the stem name you are passing to GETMSG is in quotes, 
therfore a literal, but it's in lower case.  Try making it upper case as most 
REXX functions use the Symbolic interface instead of the Direct interface.  
REXX variables can be specified in a case, but names of variables passed to 
functions must be uppercase.  Using quotes around a name is also a good idea, 
but then you must enter it as upper case.

-- 
Dale R. Smith

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-19 Thread Richards, Robert B.

Just in case we are getting hung up on quotes, please put the command in a 
variable:

con_input = 'F CACEPS71,CMD,CACDS,"REPORT") '

Then reference it like this:

pass_arg. = "CONSOLE SYSCMD("con_input") CART(CARTREVP)"

then after the console activation just this:

pass_arg.

The next statement should be the getcode = 0

Let me know if this makes a difference.

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Tuesday, September 19, 2017 9:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

Excuse me Bob. I post the REXX code

/* REXX */ 
TRACE I
"CONSOLE DEACTIVATE"   
"CONSPROF SOLDISP(NO) SOLNUM(400)" 
"CONSOLE ACTIVATE NAME("USERID()")"
if rc <> 0 then
do 
 say "CONSOLE Activation problem - " rc
end
"CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)" 
/*ADDRESS CONSOLE "F CACEPS71,CMD,CACDS,"REPORT"" */   
getcode = 0
Do while getcode = 0/* get console message  */ 
  getcode = GETMSG('salida.','SOL',CARTEVEP,,10)   
  If getcode = 0 then  
Do 
  Do i = 1 to salida.0 
 k = i + j 
  wto.k = salida.i
   End
  j = j + salida.0
 End  
 End  
 Do ii = 1 to wto.0   
Say wto.ii
ii = ii + 1   
  End 

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-19 Thread Jorge Garcia

Excuse me Bob. I post the REXX code

/* REXX */ 
TRACE I
"CONSOLE DEACTIVATE"   
"CONSPROF SOLDISP(NO) SOLNUM(400)" 
"CONSOLE ACTIVATE NAME("USERID()")"
if rc <> 0 then
do 
 say "CONSOLE Activation problem - " rc
end
"CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)" 
/*ADDRESS CONSOLE "F CACEPS71,CMD,CACDS,"REPORT"" */   
getcode = 0
Do while getcode = 0/* get console message  */ 
  getcode = GETMSG('salida.','SOL',CARTEVEP,,10)   
  If getcode = 0 then  
Do 
  Do i = 1 to salida.0 
 k = i + j 
  wto.k = salida.i
   End
  j = j + salida.0
 End  
 End  
 Do ii = 1 to wto.0   
Say wto.ii
ii = ii + 1   
  End 

Thanks

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-19 Thread Richards, Robert B.

Jorge,

Please post the current state of the code *without* the trace version.

Bob 
(not Richard...Richards is my last name)

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Tuesday, September 19, 2017 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

Hi Richard, Elardus,

 Below last execution with the updates -->

<<Question, did you do a check for rc after the CONSOLE ACTIVATE?

>"CONSOLE ACTIVATE NAME("USERID()")" 

I don't see any results of that CONSOL ACTIVATE command in your posted TRACE.

Can you retry your REXX with the below statements I posted earlier?

"CONSOLE ACTIVATE NAME("USERID()")" 
if rc <> 0 then
do 
 say "CONSOLE Activation problem - " rc
end 
ADDRESS CONSOLE  etc ... >>

5 *-* "CONSOLE ACTIVATE NAME("USERID()")"  
  >L>   "CONSOLE ACTIVATE NAME("   
  >F>   "JGARCI1"  
  >O>   "CONSOLE ACTIVATE NAME(JGARCI1"
  >L>   ")"
  >O>   "CONSOLE ACTIVATE NAME(JGARCI1)"   
6 *-* if rc <> 0   
  >V>   "0"
  >L>   "0"
  >O>   "0"

<>

Done

10 *-* "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)"
   >L>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"  
   >L>   "REPORT"
   >O>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,REPORT"
   >L>   ") CART(CARTEVEP)"  
   >O>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,REPORT) CART(CARTEVEP)"
11 *-* /**/  
12 *-* getcode = 0   
   >L>   "0" 
13 *-* Do while getcode = 0/**/  
   >V>   "0" 
   >L>   "0" 
   >O>   "1" 
14 *-*  getcode = GETMSG('salida.','SOL',CARTEVEP,,10)   
   >L>"salida."  
   >L>"SOL"  
   >L>"CARTEVEP" 
   >L>"" 
   >L>"10"   
   >F>"4"
15 *-*  If getcode = 0   
   >V>"4"
   >L>"0"
   >O>"0"
23 *-* End   
13 *-* Do while getcode = 0/**/  
   >V>   "4" 
   >L>   "0" 
   >O>   "0" 
24 *-* Do ii = 1 to wto.0
   >L>   "1" 
   >L>   "WTO.0" 
24 +++  Do ii = 1 to wto.0   
IRX0041I Error running COMANDO4, line 24: Bad arithmetic conversion  
READY
END  

Regards


5 *-* "CONSOLE ACTIVATE NAME("USERID()")"  
  >L>   "CONSOLE ACTIVATE NAME("   
  >F>   "JGARCI1"  
  >O>   "CONSOLE ACTIVATE NAME(JGARCI1"
  >L>   ")"
  >O>   "CONSOLE ACTIVATE NAME(JGARCI1)"   
6 *-* if rc <> 0   
  >V>   "0"
  >L>   "0"
  >O>   "0"

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-19 Thread Jorge Garcia

Hi Richard, Elardus,

 Below last execution with the updates -->

<"CONSOLE ACTIVATE NAME("USERID()")" 

I don't see any results of that CONSOL ACTIVATE command in your posted TRACE.

Can you retry your REXX with the below statements I posted earlier?

"CONSOLE ACTIVATE NAME("USERID()")" 
if rc <> 0 then
do 
 say "CONSOLE Activation problem - " rc
end 
ADDRESS CONSOLE  etc ... >>

5 *-* "CONSOLE ACTIVATE NAME("USERID()")"  
  >L>   "CONSOLE ACTIVATE NAME("   
  >F>   "JGARCI1"  
  >O>   "CONSOLE ACTIVATE NAME(JGARCI1"
  >L>   ")"
  >O>   "CONSOLE ACTIVATE NAME(JGARCI1)"   
6 *-* if rc <> 0   
  >V>   "0"
  >L>   "0"
  >O>   "0"

<>

Done

10 *-* "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)"
   >L>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"  
   >L>   "REPORT"
   >O>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,REPORT"
   >L>   ") CART(CARTEVEP)"  
   >O>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,REPORT) CART(CARTEVEP)"
11 *-* /**/  
12 *-* getcode = 0   
   >L>   "0" 
13 *-* Do while getcode = 0/**/  
   >V>   "0" 
   >L>   "0" 
   >O>   "1" 
14 *-*  getcode = GETMSG('salida.','SOL',CARTEVEP,,10)   
   >L>"salida."  
   >L>"SOL"  
   >L>"CARTEVEP" 
   >L>"" 
   >L>"10"   
   >F>"4"
15 *-*  If getcode = 0   
   >V>"4"
   >L>"0"
   >O>"0"
23 *-* End   
13 *-* Do while getcode = 0/**/  
   >V>   "4" 
   >L>   "0" 
   >O>   "0" 
24 *-* Do ii = 1 to wto.0
   >L>   "1" 
   >L>   "WTO.0" 
24 +++  Do ii = 1 to wto.0   
IRX0041I Error running COMANDO4, line 24: Bad arithmetic conversion  
READY
END  

Regards


5 *-* "CONSOLE ACTIVATE NAME("USERID()")"  
  >L>   "CONSOLE ACTIVATE NAME("   
  >F>   "JGARCI1"  
  >O>   "CONSOLE ACTIVATE NAME(JGARCI1"
  >L>   ")"
  >O>   "CONSOLE ACTIVATE NAME(JGARCI1)"   
6 *-* if rc <> 0   
  >V>   "0"
  >L>   "0"
  >O>   "0"

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Jesse 1 Robinson

The statement was made that GETMSG can capture any lines sent to the console, 
but I've had problems in the past retrieving responses to MODIFY commands. 
MODIFY requests a task to issue a message, but I'm not sure that the resulting 
message is necessarily recognized as a 'response' to an MVS command. 

One sequence that does work is MODIFY CATALOG,OPEN. I use that in various 
contexts, and I do get a usable response. I don't have ADABASE, so I can't test 
it. Maybe someone who has the product could verify whether this can work. 

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler 
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
robin...@sce.com


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Richards, Robert B.
Sent: Monday, September 18, 2017 9:05 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: (External):Re: GETMSG null with out ADABAS command

Jorge,

Try this logic. It completes the GETMSG logic *before* attempting the SAY

getcode = 0
Do while getcode = 0/* get console message  */
  getcode = GETMSG('salida.','SOL',Cart_V,,time_value)
  If getcode = 0 then
Do
  Do i = 1 to salida.0
 k = i + j
 wto.k = salida.i
  End
 j = j + salida.0
End
End
Do ii = 1 to wto.0
   Say wto.ii
   ii = ii + 1
 End


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Monday, September 18, 2017 4:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: GETMSG null with out ADABAS command

Hi all,

 We're trying to execute a REXX with a GETMSG statement to trap the out of 
ADABAS or event Publisher command (Software AG products). We can't trap 
anything. Below the REXX executed

TRACE I
"CONSOLE DEACTIVATE"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE NAME("USERID()")"
ADDRESS CONSOLE "F CACEPR04,CMD,CACDS,"REPORT""
msg = GETMSG(salida.,SOL,,,6)
if msg = 0 then nop
 else
  do
say 'Command error'
  exit 8
  end  /* do 11 */
do a = 1 to salida.0
  say salida.a
 end /* do */
exit

GETMSG always finishs with RC = 4. We don't know if GETMSG statement only Works 
fine with IBM applications non ISV products.

Any help would be appreciated

Regards

Jorge Garcia Juanino
Coordinador sistemas z/OS
ACTP – DIAC – Operación y Soporte EMEA
MAPFRE
Avenida del Talgo 100-103 – 3ª Planta
CP 28023 Madrid
Tel. 91 581 27 34, Movil 618333559
jgarc...@mapfre.com<mailto:jgarc...@mapfre.com>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Richards, Robert B.

Jorge,

Try this logic. It completes the GETMSG logic *before* attempting the SAY

getcode = 0
Do while getcode = 0/* get console message  */
  getcode = GETMSG('salida.','SOL',Cart_V,,time_value)
  If getcode = 0 then
Do
  Do i = 1 to salida.0
 k = i + j
 wto.k = salida.i
  End
 j = j + salida.0
End
End
Do ii = 1 to wto.0
   Say wto.ii
   ii = ii + 1
 End


-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Jorge Garcia
Sent: Monday, September 18, 2017 4:55 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: GETMSG null with out ADABAS command

Hi all,

 We're trying to execute a REXX with a GETMSG statement to trap the out of 
ADABAS or event Publisher command (Software AG products). We can't trap 
anything. Below the REXX executed

TRACE I
"CONSOLE DEACTIVATE"
"CONSPROF SOLDISP(NO) SOLNUM(400)"
"CONSOLE ACTIVATE NAME("USERID()")"
ADDRESS CONSOLE "F CACEPR04,CMD,CACDS,"REPORT""
msg = GETMSG(salida.,SOL,,,6)
if msg = 0 then nop
 else
  do
say 'Command error'
  exit 8
  end  /* do 11 */
do a = 1 to salida.0
  say salida.a
 end /* do */
exit

GETMSG always finishs with RC = 4. We don't know if GETMSG statement only Works 
fine with IBM applications non ISV products.

Any help would be appreciated

Regards

Jorge Garcia Juanino
Coordinador sistemas z/OS
ACTP – DIAC – Operación y Soporte EMEA
MAPFRE
Avenida del Talgo 100-103 – 3ª Planta
CP 28023 Madrid
Tel. 91 581 27 34, Movil 618333559
jgarc...@mapfre.com<mailto:jgarc...@mapfre.com>


--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu<mailto:lists...@listserv.ua.edu> with the message: 
INFO IBM-MAIN


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Elardus Engelbrecht

Jorge Garcia wrote:

>Hi Elardus, below I answer your questions:

>>
>I can see the message in SYSLOG
>DES1 OPERLOG  DES1 09/18/201710W   COLUMNS 01- 80  
>COMMAND INPUT ===>SCROLL ===> CSR  
>NC000 DES1 17261 16:20:04.13 JGARCI1  0290  F CACEPS71,CMD,CACDS,RE
>N 002 DES1 17261 16:20:04.13 STC09724 0090  CAC00200I CMD,CACDS,REP
>N 002 DES1 17261 16:20:04.13 STC09724 0090  CACJ001I DISTRIBUTION S
... snip ...

Ok, so you can see this. Great, you can issue and see commands and results. 

I have reviewed all the posts in this thread:

Question, did you do a check for rc after the CONSOLE ACTIVATE?

>"CONSOLE ACTIVATE NAME("USERID()")" 

I don't see any results of that CONSOL ACTIVATE command in your posted TRACE.

Can you retry your REXX with the below statements I posted earlier?

"CONSOLE ACTIVATE NAME("USERID()")" 
if rc <> 0 then
do 
 say "CONSOLE Activation problem - " rc
end 
ADDRESS CONSOLE  etc ... 

>I have a lot of región. 2096128 Kb.

Great. That should more than enough. Thanks, one issue cleared out.

HTH!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Jorge Garcia

Hi Elardus, below I answer your questions:

<>

I can see the message in SYSLOG

DES1 OPERLOG  DES1 09/18/201710W   COLUMNS 01- 80  
COMMAND INPUT ===>SCROLL ===> CSR  
NC000 DES1 17261 16:20:04.13 JGARCI1  0290  F CACEPS71,CMD,CACDS,RE
N 002 DES1 17261 16:20:04.13 STC09724 0090  CAC00200I CMD,CACDS,REP
N 002 DES1 17261 16:20:04.13 STC09724 0090  CACJ001I DISTRIBUTION S
N 002 DES1 17261 16:20:04.13 STC09724 0090  ---
N 002 DES1 17261 16:20:04.13 STC09724 0090  Change Message(s) Recei
N 002 DES1 17261 16:20:04.14 STC09724 0090  Commit Message(s) Recei
N 002 DES1 17261 16:20:04.14 STC09724 0090  Message(s) Sent = 0
N 002 DES1 17261 16:20:04.14 STC09724 0090  Message(s) Staged = (0,
N 002 DES1 17261 16:20:04.14 STC09724 0090  Total Message(s) Staged
N 002 DES1 17261 16:20:04.14 STC09724 0090  ---
N 002 DES1 17261 16:20:04.14 STC09724 0090  CACJ028I DISPLAY CURREN

<>

I have a lot of región. 2096128 Kb.

Regards

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Elardus Engelbrecht

Jorge Garcia wrote:

> Apologies. Event Publisher is an IBM product. Non a ISV. Below the trace 
> result of REXX execution with TRACE I:

Never mind. ;-)

After looking at both your two posts with Trace On, I have one question:

If you do this command just that on SDSF, can you see the results on SYSLOG or 
on the CACEPS71 output?

F CACEPS71,CMD,CACDS,REPORT

There is a JES2 $DEBUG command which shows you whether you are actually allowed 
to see the output or not.

Another question, is your REGION large enough? Increase the REGION and retry.

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Jorge Garcia

Versión with Richard's advice:

 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 *-* "CONSOLE ACTIVATE NAME("USERID()")"
   >L>   "CONSOLE ACTIVATE NAME(" 
   >F>   "JGARCI1"
   >O>   "CONSOLE ACTIVATE NAME(JGARCI1"  
   >L>   ")"  
   >O>   "CONSOLE ACTIVATE NAME(JGARCI1)" 
 6 *-* "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"REPORT") CART(CARTEVEP)" 
   >L>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,"   
   >L>   "REPORT" 
   >O>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,REPORT" 
   >L>   ") CART(CARTEVEP)"   
   >O>   "CONSOLE SYSCMD(F CACEPS71,CMD,CACDS,REPORT) CART(CARTEVEP)" 
   7 *-* /**/
   8 *-* mrc = 0 
 >L>   "0"   
   9 *-* msgindex = 0
 >L>   "0"   
  10 *-* do while mrc = 0
 >V>   "0"   
 >L>   "0"   
 >O>   "1"   
  11 *-*  mrc = GETMSG('CNSL.','SOL',CARTEVEP,,20)   
 >L>"CNSL."  
 >L>"SOL"
 >L>"CARTEVEP"   
 >L>""   
 >L>"20" 
 >F>"4"  
  12 *-*  if mrc > 0 
 >V>"4"  
 >L>"0"  
   >O>"1"  
   *-*   then  
   *-*   leave 
10 *-* do while mrc = 0
18 *-* msg.0 = msgindex
   >V>   "0"   
19 *-* do i = 1 to msg.0   
   >L>   "1"   
   >V>   "0"   
READY  
END

Regards

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Jorge Garcia

Hi Elardus,

 Apologies. Event Publisher is an IBM product. Non a ISV. Below the trace 
result of REXX execution with TRACE I:


  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 *-* "CONSOLE ACTIVATE NAME("USERID()")" 
   >L>   "CONSOLE ACTIVATE NAME("  
   >F>   "JGARCI1" 
   >O>   "CONSOLE ACTIVATE NAME(JGARCI1"   
   >L>   ")"   
   >O>   "CONSOLE ACTIVATE NAME(JGARCI1)"  
 6 *-* ADDRESS CONSOLE "F CACEPS71,CMD,CACDS,"REPORT"" 
   >L>   "F CACEPS71,CMD,CACDS,"   
   >L>   "REPORT"  
   >O>   "F CACEPS71,CMD,CACDS,REPORT" 
   >L>   ""
   >O>   "F CACEPS71,CMD,CACDS,REPORT"
 7 *-* mrc = 0
   >L>   "0"  
 8 *-* msgindex = 0   
   >L>   "0"  
 9 *-* do while mrc = 0   
   >V>   "0"  
   >L>   "0"  
   >O>   "1"  
10 *-*  mrc = GETMSG('CNSL.','UNSOL',,,3) 
   >L>"CNSL." 
   >L>"UNSOL" 
   >L>""  
   >L>""  
   >L>"3" 
   >F>"4" 
11 *-*  if mrc > 0
   >V>"4" 
   >L>"0" 
   >O>"1"  
   *-*   then  
   *-*   leave 
 9 *-* do while mrc = 0
17 *-* msg.0 = msgindex
   >V>   "0"   
18 *-* do i = 1 to msg.0   
   >L>   "1"   
   >V>   "0"   
READY  
END

Regards

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Richards, Robert B.

I agree with Elardus. My getcode looks like this:

getcode = GETMSG('issue_back.','SOL',Cart_V,,time_value)

Random CART values avoid collisions.

I supply a default time value *but* override it with a much higher value when I 
know it takes a while to get the results back from the issued command. Here is 
a snippet of my select logic:

When con_input = 'D XCF,STR,STRNAME=*' then time_value = '20'
.
.
Otherwise time_value = '5'

Bob

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of Elardus Engelbrecht
Sent: Monday, September 18, 2017 6:30 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: GETMSG null with out ADABAS command

Jorge Garcia wrote:

> We're trying to execute a REXX with a GETMSG statement to trap the out 
> of ADABAS or event Publisher command (Software AG products). We can't 
> trap anything. Below the REXX executed

>TRACE I 

Try TRACE A
Yes, you will get thousand lines and getting tired to read them, but ... ;-)

>"CONSOLE DEACTIVATE"
>"CONSPROF SOLDISP(NO) SOLNUM(400)"  
>"CONSOLE ACTIVATE NAME("USERID()")" 

Check that the name is not active somewhere in the SysPlex.

What is the result after that ACTIVATE action?

I would advise you use something like this where "cn" is truly unique:

"CONSOLE ACTIVATE NAME("cn")"  
if rc <> 0 then
do 
 say "CONSOLE Activation problem - " rc
end

You can also search IBM-MAIN. This CONSOLE has been discussed many times.

>ADDRESS CONSOLE "F CACEPR04,CMD,CACDS,"REPORT"" 

Do you see the output? Where is that output placed in the first place?
Do you have RACF authority to issue that Modify Command?

Do you have acccess via JESSPOOL RACF Class?

Also, what is the CART for your CONSOLE?

>msg = GETMSG(salida.,SOL,,,6)   

Why 6? Increase it if needed.

>GETMSG always finishs with RC = 4. 

Please post the full message of that RC. Also Check your TSO / Batch-job job 
log to see what REXX is saying about these commands.

>We don't know if GETMSG statement only Works fine with IBM applications non 
>ISV products.

GETMSG works with anything. I'm not aware of any limitations for any products. 
Whatever is placed in JES2 Spool is available for you as long you have all the 
accesses.

HTH!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

2017-09-18 Thread Elardus Engelbrecht

Jorge Garcia wrote:

> We're trying to execute a REXX with a GETMSG statement to trap the out of 
> ADABAS or event Publisher command (Software AG products). We can't trap 
> anything. Below the REXX executed

>TRACE I 

Try TRACE A
Yes, you will get thousand lines and getting tired to read them, but ... ;-)

>"CONSOLE DEACTIVATE"
>"CONSPROF SOLDISP(NO) SOLNUM(400)"  
>"CONSOLE ACTIVATE NAME("USERID()")" 

Check that the name is not active somewhere in the SysPlex.

What is the result after that ACTIVATE action?

I would advise you use something like this where "cn" is truly unique:

"CONSOLE ACTIVATE NAME("cn")"  
if rc <> 0 then
do 
 say "CONSOLE Activation problem - " rc
end

You can also search IBM-MAIN. This CONSOLE has been discussed many times.

>ADDRESS CONSOLE "F CACEPR04,CMD,CACDS,"REPORT"" 

Do you see the output? Where is that output placed in the first place?
Do you have RACF authority to issue that Modify Command?

Do you have acccess via JESSPOOL RACF Class?

Also, what is the CART for your CONSOLE?

>msg = GETMSG(salida.,SOL,,,6)   

Why 6? Increase it if needed.

>GETMSG always finishs with RC = 4. 

Please post the full message of that RC. Also Check your TSO / Batch-job job 
log to see what REXX is saying about these commands.

>We don't know if GETMSG statement only Works fine with IBM applications non 
>ISV products.

GETMSG works with anything. I'm not aware of any limitations for any products. 
Whatever is placed in JES2 Spool is available for you as long you have all the 
accesses.

HTH!

Groete / Greetings
Elardus Engelbrecht

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

GETMSG null with out ADABAS command

2017-09-18 Thread Jorge Garcia

Hi all,

 We're trying to execute a REXX with a GETMSG statement to trap the out of 
ADABAS or event Publisher command (Software AG products). We can't trap 
anything. Below the REXX executed

TRACE I 
"CONSOLE DEACTIVATE"
"CONSPROF SOLDISP(NO) SOLNUM(400)"  
"CONSOLE ACTIVATE NAME("USERID()")" 
ADDRESS CONSOLE "F CACEPR04,CMD,CACDS,"REPORT"" 
msg = GETMSG(salida.,SOL,,,6)   
if msg = 0 then nop 
 else   
  do
say 'Command error'  
  exit 8
  end  /* do 11 */  
do a = 1 to salida.0
  say salida.a  
 end /* do */   
exit

GETMSG always finishs with RC = 4. We don't know if GETMSG statement only Works 
fine with IBM applications non ISV products.

Any help would be appreciated

Regards

Jorge Garcia Juanino
Coordinador sistemas z/OS
ACTP – DIAC – Operación y Soporte EMEA
MAPFRE 
Avenida del Talgo 100-103 – 3ª Planta
CP 28023 Madrid
Tel. 91 581 27 34, Movil 618333559 
jgarc...@mapfre.com


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

Re: GETMSG null with out ADABAS command

GETMSG null with out ADABAS command

31 matches

Site Navigation

Mail list logo

Footer information