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

Reply via email to