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=0000 ASID=0040 :> PSW AT TIME OF ERROR 078D0000 99D0C432 ILC 2 INTC 6B :> ACTIVE LOAD MODULE ADDRESS=19D00000 OFFSET=0000C432 :> NAME=AXRINPVT :> DATA AT PSW 19D0C42C - 5810D130 0A6BD713 D130D130 :> AR/GR 0: 00000000/19DA5C90 1: 00000000/0000000C :> 2: 0101003B/00000000 3: 00000000/D6D7C5D5 :> 4: 0101003B/00FC4100 5: 0101003B/00000000 :> 6: 0101003B/7F583000 7: 00000000/19D0C320 :> 8: 00000000/7F586000 9: 01010039/00003000 :> A: 0101003B/7F583006 B: 00000000/042CE8A8 :> C: 00000000/19D0CA14 D: 00000000/7F583100 :> E: 00000000/7F583000 F: 00000000/7F583320 :> END OF SYMPTOM DUMP :>AXR0500I AXREXX OUTPUT DISPLAY 649 :>EXECNAME=IOCP REQTOKEN=0000400000000000C978BA1F0FE1F0E2 :>. :>. :>IRX0250E System abend code 047, reason code 00000000. :>IRX0004I Error running IOCP, line 12: Program interrupted :>AXR0203I AXREXX INVOCATION OF IOCP FAILED. 651 :>RETCODE=00000010 RSNCODE=042A1001 :>REQTOKEN=0000400000000000C978BA1F0FE1F0E2 :>DIAG1=00000000 DIAG2=00000000 DIAG3=00000000 DIAG4=00000000 :>" :> :>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
