Calling B92 from REXX
Page 1 of 1
Calling B92 from REXX
Hi - I have been playing with this for an hour and just going round in circles.
We have a utility program that pulls some stats from B92.
At the moment it's in a clumsy JCL proc with a mass of wraparound but the actual invocation is...
Code:
//REPORTS EXEC PGM=BSS01RFF,
// PARM=('S=92,B01LST=00,B92LST=00','PGM=B92BFJBR')
I am trying to wrap it all together by imbedding this call inside a REXX wrapper.
Normally one would call a program as:
Code:
pgm = BSS01RFF
prm = ???
ADDRESS TSO "CALL *("STRIP(pgm")" prm,"T")
but assigning the prm value is causing me grief. Any suggestions?!
My last attempt gave me...
Code:
8 *-* pgm = 'BSS01RFF'
>L> "BSS01RFF"
9 *-* p1 = "'S=92,B01LST=00,B92LST=00'"
>L> "'S=92,B01LST=00,B92LST=00'"
10 *-* p2 = "'PGM=B92BFJBR'"
>L> "'PGM=B92BFJBR'"
11 *-* parms = p1","p2
>V> "'S=92,B01LST=00,B92LST=00'"
>L> ","
>O> "'S=92,B01LST=00,B92LST=00',"
>V> "'PGM=B92BFJBR'"
>O> "'S=92,B01LST=00,B92LST=00','PGM=B92BFJBR'"
12 *-* ADDRESS TSO "CALL *(BSS01RFF)" p1","p2
>L> "CALL *(BSS01RFF)"
>V> "'S=92,B01LST=00,B92LST=00'"
>O> "CALL *(BSS01RFF) 'S=92,B01LST=00,B92LST=00'"
>L> ","
>O> "CALL *(BSS01RFF) 'S=92,B01LST=00,B92LST=00',"
>V> "'PGM=B92BFJBR'"
>O> "CALL *(BSS01RFF) 'S=92,B01LST=00,B92LST=00','PGM=B92BFJBR'"
INVALID KEYWORD, 'PGM=B92BFJBR'
+++ RC(12) +++
/S
We have a utility program that pulls some stats from B92.
At the moment it's in a clumsy JCL proc with a mass of wraparound but the actual invocation is...
Code:
//REPORTS EXEC PGM=BSS01RFF,
// PARM=('S=92,B01LST=00,B92LST=00','PGM=B92BFJBR')
I am trying to wrap it all together by imbedding this call inside a REXX wrapper.
Normally one would call a program as:
Code:
pgm = BSS01RFF
prm = ???
ADDRESS TSO "CALL *("STRIP(pgm")" prm,"T")
but assigning the prm value is causing me grief. Any suggestions?!
My last attempt gave me...
Code:
8 *-* pgm = 'BSS01RFF'
>L> "BSS01RFF"
9 *-* p1 = "'S=92,B01LST=00,B92LST=00'"
>L> "'S=92,B01LST=00,B92LST=00'"
10 *-* p2 = "'PGM=B92BFJBR'"
>L> "'PGM=B92BFJBR'"
11 *-* parms = p1","p2
>V> "'S=92,B01LST=00,B92LST=00'"
>L> ","
>O> "'S=92,B01LST=00,B92LST=00',"
>V> "'PGM=B92BFJBR'"
>O> "'S=92,B01LST=00,B92LST=00','PGM=B92BFJBR'"
12 *-* ADDRESS TSO "CALL *(BSS01RFF)" p1","p2
>L> "CALL *(BSS01RFF)"
>V> "'S=92,B01LST=00,B92LST=00'"
>O> "CALL *(BSS01RFF) 'S=92,B01LST=00,B92LST=00'"
>L> ","
>O> "CALL *(BSS01RFF) 'S=92,B01LST=00,B92LST=00',"
>V> "'PGM=B92BFJBR'"
>O> "CALL *(BSS01RFF) 'S=92,B01LST=00,B92LST=00','PGM=B92BFJBR'"
INVALID KEYWORD, 'PGM=B92BFJBR'
+++ RC(12) +++
/S
kasthuri- Posts : 212
Join date : 2013-01-27
Similar topics
» CLIST or REXX ?? which one would be better
» How to get REXX RC under TSO-BATCH
» Retreive return code(Maxcc) of job thru Rexx
» Who is calling?
» CALLING PGM name
» How to get REXX RC under TSO-BATCH
» Retreive return code(Maxcc) of job thru Rexx
» Who is calling?
» CALLING PGM name
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|