Page 2 of 2

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Mon Nov 01, 2010 9:50 am
by pucca71
Hi Dick,
I did post it within the JCL section. The dsname is LIQUIDL.LIQUID.PTABL.
I continued trying and finally I got it solved.

At the first time I have coded:
CALL ISPLINK('LIBDEF ',ISPTABL ,'DATASET ',('LIQUIDL.LIQUID.PTABL')); which ended with the mentioned error, but, if you count the characters, it is not greater than 44 at all.

Then I've tried to take out the owner id and corrected the quotes, so I left:
CALL ISPLINK('LIBDEF ',ISPTABL ,'DATASET ','(LIQUID.PTABL)');

which worked.

Hi Nic,
Thanks for checking ! I know it is an unusual combination, but it is what was requested to me.
I am still trying to find out how to invoque the DB2 part.

Thanks !

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Mon Nov 01, 2010 10:44 am
by NicC
I think you may have a lot of reading to do and redesign! Start with the 'DB2 for 'your release' Application Programming and SQL Guide'. I was looking at the OS390 V5 guide.

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Mon Nov 01, 2010 12:18 pm
by enrico-sorichetti
the most practical way for accessing DB2 within an ISPF dialog is to use CAF

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Mon Nov 01, 2010 6:46 pm
by pucca71
Thanks Enrico !

I will try CAF and let you know.

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Wed Nov 10, 2010 8:45 am
by pucca71
Hello all,

Finally the job that worked was like this:
//*-------------------------------------------------         
//* EXECUTION                                               
//*-------------------------------------------------         
//ST01 EXEC PGM=IKJEFT01                                     
//STEPLIB  DD DSN=LIQUIDL.PLI.LOAD,DISP=SHR                 
//SYSPROC  DD DSN=DSN2.NEW.SDSNCLST,DISP=SHR                         
//         DD DSN=CEE.SCEELKED,DISP=SHR                             
//         DD DSN=DSN2.SDSNLOAD,DISP=SHR                             
//         DD DSN=ISP.SISPLOAD,DISP=SHR                             
//         DD DSN=DSN2.RUNLIB.ENTPL1.LOAD,DISP=SHR                   
//*- - ALLOCATE PROFILE, PANELS, MSGS, PROCS, AND TABLES -*/         
//ISPPROF  DD SPACE=(CYL,(1,1,5),RLSE),UNIT=SYSDA,                   
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=23440)                 
//ISPPLIB  DD DSN=ISP.SISPPENU,DISP=SHR                             
//ISPMLIB  DD DSN=ISP.SISPMENU,DISP=SHR                             
//ISPSLIB  DD DSN=ISP.SISPSENU,DISP=SHR                             
//         DD DSN=ISP.SISPSLIB,DISP=SHR                                                 
//ISPTLIB  DD DSN=ISP.SISPTENU,DISP=SHR                             
//CPTABL   DD DSN=LIQUIDL.CSP.CPTABL,DISP=SHR                             
//DPTABL   DD DSN=LIQUIDL.CSP.DPTABL,DISP=SHR                             
//MPTABL   DD DSN=LIQUIDL.CSP.MPTABL,DISP=SHR                             
//NPTABL   DD DSN=LIQUIDL.CSP.NPTABL,DISP=SHR                             
//INDPROD  DD DSN=LIQUIDL.ISPTLIB,DISP=SHR                               
//ISPTABL  DD DSN=LIQUIDL.PTABL,DISP=SHR                                 
//*- - ALLOCATE ISPF LOG DATA SET  - - - - - - - - - - - -*/             
//ISPLOG   DD DSN=LIQUIDL.PLI.ISPF.LOG,DISP=OLD                           
//*                                                                       
//*- - ALLOCATE DIALOG PROGRAM AND TSO COMMAND LIBRARIES -*/             
//ISPLLIB  DD DSN=LIQUIDL.PLI.LOAD,DISP=SHR                               
//SYSEXEC  DD DSN=LIQUIDL.PLI.LOAD,DISP=SHR                               
//SYSTSPRT DD DSN=LIQUIDL.PLI.SYSTSPRT,                                   
//            DISP=OLD                                                             
//SYSPRINT DD DSN=LIQUIDL.PLI.SYSPRINT,                                   
//            DISP=OLD                                       
//SYSTSIN  DD *                                               
  DSN SYSTEM(DSN)                                             
  RUN CP PLAN(CSPTABML)                                                                     
  ISPSTART PGM(CSPTABML)                                     
  END                                                         
//*


Hope it can help someone.

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Wed Nov 10, 2010 9:08 am
by dick scherrer
Good to hear it is working - thank you for posting your solution :)

d

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Thu Nov 11, 2010 5:12 pm
by NicC
Nice one - saved!

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Thu Nov 08, 2012 3:54 am
by Akatsukami
At the risk of catching flak for performing thread necromancy...
NicC wrote:1 - I do not ever recall seeing a combination of PL/1, ISPF and DB2. I have done Rexx, ISPF and DB2 but that was in foreground.

I'm updating such a program for our Compuware sunset project. It comprises over two dozen source modules and uses reverse-engineered File-AID selection criteria; the lead analyst for the MVS->E PL/I conversion missed it (I'm going to flick her on the ear for that when I catch up to her :D) and my first move was to run all the source modules through our current EPL/I compiler (V4.2.0). It's clabbered misery to work with.

Re: JCL to execute PL/I w ISPF tables & DB2 tables

PostPosted: Fri Nov 09, 2012 12:53 am
by dick scherrer
When it sucks, it sucks.

No flak from here (an advantage of being a major contributor). . .

Maybe you can transfer ownership . . . 8-)

d