I'm trying to run INFO/MANAGEMENT to get a report for my manager in a
batch job (instead of doing it manually on TSO).  I can generate this
report just fine from my TSO/ISPF logon, but I cannot get it to run in
batch at all.

The job gets a U896 abend from INFOMAN, which when I looked up the error
in the INFOMAN Messages & Codes manual says this:

   896       X'380'

Explanation: BLX Services initialization error. The reason code provided
in a preceding message or in register 15 of the dump identifies the
specific type of error encountered. The reason codes and their meanings
follow:

And R15 in the dump is X'A8', which the manual says is:

168 (X'0A8')
Error building pseudo ACEE.

So it looks like it might be a security error of some kind, but there
are no security messages in the job output at all (we use TSS here).

These are the INFO/MANAGEMENT commands I'm trying to run in batch:

SE SP**/DIRDEV4 STAC/OPEN DATD/2008/05/12 - 2008/06/13
REPORT
8
DVHCHANGE
1
END
QUIT

Can anyone tell me what I am doing wrong here?

My JCL is as follows:

//TSOUSERZ JOB (DT00,9FLR),'FARLEY-9FLR',                
//             CLASS=W,MSGCLASS=X,NOTIFY=&SYSUID
//OUTPUT   OUTPUT DEFAULT=Y,JESDS=ALL,DEST=LASER,UCS=GT15
//*                                                      
//********************************************************************
//* DELETE SPFPROF PDS FOR BATCH INFOMAN RUNS                         
//********************************************************************
//DELPROF  EXEC PGM=IEFBR14                                           
//SPFPROF  DD  DISP=(MOD,DELETE,DELETE),DSN=&SYSUID..TSOUSER.SPFPROF, 
//             SPACE=(0,0)                                            
//*                                                                   
//********************************************************************
//* CREATE SPFPROF PDS FOR BATCH INFOMAN RUNS FROM INFOIDS COPY       
//********************************************************************
//COPYPROF EXEC PGM=IEBCOPY                                           
//SYSPRINT DD  SYSOUT=*                                               
//SYSUT1   DD  DISP=SHR,DSN=&SYSUID..SPFPROF                           
//SYSUT2   DD  DISP=(NEW,CATLG,DELETE),DSN=&SYSUID..TSOUSER.SPFPROF,  
//             UNIT=TEST,SPACE=(TRK,(15,15,44),RLSE),                 
//             DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0                   
//SYSUT3   DD  UNIT=SYSDA,SPACE=(CYL,(5,5))                           
//SYSUT4   DD  UNIT=SYSDA,SPACE=(CYL,(5,5))                           
//SYSIN    DD  DUMMY                                                  
//*                                                                   
//********************************************************************
//* RUN BATCH INFOMAN REPORT                                          
//********************************************************************
//INFOMAN  EXEC PGM=IKJEFT01,DYNAMNBR=50                        
//ISPPROF  DD  DSN=&SYSUID..TSOUSER.SPFPROF,DISP=OLD           
//SYSEXEC  DD  DSN=SYS1.SISPEXEC,DISP=SHR                      
//SYSPROC  DD  DSN=SYS1.CLISTLIB,DISP=SHR                      
//         DD  DSN=SYS1.SISPCLIB,DISP=SHR                      
//ISPPLIB  DD  DSN=SYIP.INFO71.PANELS,DISP=SHR                 
//         DD  DSN=SYS1.SISPPENU,DISP=SHR                      
//ISPMLIB  DD  DSN=SYS1.SISPMENU,DISP=SHR                      
//ISPSLIB  DD  DSN=SYS1.SISPSENU,DISP=SHR                      
//         DD  DSN=SYS1.SISPSLIB,DISP=SHR                      
//ISPTLIB  DD  DSN=SYS1.SISPTENU,DISP=SHR                      
//ISPLOG   DD  SYSOUT=*,                                       
//             DCB=(LRECL=125,BLKSIZE=129,RECFM=VA)            
//ISPLIST  DD  SYSOUT=*,                                       
//             DCB=(LRECL=121,BLKSIZE=121,RECFM=FA)            
//SYSPRINT DD  SYSOUT=*                                        
//SYSTSPRT DD  SYSOUT=*                                        
//SYSTSIN  DD  *                                               
  ISPSTART PGM(BLGINIT) PARM(SESS(02) +          
  IRC(SE SP**/DIRDEV4 STAC/OPEN DATD/2008/05/12 - 2008/06/13, +
  REPORT,8,DVCHANGE,1,END,QUIT))                                  
//*                                                            
//BLGRPTS  DD  SYSOUT=*,                                       
//             DCB=(DSORG=PS,RECFM=FB,LRECL=133,BLKSIZE=133)   
//*                                                            

Thanks in advance for your help.

Peter   
This message and any attachments are intended only for the use of the addressee 
and
may contain information that is privileged and confidential. If the reader of 
the 
message is not the intended recipient or an authorized representative of the
intended recipient, you are hereby notified that any dissemination of this
communication is strictly prohibited. If you have received this communication in
error, please notify us immediately by e-mail and delete the message and any
attachments from your system.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to