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: 10231
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 Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts SPUFI -- Joining 3 tables – data in... Sysaron DB2 2 Wed Mar 08, 2017 4:18 am
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm
No new posts JCL to get submitted once dataset has... vinu78 JCL & VSAM 17 Thu Feb 16, 2017 7:32 am


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