TSO requires it to be in AUTHPGM.
Try placing TSOEXEC before the word CALL
On Wed, 25 Apr 2012 02:16:34 -0500 Ed Mackmahon dropip...@gmail.com wrote:
:Hi List.
:
:
:I want to created an HCD report running from a system REXX environment
:
:The idea is to generate the report from the rexx, analyzing it and the issue
some
:operator commands and analyze the output etc... (that is the reason I want to
sysem
:rexx environment).
:
:As I know, the Rexx Script running under system rexx must me APF authorized
:I tried calling CBDMGHCP program from the script and got S047 (not APF
authorized)
:
:Tried using call *(XX), with / without inserting the program to AUTHTSF,
AUTHPGM ikjtsoxx member
:Added to the APF list everything I could think about (sys1.nucleus,
sys1.scbd*) etc...
:
:Still Getting 047 abend.
:
:
:The Rexx:
:
:/* Rexx */
:address tso
:alloc fi(HCDIODFS) da(sys1.iodf00) shr reu
:alloc fi(HCDRPT) da(SED.hcd.out) old reu
:alloc fi(HCDMLOG) da(SED.hcd.log) old reu
:call *(CBDMGHCP) 'REPORT, MEN ,'
:exit 0
:
:The output:
:SYSTEM COMPLETION CODE=047
: TIME=01.54.55 SEQ=00302 CPU= ASID=0040
: PSW AT TIME OF ERROR 078D 99D0C432 ILC 2 INTC 6B
: ACTIVE LOAD MODULE ADDRESS=19D0 OFFSET=C432
: NAME=AXRINPVT
: DATA AT PSW 19D0C42C - 5810D130 0A6BD713 D130D130
: AR/GR 0: /19DA5C90 1: /000C
: 2: 0101003B/ 3: /D6D7C5D5
: 4: 0101003B/00FC4100 5: 0101003B/
: 6: 0101003B/7F583000 7: /19D0C320
: 8: /7F586000 9: 01010039/3000
: A: 0101003B/7F583006 B: /042CE8A8
: C: /19D0CA14 D: /7F583100
: E: /7F583000 F: /7F583320
: END OF SYMPTOM DUMP
:AXR0500I AXREXX OUTPUT DISPLAY 649
:EXECNAME=IOCP REQTOKEN=4000C978BA1F0FE1F0E2
:.
:.
:IRX0250E System abend code 047, reason code .
:IRX0004I Error running IOCP, line 12: Program interrupted
:AXR0203I AXREXX INVOCATION OF IOCP FAILED. 651
:RETCODE=0010 RSNCODE=042A1001
:REQTOKEN=4000C978BA1F0FE1F0E2
:DIAG1= DIAG2= DIAG3= DIAG4=
:
:
:Any Ideas?
:
:Thanks in advanced.
:Ed.
:
:--
:For IBM-MAIN subscribe / signoff / archive access instructions,
:send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
--
Binyamin Dissen bdis...@dissensoftware.com
http://www.dissensoftware.com
Director, Dissen Software, Bar Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
