INZUTILB using rexx

Venkat1001 · New User Joined: 25 Feb 2008 Posts: 12 Location: chennai

Does any one know how to call INZUTILB utility in rexx?

superk · Posted: Tue Feb 01, 2011 6:40 pm

If youn REXX exec is running in a TSO address space, then, from what I can tell, you'd do it the same way you would from a TSO prompt.

Venkat1001 · New User Joined: 25 Feb 2008 Posts: 12 Location: chennai

thnx. I was trying this command
ADDRESS TSO
"CALL 'DB2D.PSYSB.P.D01G.SINZLINK(INZUTILB)' 'D01G' "
SAY 'RC AFTER CALL' RC
but getting rc=16.
I have allocated this library to steplib also but no luck.

daveporcelan · Posted: Tue Feb 01, 2011 10:41 pm

Did you allocate all the needed DD statements?

See this link on how they ran it from batch.

http://ibmmainframes.com/about45829.html

Venkat1001 · New User Joined: 25 Feb 2008 Posts: 12 Location: chennai

yes i did. Please find my code below.
DSN1 = 'R008534.DEXTB.HELLOT1';
DSN2 = 'R008534.DEXTB.HELLOT2';
DSN4 = 'R008534.DEXTB.HELLOT4';
DSN3 = 'R008534.DEXTB.HELLOT3';
K = SYSDSN("'"DSN1"'")
IF K = 'OK' THEN
"ALLOC DD(SYSIN) DA('"DSN1"') SHR REUSE"
ELSE
"ALLOC DD(SYSIN) DA('"DSN1"') NEW DSORG(PS)",
"RECFM(F B) LRECL(80) SPACE(1,1)";
K = SYSDSN("'"DSN2"'")
IF K = 'OK' THEN
"ALLOC DD(SYSPRINT) DA('"DSN2"') SHR REUSE"
ELSE
"ALLOC DD(SYSPRINT) DA('"DSN2"') NEW DSORG(PS)",
"RECFM(F B) LRECL(80) SPACE(1,1)";
K = SYSDSN("'"DSN3"'")
IF K = 'OK' THEN
"ALLOC DD(MYOUT) DA('"DSN3"') SHR REUSE"
ELSE
"ALLOC DD(MYOUT) DA('"DSN3"') NEW DSORG(PS)",
"CYL RECFM(F B) LRECL(80) SPACE(500,500)";
SAY 1
SAY 2
SQL.1 = "UNLOAD TABLESPACE CAADB026.CAATS399 "
SQL.2 = " DB2 NO "
SQL.3 = " QUIESCE NO QUIESCECAT NO "
SQL.4 = " LOCK NO "
SQL.5 = " SELECT "
SQL.6 = " MSG_ID "
SQL.7 = " ,VERSION_ID "
SQL.8 = " ,INPUT_OUTPUT_IND "
SQL.9 = " FROM CAADB026.CAA_MSG_SIM "
SQL.10= "OUTDDN (MYOUT) "
SQL.11= "FORMAT DSNTIAUL "
SQL.0 = 11
SAY 3
"EXECIO * DISKW SYSIN (STEM SQL. FINIS)"
ADDRESS TSO
DSN6= 'DB2D.PSYSB.P.D01G.SINZLINK('||INZUTILB||')'
"CALL '"DSN6"' 'D01G'"
SAY 'RC AFTER CALL' RC
SAY 123
"FREE F(SYSIN SYSPRINT MYOUT )";
exit

dick scherrer · Posted: Tue Feb 01, 2011 10:57 pm

Hello,

What is shown when you run a trace?

daveporcelan · Posted: Tue Feb 01, 2011 10:58 pm

Did you get this to work in Batch (without rexx)?

I would try to do that first.

I would also make sure all the DDs required in batch are allocted in your rexx.

Venkat1001 · New User Joined: 25 Feb 2008 Posts: 12 Location: chennai

Other than this i dont see any error
>O> "CALL 'DB2D.PSYSB.P.D01G.SINZLINK(INZUTILB)' 'D01G'"
+++ RC(16) +++

Venkat1001 · New User Joined: 25 Feb 2008 Posts: 12 Location: chennai

It works in batch but i want to run this utility using Rexx.

daveporcelan · Posted: Tue Feb 01, 2011 11:48 pm

So what does your JCL for your batch run look like?

Does the results of the run show in one of the DDs there?

What does the results in the same DD look like in you Rexx run?

Do you get where I am going with this?

Venkat1001 · New User Joined: 25 Feb 2008 Posts: 12 Location: chennai

Yes. When i submit through jcl i use PGM=INZUTILB and it works fine.
But when i call the same program though rexx it gives me some error.
I think since INZUTILB is assembly langauge program rexx is giving some error(not sure).
The below is my batch jcl
//CAAPS010 EXEC PGM=INZUTILB,REGION=0M,DYNAMNBR=99,
// PARM='D01G'
//*
//STEPLIB DD DSN=DB2D.PSYSB.P.D01G.SINZLINK,DISP=SHR
// DD DSN=DB2D.PSYSB.P.D01G.SDSNEXIT,DISP=SHR
// DD DSN=DB2D.PSYSB.P.D01G.SDSNLOAD,DISP=SHR
//*
//MYOUT DD DSN=R008534.SEXTB.CAAHPU05.DB18.TC01,
// DISP=(NEW,CATLG,KEEP),
// SPACE=(CYL,(500,500),RLSE),
// UNIT=SYSDA,BUFNO=30
//*
//*
//SYSPRINT DD DSN=R008534.DEXTB.HELLOT2,DISP=SHR
//SYSIN DD DSN=R008534.DEXTB.HELLOT1,DISP=SHR

daveporcelan · Posted: Wed Feb 02, 2011 12:42 am

Make sure your STEPLIB DD is allocated to all three libraries above.

Try changing your call to "CALL *(INZUTILB)"

Venkat1001 · New User Joined: 25 Feb 2008 Posts: 12 Location: chennai

it didnt work.

dick scherrer · Posted: Wed Feb 02, 2011 1:46 am

Hello,

Then you'd best fix it. . .

If you want help, you cannot post "if didn't work". This is just a waste of everyone's time.

Post the code that fails but has the proper steplib datasets allocated.

Venkat1001 · New User Joined: 25 Feb 2008 Posts: 12 Location: chennai

Please find my code below. I am also attaching the trace

daveporcelan · Posted: Wed Feb 02, 2011 2:27 am

dick scherrer · Posted: Wed Feb 02, 2011 2:40 am

Hello,

Mickeydusaor · Posted: Wed Feb 02, 2011 4:28 am

What part of this did you not understand.

"Make sure your STEPLIB DD is allocated to all three libraries above"

enrico-sorichetti · Posted: Wed Feb 02, 2011 4:46 am

the steplib <thing> might be a legal command...
there are add on tools some of them free other for a fee
that provide a dynamic steplib facility.

You cannot allocate a steplib under TSO
the steplib is allocated before the program in the stepp gets executed

to allocate dynamically a steplib there is quite a bit od control block mangling to be done
but if the tool is written in the proper way it works very well.

so

dick scherrer · Posted: Wed Feb 02, 2011 8:25 am

Hello,

Is this rexx to run under tso in batch?

If it is, the tso joblib/steplib could be changed to include these datasets.