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
 

 

using proc parameters to modify data

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Wed Aug 26, 2009 1:27 pm    Post subject: using proc parameters to modify data
Reply with quote

/ enormous rant on
looks that the all the TS' s organizations employ a bunch of &DEROGATORY_ADJECTIVE systems managers/programmers

a bit of ingenuity and research would have found that ...
on the CBT tape ( free ) http://cbttape.org/cbtdowns.htm file 364
on Gilbert Saint Flour web site ( for a fee ) http://gsf-soft.com/Products/CCSS.shtml

exists a tool called CCSS ( control card subsystem )which does just that
( code data card inside a procedure )
see this snippet
Code:
//CCSSTEST JOB (CCSS),
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(1,1),
//             REGION=4096K
//*********************************************************************
//*
//ZTEST   PROC               
//CCSS    EXEC PGM=IEBGENER               
//SYSPRINT  DD SYSOUT=*                       
//SYSIN     DD DUMMY                           
//SYSUT1    DD SUBSYS=(CCSS,
//             'START OF FILE',
//             ' X &PAR1. X',
//             ' Y &PAR2. Y',
//             &PAR3.,'+',
//             &PAR4.,
//             &PAR5.,
//             &PARZ.,
//             'END   OF FILE'),
//             DCB=(LRECL=80)
//SYSUT2   DD SYSOUT=*                         
//       PEND                                       
//TEST   EXEC ZTEST,
//            PAR1=A,
//            PAR2=BB,
//            PAR3=CCC,
//            PAR4=DDDD,
//            PAR5=EEEEE,
//            PARZ=ZZZZZZ

which gives this output ( the <note> lines were added to betters how the result )
Code:
****A  START  JOB  175  CCSSTEST                        ROOM        8.10.47 PM 25 APR  9  PRINTER1  SYS HERC  JOB  175  START  A****
****A  START  JOB  175  CCSSTEST                        ROOM        8.10.47 PM 25 APR  9  PRINTER1  SYS HERC  JOB  175  START  A****
****A  START  JOB  175  CCSSTEST                        ROOM        8.10.47 PM 25 APR  9  PRINTER1  SYS HERC  JOB  175  START  A****
****A  START  JOB  175  CCSSTEST                        ROOM        8.10.47 PM 25 APR  9  PRINTER1  SYS HERC  JOB  175  START  A****

                                                J E S 2   J O B   L O G


20.10.47 JOB  175  $HASP373 CCSSTEST STARTED - INIT  1 - CLASS A - SYS HERC
20.10.47 JOB  175  IEF403I CCSSTEST - STARTED - TIME=20.10.47
20.10.47 JOB  175  IEF404I CCSSTEST - ENDED - TIME=20.10.47
20.10.47 JOB  175  $HASP395 CCSSTEST ENDED


------ JES2 JOB STATISTICS ------


 25 APR  9 JOB EXECUTION DATE


        30 CARDS READ


        83 SYSOUT PRINT RECORDS


         0 SYSOUT PUNCH RECORDS


      0.00 MINUTES EXECUTION TIME

    1     //CCSSTEST JOB (CCSS),                                                  JOB  175
          //             CLASS=A,
          //             MSGCLASS=A,
          //             MSGLEVEL=(1,1),
          //             REGION=4096K
          ***********************************************************************
          ***
          //ZTEST   PROC
          //CCSS    EXEC PGM=IEBGENER
          //SYSPRINT  DD SYSOUT=*
          //SYSIN     DD DUMMY
          //SYSUT1    DD SUBSYS=(CCSS,
          //             'START OF FILE',
          //             ' X &PAR1. X',
          //             ' Y &PAR2. Y',
          //             &PAR3.,'+',
          //             &PAR4.,
          //             &PAR5.,
          //             &PARZ.,
          //             'END   OF FILE'),
          //             DCB=(LRECL=80)
          //SYSUT2   DD SYSOUT=*
          //       PEND
    2     //TEST   EXEC ZTEST,
          //            PAR1=A,
          //            PAR2=BB,
          //            PAR3=CCC,
          //            PAR4=DDDD,
          //            PAR5=EEEEE,
          //            PARZ=ZZZZZZ
    3     ++ZTEST   PROC
    4     ++CCSS    EXEC PGM=IEBGENER
    5     ++SYSPRINT  DD SYSOUT=*
    6     ++SYSIN     DD DUMMY
    7     ++SYSUT1    DD SUBSYS=(CCSS,
          ++             'START OF FILE',
          ++             ' X &PAR1. X',
          ++             ' Y &PAR2. Y',
          ++             &PAR3.,'+',
          ++             &PAR4.,
          ++             &PAR5.,
          ++             &PARZ.,
          ++             'END   OF FILE'),
          ++             DCB=(LRECL=80)
    8     ++SYSUT2   DD SYSOUT=*

 STMT NO. MESSAGE
-
    7     IEF653I SUBSTITUTION JCL - ' X A X',
    7     IEF653I SUBSTITUTION JCL - ' Y BB Y',
    7     IEF653I SUBSTITUTION JCL - CCC,'+',
    7     IEF653I SUBSTITUTION JCL - DDDD,
    7     IEF653I SUBSTITUTION JCL - EEEEE,
    7     IEF653I SUBSTITUTION JCL - ZZZZZZ,
IEF236I ALLOC. FOR CCSSTEST CCSS TEST
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I DMY  ALLOCATED TO SYSIN
IEF237I CCSS ALLOCATED TO SYSUT1
IEF237I JES2 ALLOCATED TO SYSUT2
IEF142I CCSSTEST CCSS TEST - STEP WAS EXECUTED - COND CODE 0000
IEF285I   JES2.JOB00175.SO0101                         SYSOUT
IEF285I   SYS09115.T201047.RA000.CCSSTEST.R0000001     SUBSYSTEM
IEF285I   JES2.JOB00175.SO0102                         SYSOUT
IEF373I STEP /CCSS    / START 09115.2010
IEF374I STEP /CCSS    / STOP  09115.2010 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC VIRT    36K SYS   188K
IEF375I  JOB /CCSSTEST/ START 09115.2010
IEF376I  JOB /CCSSTEST/ STOP  09115.2010 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC

DATA SET UTILITY - GENERATE                                                                       PAGE 0001


IEB352I WARNING : OUTPUT RECFM/LRECL/BLKSIZE COPIED FROM INPUT

PROCESSING ENDED AT EOD
<note><note><note> <note> <note> <note>
START OF FILE
 X A X
 Y BB Y
CCCDDDD
EEEEE
ZZZZZZ
END   OF FILE
<note><note><note> <note> <note> <note>

****A   END   JOB  175  CCSSTEST                        ROOM        8.10.47 PM 25 APR  9  PRINTER1  SYS HERC  JOB  175   END   A****
****A   END   JOB  175  CCSSTEST                        ROOM        8.10.47 PM 25 APR  9  PRINTER1  SYS HERC  JOB  175   END   A****
****A   END   JOB  175  CCSSTEST                        ROOM        8.10.47 PM 25 APR  9  PRINTER1  SYS HERC  JOB  175   END   A****
****A   END   JOB  175  CCSSTEST                        ROOM        8.10.47 PM 25 APR  9  PRINTER1  SYS HERC  JOB  175   END   A****


easy to install easy to use would reduce by 97.639% the forum traffic on the issue

/enormous rant off

the cbt tape installation process is a bit more complicated than needed
post and I' ll describe a simpler approach
Back to top
View user's profile Send private message

Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Thu Aug 27, 2009 7:55 am    Post subject:
Reply with quote

Many sites are reluctant to introduce unsupported freeware into the production environment lest it stop working unexpectedly.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts copying data without knowing location arunsoods DFSORT/ICETOOL 6 Thu Jul 20, 2017 1:03 pm
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Loading data to table gives wrong for... Raghu navaikulam DB2 18 Thu Jul 13, 2017 2:11 pm
No new posts SQL - select data available in index Nileshkul DB2 3 Mon Jun 26, 2017 1:30 am
No new posts REXX to view the PGM or PROC jackzhang75 CLIST & REXX 11 Tue Jun 20, 2017 1:20 am


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