| View previous topic :: View next topic |
| Author |
Message |
coolman
Intermediate
Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US
|
 Posted: Thu Aug 14, 2003 1:09 am Post subject: LINK Program |
 |
|
Folks,
This is a REXX code that I have written without any success.
| Code: |
"ALLOC FI(SYSPRINT) DA(*)"
"ALLOC FI(SYSOUT) DA(*)"
"ALLOC FI(REPORT) DA('USERID.OUTPUT') SHR REUSE"
"ALLOC FI(SYSIN) DA('USERID.SYSIN') SHR REUSE"
PARM1=X2C(0000)X2C(01)X2C(02)
PARM2='SARBCH'
PARM3=D2C(4,4)
PARM4=D2C(0,4)
PARM5=D2C(0,4)
PARM6=D2C(0,4)
ADDRESS LINKPGM "IKJEFTSR PARM1 PARM2 PARM3 PARM3 PARM5 PARM6"
IF RC<>0 THEN SAY 'RC='RC 'FROM ADDRESS LINKPGM'
|
Im getting a Return code of 20.
I have also tried this :
ADDRESS LINKMVS SARBCH instead of IKJEFTSR, but did not help me either.
I want to try the Call, but unfortunately, Im not able to locate the PDS where SARBCH program is present.(SARBCH is a batch reporting program for the jobs in SAR)
Im not able to figure out the problem. Expecting your inputs.
Cheers,
Coolman.
________
buy vaporizer
Last edited by coolman on Sat Feb 05, 2011 1:26 am; edited 1 time in total |
|
| Back to top |
|
 |
Dibakar
Advanced
Joined: 02 Dec 2002
Posts: 702
Topics: 64
Location: USA
|
| Posted: Fri Aug 22, 2003 6:15 am Post subject: |
|
|
| I don't know the problem but think the parms should be without quotes in "ADRESS LINK..." statement. |
|
| Back to top |
|
|
Bithead
Advanced
Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA
|
| Posted: Fri Aug 22, 2003 3:44 pm Post subject: |
|
|
SARBCH may be loaded into linklist. Issue TSO command ISRDDN, then enter LPA to add Linklist libraries. Look under LINKLIST for something like SYS1.CAI.LOADLIB.
Also, when calling SARBCH, I believe it reqiures the SAR parameter. |
|
| Back to top |
|
|
coolman
Intermediate
Joined: 03 Jan 2003
Posts: 283
Topics: 27
Location: US
|
| Posted: Sat Aug 23, 2003 1:09 am Post subject: |
|
|
Bithead,
Thanks for your reply. I apologise for not having updated my earlier post. I had figured out the library "SYS1.CAI.LOADLIB" where SARBCH is present. But the problem is a little different now. This is a modified REXX code which again didnt work.
| Code: |
/* REXX - SPN */
"ALLOC FI(SYSPRINT) DA(*)"
"ALLOC FI(SYSOUT) DA(*)"
"ALLOC FI(REPORT) DA('USERID.OUTPUT') SHR REUSE"
"ALLOC FI(SYSIN) DA('USERID.SYSIN') SHR REUSE"
"CALL 'SYS1.CAI.LOADLIB(SARBCH)' "
|
But this time, it abends out with a S047 (an unauthorised instruction trying to execute a SVC). Again the problem is still open..
Expecting your reply on this..
Cheers,
Coolman.
________
simmering food |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
