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
 

 

An alternative to file-tailoring services

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

New User


Joined: 18 Aug 2010
Posts: 4
Location: Ottawa

PostPosted: Mon Nov 29, 2010 5:50 pm    Post subject: An alternative to file-tailoring services
Reply with quote

I've used TSO/ISPF file-tailoring services but I've always found it difficult to setup and use. Anyone else finds File-Tailoring Services complex to setup and use?

I needed to use this service in order to generate JCL and COBOL programs. So I developed something simpler that allows me to generate all kinds of JCL and COBOL programs.

My utility is a Batch-only system which I prefer because the results show up in my IOF and no setup is required. I'm not very fond of software with endless useless panels, such as PLATINUM.

My Skeletons have only 3 simple Directives: #VAR, #START/#END REPEAT, and #START/#END CASE. Data is passed to the Skeletons from a program in "sparse arrays" which are implicitly defined in the Skeletons. If necessary, a program can query a particular Skeleton's structure and #VARS.

#VARS names are 4 characters long and have "dimensions" from 0 up, depending on their location in the skeleton: #VARs inside a Repeat-Block increase in di8mension. Repeat-Blocks can be defined inside Repeat-Blocks.

In the example below you can see how the Directives are coded. A "*" in Col1 are Skeleton Comments. Obviously, at firts glance a Skeleton looks "scary":

Code:
//TEST PGM=FTAIL
!DATA
DATE{}="NOV 29, 2010"
NUMB{1}="01"
NUMB{2}="02"
NUMB{3}="03"
NUMB{4}="04"
//*
//SKEL DD DATA
!SKELETON SAMPLE
#VAR DATE (Date passed by program)
//*     DATE: {DATE
#START REPEAT
#VAR NUMB (SORT WORKAREA NUMBER)
//DSNUPROC.SORTWK{NUMB DD DSN=&&SORTWK{NUMB,
//     DISP=(,PASS,DELETE),
*
*   CASE
*
#START CASE
#WHEN NUMB="02"
//     SPACE=(16384,(200,800),RLSE),
#WHEN ELSE
//     SPACE=(16384,(800,800),RLSE),
#END CASE
*
*   END CASE
*
//     UNIT=SYSDA
//*
#END REPEAT
/*




Result:

Code:
//*     DATE: NOV 29, 2010
//DSNUPROC.SORTWK01 DD DSN=&&SORTWK01,
//     DISP=(,PASS,DELETE),
//     SPACE=(16384,(800,800),RLSE),
//     UNIT=SYSDA
//*
//DSNUPROC.SORTWK02 DD DSN=&&SORTWK02,
//     DISP=(,PASS,DELETE),
//     SPACE=(16384,(200,800),RLSE),                  <== notice the CASE
//     UNIT=SYSDA
//*
//DSNUPROC.SORTWK03 DD DSN=&&SORTWK03,
//     DISP=(,PASS,DELETE),
//     SPACE=(16384,(800,800),RLSE),
//     UNIT=SYSDA
//*
//DSNUPROC.SORTWK04 DD DSN=&&SORTWK04,
//     DISP=(,PASS,DELETE),
//     SPACE=(16384,(800,800),RLSE),
//     UNIT=SYSDA
//*



As you can see, the number of iterations will be determined by the values of the variables passed by the program.


I've implemented a number of Utilities using MY File-Tailoring system: COBOL programs to access DB2, JCL, Documentation. My latest utility generates ALL the precise JCL to move data from one DB2 database to another using DSN1COPY. This is a very comprehensive utility because it also generates the JCL to Unload data and Reload it in the Target DB in case DSN1COPY is unable to perform the task in certain cases.

I will write about my DSN1COPY JCL generator in the appropriate Forum.

Alex Bruzzone
DBA
Canada Revenue Agency
Back to top
View user's profile Send private message

PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Mon Nov 29, 2010 6:07 pm    Post subject:
Reply with quote

Now that sounds great.

I guess a lot of old hands here could do the same with their own home made utilities if they wanted to (including me icon_redface.gif ).

But FT services never gave me problems or head aches.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Mon Nov 29, 2010 6:12 pm    Post subject: Reply to: An alternative to file-tailoring services
Reply with quote

Quote:
Anyone else finds File-Tailoring Services complex to setup and use?

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

Senior Member


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

PostPosted: Mon Nov 29, 2010 10:33 pm    Post subject: Reply to: An alternative to file-tailoring services
Reply with quote

Quote:
My Skeletons have only 3 simple Directives: #VAR, #START/#END REPEAT, and #START/#END CASE.


I am not sure why you posted here... but if you are looking for suggestions: I think you should use ISPF file tailoring syntax where possible. It will make it more palpable for perspective users to understand and implement.
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 SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm


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