Topic
3 replies Latest Post - ‏2009-07-22T02:42:01Z by ToddBurchDB2
SystemAdmin
SystemAdmin
3105 Posts
ACCEPTED ANSWER

Pinned topic accessing VSAM and PS files through DB2 stored procedure

‏2009-07-17T05:08:58Z |
To access VSAM and PS files through DB2 stored procedure DB2 SPAS
WLM JCL needs to be modified
Can you provide me the required WLM JCL where in appropriate DD
Statements are added”
Updated on 2009-07-22T02:42:01Z at 2009-07-22T02:42:01Z by ToddBurchDB2
  • ToddBurchDB2
    ToddBurchDB2
    74 Posts
    ACCEPTED ANSWER

    Re: accessing VSAM and PS files through DB2 stored procedure

    ‏2009-07-17T22:22:04Z  in response to SystemAdmin
    Without knowing what your current JCL looks like, we would be guessing on which DDNAMES would be available for use.

    The position really does not matter - whatever is valid for JCL.

    Depending on the language for your stored procedure, you could also use Dynamic Allocation (SVC 99) to allocate the datasets and then you would not have to change your WLM startup proc..

    Todd
  • SystemAdmin
    SystemAdmin
    3105 Posts
    ACCEPTED ANSWER

    Re: accessing VSAM and PS files through DB2 stored procedure

    ‏2009-07-20T04:29:19Z  in response to SystemAdmin
    Thank you for replying. I appreciate it!

    The JCL is as follows,

    //*************************************************************
    //* JCL FOR RUNNING THE WLM-ESTABLISHED STORED PROCEDURES
    //* ADDRESS SPACE
    //* RGN -- THE MVS REGION SIZE FOR THE ADDRESS SPACE.
    //* DB2SSN -- THE DB2 SUBSYSTEM NAME.
    //* NUMTCB -- THE NUMBER OF TCBS USED TO PROCESS
    //* END USER REQUESTS.
    //* APPLENV -- THE MVS WLM APPLICATION ENVIRONMENT
    //* SUPPORTED BY THIS JCL PROCEDURE.
    //*
    //*************************************************************
    //DSN1WLM PROC RGN=0K,APPLENV=DSN1WLM1,DB2SSN=DSN1,NUMTCB=8
    //IEFPROC EXEC PGM=DSNX9WLM,REGION=&RGN,TIME=NOLIMIT,
    // PARM='&DB2SSN,&NUMTCB,&APPLENV'
    //STEPLIB DD DISP=SHR,DSN=DSN710.RUNLIB.LOAD
    // DD DISP=SHR,DSN=OPERN.CICS1.LOADLIB
    // DD DISP=SHR,DSN=OPERN.CICS3.LOADLIB
    // DD DISP=SHR,DSN=CEE.SCEERUN
    // DD DISP=SHR,DSN=DSN710.SDSNLOAD
    //TRNSFIL DD DSN=ER29995.DB2.POC.TRANS.PS,DISP=SHR
    //MASTFIL DD DSN=ER29995.DB2.POC.MASTER.VSAM,DISP=SHR
    //SYSEXEC DD DISP=SHR, <== Location of DSNTPSMP
    // DSN=DSN710.SDSNCLST
    //SYSTSPRT DD SYSOUT=*
    //CEEDUMP DD SYSOUT=*
    //SYSPRINT DD SYSOUT=*
    //SYSABEND DD DUMMY
    //DSNTRACE DD SYSOUT=*
    //*
    //**** Data sets required by the SQL Procedures Processor
    //SQLDBRM DD DISP=SHR, <== DBRM Library
    // DSN=DSN710.DBRMLIB.DATA
    //SQLCSRC DD DISP=SHR, <== Generated C Source
    // DSN=DSN710.SRCLIB.DATA
    //SQLLMOD DD DISP=SHR, <== Application Loadlib
    // DSN=DSN710.RUNLIB.LOAD
    //SQLLIBC DD DISP=SHR, <== C header files
    // DSN=CEE.SCEEH.H
    // DD DISP=SHR,
    // DSN=CEE.SCEEH.SYS.H
    //SQLLIBL DD DISP=SHR, <== Linkedit includes
    // DSN=CEE.SCEELKED
    // DD DISP=SHR,
    // DSN=DSN710.SDSNLOAD
    //SYSMSGS DD DISP=SHR, <== Prelinker msg file
    // DSN=CEE.SCEEMSGP(EDCPMSGE)
    //*
    //**** DSNTPSMP Configuration File - CFGTPSMP (optional)
    //* A site provided sequential dataset or member, used to
    //* define customized operation of DSNTPSMP in this APPLENV.
    //*CFGTPSMP DD DISP=SHR,DSN=
    //*
    //**** Workfiles required by the SQL Procedures Processor
    //SQLSRC DD UNIT=SYSALLDA,SPACE=(23440,(20,20)),
    // DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)
    //SQLPRINT DD UNIT=SYSALLDA,SPACE=(23476,(20,20)),
    // DCB=(RECFM=VB,LRECL=137,BLKSIZE=23476)
    //SQLTERM DD UNIT=SYSALLDA,SPACE=(23476,(20,20)),
    // DCB=(RECFM=VB,LRECL=137,BLKSIZE=23476)
    //SQLOUT DD UNIT=SYSALLDA,SPACE=(23476,(20,20)),
    // DCB=(RECFM=VB,LRECL=137,BLKSIZE=23476)
    //SQLCPRT DD UNIT=SYSALLDA,SPACE=(23476,(20,20)),
    // DCB=(RECFM=VB,LRECL=137,BLKSIZE=23476)
    //SQLUT1 DD UNIT=SYSALLDA,SPACE=(23440,(20,20)),
    // DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)
    //SQLUT2 DD UNIT=SYSALLDA,SPACE=(23440,(20,20)),
    // DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)
    //SQLCIN DD UNIT=SYSALLDA,SPACE=(32000,(20,20))
    //SQLLIN DD UNIT=SYSALLDA,SPACE=(3200,(30,30)),
    // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
    //SQLDUMMY DD DUMMY
    //SYSMOD DD UNIT=SYSALLDA,SPACE=(23440,(20,20)), <= PRELINKER
    // DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)
    • ToddBurchDB2
      ToddBurchDB2
      74 Posts
      ACCEPTED ANSWER

      Re: accessing VSAM and PS files through DB2 stored procedure

      ‏2009-07-22T02:42:01Z  in response to SystemAdmin
      Are you still looking for more of an answer? If so what exactly are you wanting to know at this point?

      Todd