Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISPF tables - How to re-access the same table

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 29

PostPosted: Fri Jan 15, 2010 12:38 am    Post subject: ISPF tables - How to re-access the same table
Reply with quote

I have a CLIST that reads a dataset member which has a standard format for release of Subschema(s) source to our production system. It creates a single member with all of the subchema source. It is working, but I would like to add a feature that puts the word GENERATE after each subschema source in the member. Here is the coding - I am open to any ideas.
Code:
 ISPEXEC TBCREATE AAATABLE NAMES(SSC) +
                  NOWRITE REPLACE SHARE
DO WHILE &SUBSTR(2:17,&RELLINE)  NE  &STR(Change Rationale)   
      SET &FF EQ &STR(A)                                       
      SET &SSC EQ &STR( )                                     
      IF &SUBSTR(2:3,&RELLINE)  EQ  &STR(YH) THEN +           
        DO                                                     
          SET &SSC    EQ  &SUBSTR(2:9,&RELLINE)               
          SET &FF     EQ  &STR(B)                             
          SET &TCOUNT EQ &TCOUNT + 1                           
        END                                                   
                                                               
      IF &FF  EQ  &STR(B)  THEN +                             
          ISPEXEC TBADD  AAATABLE  ORDER  MULT(400)           
      ISPEXEC LMGET DATAID(&RELDD) MODE(INVAR) +               
                    DATALOC(RELLINE) DATALEN(DATALEN) MAXLEN(80
END                                                           
ENDLOOP: +                                             
   WRITE CURRENT TCOUNT &TCOUNT  MEMBER &I.&B.&RELDATE 
   SET &TOTAL EQ &TOTAL + &TCOUNT                       
   WRITE TOTAL IS &TOTAL                               
   SET &TCOUNT EQ 0                                     
   SET &B  EQ  &B + 1                                   
 END                                                   

 SET  &RC  =  0                           
 ISPEXEC TBTOP  AAATABLE                   
                                           
ISPEXEC TBSORT AAATABLE FIELDS(SSC,C,A)   

READTAB:  +                                                       
 ERROR OFF                                                       
 ERROR DO                                                         
      IF &LASTCC = 8    THEN SET &LASTCC = 0                     
      GOTO READEND                                               
     END                                                         
                                                                 
   CONTROL   MSG                                                 
   ISPEXEC TBTOP  AAATABLE                                       
   ISPEXEC TBSKIP AAATABLE NUMBER(+1) POSITION(CRP)               
                                                                 
   ISPEXEC FTOPEN    TEMP                                         
   ISPEXEC FTINCL    SUBJOB                                       
   ISPEXEC FTINCL    DBAR603                                     
   DO WHILE &LASTCC = 0                                           
    IF &SSC    NE  &STR( ) THEN +                                 
      DO                                                         
       SET &PDILOG EQ &STR(PUN SUB &SSC SCH YCDEVL V 12 AS SYN.) 
        ISPEXEC FTINCL  SUBLINE                         
      END                                               
     ISPEXEC TBSKIP AAATABLE NUMBER(+1) POSITION(CRP)   
    END                                                 
                                                       
 READEND: +                                             
    ISPEXEC FTINCL    SUB602                           
                                                       
    ISPEXEC TBEND AAATABLE                             
    ISPEXEC FTCLOSE 


SubJOB

Code:
//&ZUSER.X JOB (ACNMISIT,&ZUSER),'&PGMRNAME',       
//       NOTIFY=&ZUSER,                             
//     CLASS=&CLS,MSGCLASS=H,MSGLEVEL=(1,1),TIME=1439


DBAR603

Code:
 //DELETE1 EXEC  PGM=IEFBR14                                       
 //DDD       DD DSN=&ZUSER..PTU01.PUNCH,DISP=(MOD,DELETE,DELETE),   
 //             UNIT=SYSDA,                                         
 //             SPACE=(TRK,(1,1)),                                 
 //             DCB=(LRECL=80,BLKSIZE=80,RECFM=FB)                 
 //JS10      EXEC PGM=SORT                                         
 //SYSOUT    DD SYSOUT=*                                           
 //SORTWK01  DD UNIT=SYSDA,SPACE=(CYL,(1,1))                       
 //SORTOUT   DD DSN=&ZUSER..PTU01.PUNCH,DISP=(NEW,CATLG,DELETE),   
 //             UNIT=SYSDA,SPACE=(TRK,(2,1),RLSE),                 
 //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)                 
 //SYSIN     DD *                                                   
   SORT     FIELDS=(10,8,CH,A)                                     
   SUM FIELDS=(NONE)                                               
 /*                                                                 
 //SORTIN    DD *


SUB602

Code:
//PCHSSC  EXEC PGM=IDMSUBSC,REGION=1500K                       
//*************************************************************
//* DICTNAME=&UTLDICT                                         
//*************************************************************
//STEPLIB   DD DSN=JADBMTD.PPUDB.PROTLOAD,DISP=SHR             
//          DD DSN=JADBMTD.PPUDB.WORKLOAD,DISP=SHR             
//          DD DSN=SYS3.IDMS.MTD.LOADLIB,DISP=SHR             
//SYSIDMS DD *                                                 
DICTNAME=&UTLDICT                                             
DMCL=GLBLDMCL                                                 
/*                                                             
//SYSCTL    DD DSN=JADBMTD.PPUDB.SYSCTL,DISP=SHR               
//SYSPCH    DD DSN=H826.PTU.MARPJCL(SB1010),DISP=SHR               
                                           
//SYSIPT        DD DSN=&ZUSER..PTU01.PUNCH,DISP=SHR
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Fri Jan 15, 2010 12:54 am    Post subject: Reply to: ISPF tables - How to re-access the same table
Reply with quote

Your post is quite unclear...
post a sample of how the jcl is being generated now,
how You want it to be generated
and from where Your skel should get the values...
Back to top
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 29

PostPosted: Sat Jan 16, 2010 12:26 am    Post subject: ISPF tables - How to re-access the same table
Reply with quote

I hope this helps

Sample JCL results in HELD Q

13.36.01 JOB16287 ---- FRIDAY, 15 JAN 2010 ----
13.36.01 JOB16287 TSS7000I XXXXXXX Last-Used 15 Jan 10 13:33 System=MXP Facility=TSO
13.36.01 JOB16287 TSS7001I Count=29644 Mode=Fail Locktime=None Name=xxxxxxxxxxxx
13.36.01 JOB16287 $HASP373 XXXXXXXX STARTED - INIT 36 - CLASS S - SYS MXP
13.36.01 JOB16287 IEF403I XXXXXXXX - STARTED - TIME=13.36.01
13.36.01 JOB16287 - --TIMINGS (MINS.)-- -----PAGING COUNTS----
13.36.01 JOB16287 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWAPS
13.36.01 JOB16287 -DELETE1 00 11 8 .00 .00 .0 22 BATCH 0 0 0 0
13.36.02 JOB16287 -JS10 00 44 26 .00 .00 .0 670 BATCH 0 0 0 0
13.36.31 JOB16287 -PCHSSC 00 704 314 .01 .00 .4 5452 BATCH 0 0 0 0
13.36.31 JOB16287 IEF404I XXXXXXXX - ENDED - TIME=13.36.31
13.36.31 JOB16287 -XXXXXXXX ENDED. NAME- TOTAL TCB CPU TIME= .01 TOTAL ELAPSED TIME= .5
13.36.31 JOB16287 $HASP395 XXXXXXXX ENDED
0------ JES2 JOB STATISTICS ------
- 15 JAN 2010 JOB EXECUTION DATE
- 67 CARDS READ
- 15,095 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 463 SYSOUT SPOOL KBYTES
- 0.51 MINUTES EXECUTION TIME
1 //XXXXXXXX JOB (ACNMISIT,XXXXXXX),'', JOB16287
// NOTIFY=XXXXXXX,
// CLASS=S,MSGCLASS=H,MSGLEVEL=(1,1),TIME=1439,
// USER=XXXXXXX,PASSWORD=
2 //DELETE1 EXEC PGM=IEFBR14
3 //DDD DD DSN=XXXXXXX.PTU01.PUNCH,DISP=(MOD,DELETE,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1)),
// DCB=(LRECL=80,BLKSIZE=80,RECFM=FB)
4 //JS10 EXEC PGM=SORT
5 //SYSOUT DD SYSOUT=*
6 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
7 //SORTOUT DD DSN=XXXXXXX.PTU01.PUNCH,DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(2,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
8 //SYSIN DD *
9 //SORTIN DD *
10 //PCHSSC EXEC PGM=IDMSUBSC,REGION=1500K
//*****************************************************************
//* DICTNAME=Q1 *
//*****************************************************************
11 //STEPLIB DD DSN=JADBMTD.PPUDB.PROTLOAD,DISP=SHR
12 // DD DSN=JADBMTD.PPUDB.WORKLOAD,DISP=SHR
13 // DD DSN=SYS3.IDMS.MTD.LOADLIB,DISP=SHR
14 //SYSIDMS DD *
15 //SYSCTL DD DSN=JADBMTD.PPUDB.SYSCTL,DISP=SHR
16 //SYSPCH DD DSN=Hxxx.PTU.xxxxxxxx(SBSU0001),DISP=SHR
17 //SYSLST DD SYSOUT=5
18 //SYSIPT DD DSN=H8xx.PPU.xxxxxxxx(SIGRETQ1),DISP=SHR
19 // DD DSN=XXXXXXX.PTU01.PUNCH,DISP=SHR
TSS7000I XXXXXXX Last-Used 15 Jan 10 13:33 System=MXP Facility=TSO
TSS7001I Count=29644 Mode=Fail Locktime=None Name=xxxxxxxxx
IEF236I ALLOC. FOR XXXXXXXX DELETE1
IGD103I SMS ALLOCATED TO DDNAME DDD
IEF142I XXXXXXXX DELETE1 - STEP WAS EXECUTED - COND CODE 0000
IGD105I XXXXXXX.PTU01.PUNCH DELETED, DDNAME=DDD
IEF373I STEP/DELETE1 /START 2010015.1336
IEF374I STEP/DELETE1 /STOP 2010015.1336 CPU 0MIN 00.00SEC SRB 0MIN 00.00SEC VIRT 4K SYS 308K EXT 4K SYS 10912K
IEF236I ALLOC. FOR XXXXXXXX JS10
IEF237I JES2 ALLOCATED TO SYSOUT
IGD101I SMS ALLOCATED TO DDNAME (SORTWK01)
DSN (SYS10015.T133600.RA000.XXXXXXXX.R0152526 )
STORCLAS (NONVIO) MGMTCLAS ( ) DATACLAS (ALLOCX3V)
VOL SER NOS= XVPG00
IGD17271I ALLOCATION HAS BEEN ALLOWED TO PROCEED FOR DATA SET
XXXXXXX.PTU01.PUNCH
ALTHOUGH VOLUME COUNT REQUIREMENTS COULD NOT BE MET
IGD101I SMS ALLOCATED TO DDNAME (SORTOUT )
DSN (XXXXXXX.PTU01.PUNCH )
STORCLAS (STANDARD) MGMTCLAS (YGPB3QMC) DATACLAS (SETDSORG)
VOL SER NOS= XVPG03
IEF237I JES2 ALLOCATED TO SYSIN
IEF237I JES2 ALLOCATED TO SORTIN
IEF142I XXXXXXXX JS10 - STEP WAS EXECUTED - COND CODE 0000
IEF285I XXXXXXX.XXXXXXXX.JOB16287.D0000104.? SYSOUT
IGD105I SYS10015.T133600.RA000.XXXXXXXX.R0152526 DELETED, DDNAME=SORTWK01
IGD104I XXXXXXX.PTU01.PUNCH RETAINED, DDNAME=SORTOUT
IEF285I XXXXXXX.XXXXXXXX.JOB16287.D0000101.? SYSIN
IEF285I XXXXXXX.XXXXXXXX.JOB16287.D0000102.? SYSIN
IEF373I STEP/JS10 /START 2010015.1336
IEF374I STEP/JS10 /STOP 2010015.1336 CPU 0MIN 00.12SEC SRB 0MIN 00.00SEC VIRT 2008K SYS 368K EXT 32768K SYS 38220K
IEF236I ALLOC. FOR XXXXXXXX PCHSSC
IGD103I SMS ALLOCATED TO DDNAME STEPLIB
IGD103I SMS ALLOCATED TO DDNAME
IGD103I SMS ALLOCATED TO DDNAME
IEF237I JES2 ALLOCATED TO SYSIDMS
IGD103I SMS ALLOCATED TO DDNAME SYSCTL
IGD103I SMS ALLOCATED TO DDNAME SYSPCH
IEF237I JES2 ALLOCATED TO SYSLST
IGD103I SMS ALLOCATED TO DDNAME SYSIPT
IGD103I SMS ALLOCATED TO DDNAME
IEF142I XXXXXXXX PCHSSC - STEP WAS EXECUTED - COND CODE 0000
IGD104I JADBMTD.PPUDB.PROTLOAD RETAINED, DDNAME=STEPLIB
IGD104I JADBMTD.PPUDB.WORKLOAD RETAINED, DDNAME=
IGD104I SYS3.IDMS.MTD.LOADLIB RETAINED, DDNAME=
IEF285I XXXXXXX.XXXXXXXX.JOB16287.D0000103.? SYSIN
IGD104I JADBMTD.PPUDB.SYSCTL RETAINED, DDNAME=SYSCTL
IGD104I H826.PTU.MARPJCL RETAINED, DDNAME=SYSPCH
IEF285I XXXXXXX.XXXXXXXX.JOB16287.D0000105.? SYSOUT
IGD104I H825.PPU.GPSECURE RETAINED, DDNAME=SYSIPT
IGD104I XXXXXXX.PTU01.PUNCH RETAINED, DDNAME=
IEF373I STEP/PCHSSC /START 2010015.1336
IEF374I STEP/PCHSSC /STOP 2010015.1336 CPU 0MIN 00.89SEC SRB 0MIN 00.06SEC VIRT 428K SYS 372K EXT 644K SYS 11044K
IEF375I JOB/XXXXXXXX/START 2010015.1336
IEF376I JOB/XXXXXXXX/STOP 2010015.1336 CPU 0MIN 01.01SEC SRB 0MIN 00.06SEC
1 SYNCSORT FOR Z/OS 1.2.1.0R U.S. PATENTS: 4210961, 5117495 (C) 2005 SYNCSORT INC. DATE=2010/015 TIME=13.36.01
DEFENSE INFORMATION SYSTEMS AGENCY z/OS 1.9.0
PRODUCT LICENSED FOR CPU SERIAL NUMBER 4958E, MODEL 2096 N02 LICENSE/PRODUCT EXPIRATION DATE: 02 OCT 2010
SYSIN :
SORT FIELDS=(10,8,CH,A)
SUM FIELDS=(NONE)
WER108I SORTIN : RECFM=FB ; LRECL= 80; BLKSIZE= 80
WER110I SORTOUT : RECFM=FB ; LRECL= 80; BLKSIZE= 80
WER177I TURNAROUND SORT PERFORMED
WER045C END SORT PHASE
WER055I INSERT 0, DELETE 0
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER246I FILESIZE 2,480 BYTES
WER054I RCD IN 31, OUT 31
WER072I NOEQUALS IN EFFECT
WER169I RELEASE 1.2 BATCH 0454 TPF LEVEL 1.0
WER052I END SYNCSORT - XXXXXXXX,JS10,,DIAG=AA00,60C3,829A,2CDF,E376,4CCB,82C8,0466

Creates dataset member

ADD
SUBSCHEMA NAME IS YHxxxxxx OF SCHEMA NAME IS YCxxxx VERSION IS 1
followed by Add AREA, Add SET, and etc.

i would like to ADD - Generate

ADD
SUBSCHEMA NAME IS YHxxxxxx OF SCHEMA NAME IS YCxxxx VERSION IS 1
followed by Add AREA, Add SET, and etc.

i would like to ADD - Generate





Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Mon Jan 18, 2010 12:56 am    Post subject: Reply to: ISPF tables - How to re-access the same table
Reply with quote

You posted the Jes log, still completely useless to understand what You are trying to do

post the SOURCE of the jcl being submitted, the SOURCE You woulkd like to submit,

nothing in the data You showed up to now relates to the statements You want to generate
Back to top
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 29

PostPosted: Tue Jan 19, 2010 9:02 pm    Post subject: ISPF tables - How to re-access the same table
Reply with quote

This is what I am currently doing. We have two IDMS CV (Version 16) databases. One Database is used for development and the other is production. I developed (over a period of 20 years) over 40 of ISPF screens to aid in the Compiling/testing/releasing programs into the production database. The change I would like to make is in the release portion. When we release a dialog/map or batch program it is the load module that is loaded to production. The only source is the subchemas. I have discussed changing the release of subschemas to load module, but of course if it is not broke do not fix it. The production team does not want any changes. Here are the steps involed to do a release. First, the programmer sets up a standard release TSO dataset member using ISPF screens. Next, I run the TSO member(s) through the Clist I would like to change. The Clist reads the TSO member(s) and extracts the subchema(s) that are marked as revised or new. Creates a list of subchema names in alphabetical order to a table called AAATABLE. The AAATABLE is read and creates the syntax "PUN SUB &SSC (SSC=Subschema name) SCH YCDEVL V 12 AS SYN" to a data set member called SUBLINE. Creates a tempory dataset &ZUSER..PTU01.PUNCH (this dataset contains the "PUN SUB" statements") - which is passed to IDMS untility program IDMSUBSC.
The change is I would like to add the word Generate at the end of each subschema source. How can I read AAATABLE in a second time and add Generate.
Back to top
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 29

PostPosted: Thu Jan 21, 2010 11:59 pm    Post subject: ISPF tables - How to re-access the same table
Reply with quote

The SOURCE of the jcl being submitted, reply - it is in the first post
SOURCE You would like to submit, - I am not sure how to approach this problem. I do not want to Generate anything. I want to put the word "GENERATE" after the subchema Source. Here is the source I would like to add

Code:
ISPEXEC TBCREATE AAATABLE NAMES(SSC) +
                  NOWRITE REPLACE SHARE
DO WHILE &SUBSTR(2:17,&RELLINE)  NE  &STR(Change Rationale)   
      SET &FF EQ &STR(A)                                       
      SET &SSC EQ &STR( )                                     
      IF &SUBSTR(2:3,&RELLINE)  EQ  &STR(YH) THEN +           
        DO                                                     
          SET &SSC    EQ  &SUBSTR(2:9,&RELLINE)               
          SET &FF     EQ  &STR(B)                             
          SET &TCOUNT EQ &TCOUNT + 1                           
        END                                                   
                                                               
      IF &FF  EQ  &STR(B)  THEN +                             
          ISPEXEC TBADD  AAATABLE  ORDER  MULT(400)           
      ISPEXEC LMGET DATAID(&RELDD) MODE(INVAR) +               
                    DATALOC(RELLINE) DATALEN(DATALEN) MAXLEN(80
END                                                           
ENDLOOP: +                                             
   WRITE CURRENT TCOUNT &TCOUNT  MEMBER &I.&B.&RELDATE 
   SET &TOTAL EQ &TOTAL + &TCOUNT                       
   WRITE TOTAL IS &TOTAL                               
   SET &TCOUNT EQ 0                                     
   SET &B  EQ  &B + 1                                   
 END                                                   

 SET  &RC  =  0                           
 ISPEXEC TBTOP  AAATABLE                   
                                           
ISPEXEC TBSORT AAATABLE FIELDS(SSC,C,A)   

READTAB:  +                                                       
 ERROR OFF                                                       
 ERROR DO                                                         
      IF &LASTCC = 8    THEN SET &LASTCC = 0                     
      GOTO READEND                                               
     END                                                         
                                                                 
   CONTROL   MSG                                                 
   ISPEXEC TBTOP  AAATABLE                                       
   ISPEXEC TBSKIP AAATABLE NUMBER(+1) POSITION(CRP)               
                                                                 
   ISPEXEC FTOPEN    TEMP                                         
   ISPEXEC FTINCL    SUBJOB                                       
   ISPEXEC FTINCL    DBAR603                                     
   DO WHILE &LASTCC = 0                                           
    IF &SSC    NE  &STR( ) THEN +                                 
      DO                                                         
       SET &PDILOG EQ &STR(PUN SUB &SSC SCH YCDEVL V 12 AS SYN.) 
        ISPEXEC FTINCL  SUBLINE                         
      END                                               
     ISPEXEC TBSKIP AAATABLE NUMBER(+1) POSITION(CRP)   
    END                                                 
                                                       
 READEND: +                                             
    ISPEXEC FTINCL    SUB602                           
                                                       
    ISPEXEC TBEND AAATABLE                             
    ISPEXEC FTCLOSE 




===================NEW Source starts here ===========

Code:
ISPEXEC TBTOP  AAATABLE                                     
ISPEXEC TBSKIP AAATABLE NUMBER(+1) POSITION(CRP)             
                                                             
ISPEXEC FTOPEN    TEMP2                                     
ISPEXEC FTINCL    SUBJOB                                     
ISPEXEC FTINCL    DBAR700                                   
DO WHILE &LASTCC = 0                                         
 IF &SSC    NE  &STR( ) THEN +                               
   DO                                                       
    SET &PDILOG EQ &STR(MOD SUB &SSC. GENERATE.)             
    ISPEXEC FTINCL  SUBLINE                                 
  END                                                       
 ISPEXEC TBSKIP AAATABLE NUMBER(+1) POSITION(CRP)           
END

"Code'd"
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2033
Location: Silicon Valley

PostPosted: Fri Jan 22, 2010 2:28 am    Post subject: Reply to: ISPF tables - How to re-access the same table
Reply with quote

Quote:
Creates dataset member

ADD
SUBSCHEMA NAME IS YHxxxxxx OF SCHEMA NAME IS YCxxxx VERSION IS 1
followed by Add AREA, Add SET, and etc.

i would like to ADD - Generate


So far, you have not provided the source of these statements. Presumably, it is coming from a file tailoring skeleton. Please provide the file tailoring skeleton SOURCE. I believe that is where you will need to append the word GENERATE.
Back to top
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 29

PostPosted: Sat Jan 23, 2010 12:13 am    Post subject: ISPF tables - How to re-access the same table
Reply with quote

First. the user enters data on a panel.

-----------Release Quarterly/Monthly Subschema Source/Dialog load modules------
COMMAND =========> SCROLL PAGE
Enter SUB to process list, CAN to cancel this function TIME: 13:18
Use PF1 for HELP DATE: 10/01/22
CLID: DBAPN600
Release DATE: 10001 Type of Release: I


Dictionary Name where load modules reside: Q1


Execution jobclass (S, T, U, X or Z) :-> S Return to this screen?: N

Cmd Project number project status br reldate

==============================================

CList/REXX reads this dataset member

XXXX Release - M10001

Informational Member - I210001

1. COBOL Load Modules Released:
new
rv/sp load mod date/time stamp subschema execution jcl
_____________________________________________________________
R9217 YPC0111U 082108 150141 YHDVC01G(R) C0111U01(-)
R9217 YPC6005U 092209 102136 YHDVC60C(-) C6005U01(-)
R9217 YPC6007U 010809 171943 YHDVC60F(R) C6007U02(-)
R9217 YPC6015U 080609 073257 YHDVC60A(-) C6015U01(-)
R9217 YPC6016U 071509 102429 YHDVC60Y(N) C6016U01(-)
R9217 YPC6025U 090109 133547 YHDVC60E(R) C6025U01(-)
R9217 YPC6026U 031109 131235 YHDVC60V(R) C6026U01(-)
R9217 YPC6027U 022309 125740 YHDVC60X(N) C6027U01(-)
N9217 YPC6031U 092909 103650 YHDVC60K(R) C6031U01(N)
N9217 YPC6035U 063009 145702 YHDVC60Z(N) C6035U01(N)
R9217 YPF3001U 090309 094221 YHDVF30A(-) F3001U12(-

2. JCL and/or CULPRIT source released:
new
rv/sp JCL member programs executed and/or comments
_____________________________________________________________
N9217 C6031U01(N) YPC6031U
N9217 C6035U01(N) YPC6035U
N9217 F3050U01(N) YPF3050U
N9217 F3051U01(N) YPF3051U
N9217 P0127U01(N) YPP0127U
N9217 P0129U01(N) YPP0129U
R9217 P6020U02(R) YPP6020U
N9217 P6040U01(N) YPP6040U

3. Released Subschema source:
Subschema programs used
______________________________________________________________________
YHDVC01G(R) YPC0111U
YHDVC10F(R) YPPBK46U
YHDVC60D(R) YPC60CED YPC60CHD
YHDVC60E(R) YPC6025U
YHDVC60F(R) YPC6007U
YHDVC60G(R) YPC60CDD
YHDVC60H(R) YPC60T1D YPC60T3D YPC60T4D YPC60T6D
YHDVC60I(R) YPC60T2D
YHDVC60J(R) YPC60CAD YPC60CBD
YHDVC60K(R) YPC6031U
YHDVC60M(R) YPC60DBD YPC60DCD YPC60DDD YPC60DED YPC60DFD YPC60DGD
YHDVC60P(R) YPC60N1D
YHDVC60T(R) YPC60DJD

===============================================
create a list

PUN SUB YHDVC01G SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC10F SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60D SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60E SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60F SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60G SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60H SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60I SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60J SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60K SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60M SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60P SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60T SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60U SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60V SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60W SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60X SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60Y SCH YCDEVL V 12 AS SYN.
PUN SUB YHDVC60Z SCH YCDEVL V 12 AS SYN.

==============================================
Creates source


ADD
SUBSCHEMA NAME IS YHDVC01G OF SCHEMA NAME IS YCDEVL VERSION IS 12.

ADD
AREA NAME IS YA-CASE
.
ADD
AREA NAME IS YA-CNTRY
.
ADD
AREA NAME IS YA-CTXPND
.
ADD
AREA NAME IS YA-FMSG
.
ADD
AREA NAME IS YA-IFUND
.
ADD
AREA NAME IS YA-MSGCD
.
ADD
RECORD NAME IS YR-ACCTRCD
CONNECT IS NOT ALLOWED
MODIFY IS NOT ALLOWED
DISCONNECT IS NOT ALLOWED
KEEP IS NOT ALLOWED
.
ADD
RECORD NAME IS YR-CASE
STORE IS NOT ALLOWED
CONNECT IS NOT ALLOWED
MODIFY IS NOT ALLOWED
DISCONNECT IS NOT ALLOWED
ERASE IS NOT ALLOWED
KEEP IS NOT ALLOWED
ELEMENTS ARE CA-CASE-ID
.
ADD
SET NAME IS YI-UNQ-IDX
.
ADD
SET NAME IS YV-CASE-ACCTRCD
.
ADD
SET NAME IS YV-CASE-XCPTN
.
ADD
SET NAME IS YV-FNDMS-XCPTN
.

would like to add the word GENERATE at the end

ADD
SUBSCHEMA NAME IS YHDVC10F OF SCHEMA NAME IS YCDEVL VERSION IS 12.

ADD
AREA NAME IS YA-CASE
.
ADD
AREA NAME IS YA-CNTRCT
.
ADD
AREA NAME IS YA-CNTRCTX
.
ADD
AREA NAME IS YA-FUDOC
.
ADD
AREA NAME IS YA-FUDOCX
.
ADD
AREA NAME IS YA-LOG
.
ADD
RECORD NAME IS YR-APPN
STORE IS NOT ALLOWED
CONNECT IS NOT ALLOWED
MODIFY IS NOT ALLOWED
DISCONNECT IS NOT ALLOWED
ERASE IS NOT ALLOWED
KEEP IS NOT ALLOWED
ELEMENTS ARE OA-APRPRTN-CD
.
ADD
RECORD NAME IS YR-BCKFT
KEEP IS NOT ALLOWED
.

ADD
SET NAME IS YI-CNTRCT-LINE
.
ADD
SET NAME IS YI-FUNDS-LINE
.
ADD
SET NAME IS YV-APPN-CTACRN
.

would like to add the word GENERATE at the end

=============================================
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2033
Location: Silicon Valley

PostPosted: Sat Jan 23, 2010 2:31 am    Post subject: Reply to: ISPF tables - How to re-access the same table
Reply with quote

Quote:
PUN SUB YHDVC60Z SCH YCDEVL V 12 AS SYN.

==============================================
Creates source


I think we still need you to elaborate on 'Creates source'. How? Who?
Back to top
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 29

PostPosted: Sat Jan 23, 2010 2:58 am    Post subject: How to re-access the same table
Reply with quote

In the CLIST - I do ISPEXEC - used to execute JCL - IDMS CV IDMSUBSC utility program creates the source - see below

ISPEXEC FTOPEN TEMP
ISPEXEC FTINCL SUBJOB Note: Job Card info
ISPEXEC FTINCL DBAR603 Note: utililty's IEFBR14 (used to delete the old (previous run) temporary data set &ZUSER..PTU01.PUNCH) SORT to put the Subschema names in order.

create a list of Punch statements

ISPEXEC FTINCL SUB602 Note: uses &ZUSER..PTU01.PUNCH as input to IDMSUBSC (IDMS CV utility program).


Dataset member SubJOB = JCL

//&ZUSER.X JOB (ACNMISIT,&ZUSER),'&PGMRNAME',
// NOTIFY=&ZUSER,
// CLASS=&CLS,MSGCLASS=H,MSGLEVEL=(1,1),TIME=1439


Dataset member DBAR603 = JCL

//DELETE1 EXEC PGM=IEFBR14
//DDD DD DSN=&ZUSER..PTU01.PUNCH,DISP=(MOD,DELETE,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1)),
// DCB=(LRECL=80,BLKSIZE=80,RECFM=FB)
//JS10 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SORTOUT DD DSN=&ZUSER..PTU01.PUNCH,DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(2,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSIN DD *
SORT FIELDS=(10,8,CH,A)
SUM FIELDS=(NONE)
/*
//SORTIN DD *


Dataset member SUB602 = JCL


//PCHSSC EXEC PGM=IDMSUBSC,REGION=1500K
//*************************************************************
//* DICTNAME=&UTLDICT
//*************************************************************
//STEPLIB DD DSN=JADBMTD.PPUDB.PROTLOAD,DISP=SHR
// DD DSN=JADBMTD.PPUDB.WORKLOAD,DISP=SHR
// DD DSN=SYS3.IDMS.MTD.LOADLIB,DISP=SHR
//SYSIDMS DD *
DICTNAME=&UTLDICT
DMCL=GLBLDMCL
/*
//SYSCTL DD DSN=JADBMTD.PPUDB.SYSCTL,DISP=SHR
//SYSPCH DD DSN=H826.PTU.MARPJCL(SB1010),DISP=SHR
//SYSIPT DD DSN=&ZUSER..PTU01.PUNCH,DISP=SHR
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Data replication from multiple Db2 ta... kishpra DB2 5 Mon Mar 27, 2017 9:58 pm
No new posts SPUFI -- Joining 3 tables – data in... Sysaron DB2 2 Wed Mar 08, 2017 4:18 am
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts To know activities on db2 tables ashek15 DB2 4 Fri Mar 03, 2017 11:23 pm
No new posts how to send just 10 rows in a CICS sc... Megha Gupta CICS 5 Thu Feb 23, 2017 6:57 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us