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: 2435
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: 10274
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: 2050
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
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 Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to generate a new unique Input fi... for1ranjith CLIST & REXX 11 Sat Jul 01, 2017 12:09 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm


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