MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Submitting a batch job thru IMS DC program
Goto page Previous  1, 2
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS
View previous topic :: View next topic  
Author Message
Bithead
Advanced


Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA
PostPosted: Mon May 15, 2006 8:44 am    Post subject: Reply with quote
This sounds like a security error. Check that the MPP region has access to write to the JES spool.
Back to top
View user's profile Send private message
Sreejith
Intermediate


Joined: 02 Dec 2002
Posts: 155
Topics: 25
Location: N.Ireland
PostPosted: Wed Jun 14, 2006 3:00 am    Post subject: Reply with quote
I still didn't manage to get the JCL submitted from IMS online. I contacted the sysprogs and they talked to IBM. the answer from IBM is that this may not be possible using API.

Does anyone tried this successfuly ?

Bithead,
PMed you the reply I got from IBM(don't want to put it on the forum). Do the points made by IBM make any sense to you ?

Thanks
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
Bithead
Advanced


Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA
PostPosted: Wed Jun 14, 2006 9:31 am    Post subject: Reply with quote
Sreejith,

I tried this some years ago but I don't remember everything I did and I can't try it now.

Do you have access to a DB2 stored procedure?
Back to top
View user's profile Send private message
Sreejith
Intermediate


Joined: 02 Dec 2002
Posts: 155
Topics: 25
Location: N.Ireland
PostPosted: Thu Jun 15, 2006 3:13 am    Post subject: Reply with quote
Bithead,
thanks for the reply. I don't have DB2 here. I tried the following code from an IMS transaction and this worked. I was under the impression that it is not possible to use INTRDR in IMS transaction as we do in batch. But look like I was wrong.

Code:

IDENTIFICATION DIVISION.                                               
                                                                       
PROGRAM-ID.  JCLSUB.                                                 
                                                                       
AUTHOR. SREEJITH PILLAI  .                                             
                                                                       
DATE-COMPILED.                                                         
                                                                       
                                                                       
ENVIRONMENT DIVISION.                                                 
CONFIGURATION SECTION.                                                 
                                                                       
  SOURCE-COMPUTER. IBM-370.                                           
  SOURCE-COMPUTER. IBM-S390                 DEBUGGING MODE.           
  OBJECT-COMPUTER. IBM-370.                                           
INPUT-OUTPUT SECTION.                                                 
                                                                       
FILE-CONTROL.                                                         
                                                                       
    SELECT CNTRL-FILE            ASSIGN INTRDR                         
                                 STATUS CNTRL-STATUS.                 
                                                                       
                                                                       
*****************************************************************     
                                                                       
DATA DIVISION.                                                         
FILE SECTION.                                                         
                                                                       
FD  CNTRL-FILE                                                         
    BLOCK CONTAINS 0                                                   
    LABEL RECORDS STANDARD                                             
    RECORDING MODE F.                                                 
01  CNTRL-RECORD                 PIC X(80).                           
                                                                     
WORKING-STORAGE SECTION.                                             
01  WS-FILE-STATUS-ITEMS.                                             
    COPY FILESTAT            REPLACING =='FILENAME'==                 
                                    BY ==CNTRL-==.                   
                                                                     
01  FILLER                           PIC X(46) VALUE                 
         'PROGRAM M00111A9 - WORKING STORAGE STARTS HERE'.           
                                                                     
01 WS-FIELDS.                                                         
   05 WS-TRANS-NAME           PIC X(08)   VALUE SPACES.               
                                                                     
01  WS-FEEDBACK.                                                     
    05  FB-LL                               PIC S9(4) COMP.           
    05  FB-ZZ                               PIC S9(4) COMP.           
    05  FB-CODE                             PIC X(02) VALUE ' '.     
    05  FILLER                              PIC X(40) VALUE ' '.     
                                                                     
01  WS-INPUT-MSG                            PIC X(400).               
                                                                     
01 WS-88-FIELDS.                                                     
   05 WS-INP-MSG-STS          PIC X(01)   VALUE SPACES.               
      88 EOF-INPUT-MSG        VALUE 'Y'.                             
   05 WS-ERR-STS              PIC X(01)   VALUE SPACES.               
      88 ERROR-FOUND          VALUE 'Y'.                             
   05 WS-ISRT-STS             PIC X(01)   VALUE SPACES.               
      88 INSERT-TO-MPP-OK     VALUE 'Y'.                             
      88 INSERT-TO-MPP-NOT-OK VALUE 'N'.                             
   05 WS-ISRT-STS             PIC X(01)   VALUE SPACES.               
      88 CHANGE-OK            VALUE 'Y'.                             
      88 CHANGE-NOT-OK        VALUE 'N'.                             
   05 WS-SAME-PR-PO-STS       PIC X(01)   VALUE SPACES.               
      88 SAME-PR-PO           VALUE 'Y'.                             
      88 NOT-SAME-PR-PO       VALUE 'N'.                             
                                                                     
01  WS-OPTIONS.                                                       

    05 OP-LL                        PIC S9(4) COMP VALUE 26.           
    05 OP-ZZ                        PIC S9(4) COMP VALUE ZEROES.       
    05 FILLER                       PIC X(22)                         
       VALUE 'IAFP=M1M,OUTN=PRNTDUMP'.                                 
                                                                       
01  DLI-CALL-FUNCTIONS.                                               
    05 GU                     PIC X(4)    VALUE 'GU  '.               
    05 GN                     PIC X(4)    VALUE 'GN  '.               
    05 GNP                    PIC X(4)    VALUE 'GNP '.               
    05 GHU                    PIC X(4)    VALUE 'GHU '.               
    05 GHNP                   PIC X(4)    VALUE 'GHNP'.               
    05 ISRT                   PIC X(4)    VALUE 'ISRT'.               
    05 DLET                   PIC X(4)    VALUE 'DLET'.               
    05 REPL                   PIC X(4)    VALUE 'REPL'.               
    05 CHNG                   PIC X(4)    VALUE 'CHNG'.               
    05 PURG                   PIC X(4)    VALUE 'PURG'.               
                                                                       
01 WS-HOLD-AREA.                                                       
   05  OM-LL                  PIC S9(4) COMP VALUE 141.               
   05  OM-ZZ                  PIC S9(4) COMP VALUE ZEROES.             
   05  OM-LL2                 PIC S9(4) COMP VALUE 137.               
   05  OM-ZZ2                 PIC S9(4) COMP VALUE ZEROES.             
   05  WS-JCL-LINE            PIC X(80).                               
                                                                       
                                                                       
----------------------------------------------------------------*     
 LINKAGE SECTION                                                *     
----------------------------------------------------------------*     
LINKAGE SECTION.                                                       
                                                                       
01  DUMMY-IO-PCB.                                                     
COPY 'DUMIOPCB'.                                                       
                                                                       
01 JCLMOD-PCB.                                                         
   05 FILLER                 PIC X(08).                               
   05 FILLER                 PIC X(02).                               
   05 JCLMOD-STATUS-CODE     PIC X(02).                               
    05 FILLER                 PIC X(20).                               
*                                                                       
*=================================================================     
*            P R O C E D U R E   D I V I S I O N                 *     
*=================================================================     
*                                                                       
 PROCEDURE DIVISION                   USING DUMMY-IO-PCB               
                                            JCLMOD-PCB.                 
*                                                                       
DDECLARATIVES.                                                         
DREADY-TRACE                    SECTION.                               
D    USE     DEBUGGING ALL PROCEDURES.                                 
*DSHOW-PROCEDURE-NAME.                                                 
D    DISPLAY DEBUG-NAME ',' DEBUG-CONTENTS                             
D          .                                                           
DEND DECLARATIVES.                                                     
DREMAINDER-OF-PROGRAM          SECTION.                                 
******************************************************************     
*         MAIN SECTION                                           *     
******************************************************************     
 0100-MAIN  SECTION.                                                   
                                                                       
     PERFORM 1000-INITIAL-PROCESS                                       
                                                                       
     IF CNTRL-NORMAL                                                   
        PERFORM 2000-PROCESS-RECS                                       
     END-IF                                                             
     PERFORM 7000-FINAL-PROCESS                                         
     .                                                                 
*----------------------------------------------------------------*     
*  INITIAL PROCESS                                               *     
*----------------------------------------------------------------*     
 1000-INITIAL-PROCESS SECTION.                                         
                                                                       
     DISPLAY 'JCL SUBMIT TEST'                                         
                                                                       
     CALL 'CBLTDLI' USING GU                                           
                          DUMMY-IO-PCB                                 
                          WS-INPUT-MSG                                 
     DISPLAY 'JCL SUBMIT'                                               
                                                                       
     MOVE +141 TO OM-LL                                                 
     MOVE +0   TO OM-ZZ                                                 
     MOVE +137 TO OM-LL2                                               
     MOVE +0   TO OM-ZZ2                                               
     MOVE +26  TO OP-LL                                                 
     MOVE +0   TO OP-ZZ                                                 
     MOVE +48  TO FB-LL                                                 
     MOVE +0   TO FB-ZZ                                                 
                                                                       
     MOVE 'PRNTDUMP' TO WS-TRANS-NAME                                   
                                                                       
     PERFORM 1200-CHANGE-TO-JCLMPP                                     
     .                                                                 
*----------------------------------------------------------------*     
*  CHANGE TO EPRO MPP                                            *     
*----------------------------------------------------------------*     
 1200-CHANGE-TO-JCLMPP SECTION.                                         
                                                                       
     OPEN OUTPUT CNTRL-FILE                                             
                                                                       
     IF CNTRL-NORMAL                                                   
        CONTINUE                                                       
     ELSE                                                               
        DISPLAY 'INTRDR OPEN FAILED : ' CNTRL-STATUS                   
     END-IF                                                             
     .                                                                 
*----------------------------------------------------------------*     
*  PROCESS RECS                                                  *     
*----------------------------------------------------------------*     
 2000-PROCESS-RECS    SECTION.                                         
                                                                       
     MOVE                                                               
      \"//XXXXXXX JOB (1,DRY,TK7517,00,42,SNUMB),'PC202,PILLAI',\"       

        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"//        CLASS=F,NOTIFY=&SYSUID,MSGCLASS=H\"                     
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"//JOBLIB   DD DSN=IMSVS.PGMLIB.RSGD,DISP=SHR\"                   
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"//SEND2TST     EXEC PGM=FTP,REGION=5M,TIME=90,\"                 
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"//             PARM='(EXIT=77 TIMEOUT 720'\"                     
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"//SYSPRINT     DD   SYSOUT=*\"                                   
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"//SYSOUT       DD   SYSOUT=*\"                                   
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"//SYSUDUMP     DD   SYSOUT=*\"                                   
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
      MOVE \"//ABENDAID     DD   SYSOUT=*\"                               
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"//SYSIN        DD * \"                                           
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"159.60.255.248\"                                                 
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"oracle\"                                                         
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"derry234box\"                                                     
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"cd /apps2\"                                                       
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
     MOVE                                                               
      \"put 'lib1.jcl.prodrsg(h23776d9)'\"                               
        TO WS-JCL-LINE                                                 
       PERFORM 3000-SEND-TO-MPP                                         
                                                                       
     .                                                                 
*----------------------------------------------------------------*     
*  ISRT JCLMPP                                                   *     
*----------------------------------------------------------------*     
 3000-SEND-TO-MPP  SECTION.                                             
                                                                       
     WRITE CNTRL-RECORD FROM WS-JCL-LINE                               
                                                                       
     IF CNTRL-NORMAL                                                   
        CONTINUE                                                       
     ELSE                                                               
        DISPLAY 'WRITE ERROR : ' CNTRL-STATUS                           
                                                                       
     .                                                                 
*----------------------------------------------------------------*     
*  FINAL PROCESS                                                 *     
*----------------------------------------------------------------*     
 7000-FINAL-PROCESS   SECTION.                                         
     DISPLAY '**************************************'                   
     DISPLAY '**         CONTROL REPORT          ***'                   
     DISPLAY '**************************************'                   
     GOBACK                                                             
     .                                                                 


pls ignore the naming convention used for some of the section names and some of the redundant fields.
Back to top
View user's profile Send private message Send e-mail Yahoo Messenger
Bithead
Advanced


Joined: 03 Jan 2003
Posts: 550
Topics: 23
Location: Michigan, USA
PostPosted: Thu Jun 15, 2006 9:50 am    Post subject: Reply with quote
Sreejith,

Are yuo sure that you are running this program as a transaction (MPP)? It is coded as a BMP.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS All times are GMT - 5 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group