Don,
ISPF file tailoring can easily handle this.
I have a generic panel driven program and every time I have a list to
manipulate, I just build a new skeleton and run it against the list.
In your case, this would be your VB input file.
The prototype skeleton I used looks like this:
))) SLIB CAFILE
"&F1","&F2","&F3","&F4",&F5,&F6
I only worked on the first 6 columns. It does demonstrate CHAR and NUMERIC
handling.
In my REXX list processor, I just parse out those first 6 columns:
When Skelmem = 'CAFILE' Then Do
Omem = 'CAFILE'
PARSE VALUE MEMBER WITH F1 ',' F2 ',' F3 ',' F4 ',' F5 ',' F6
ADDRESS ISPEXEC
"ISPEXEC LIBDEF ISPFILE DATASET ID('"ofil"')"
ADDRESS ISPEXEC 'FTINCL ' CAFILE
End
The resulting output file VB.OUTPUT(CAFILE)
"A10000","CARPETED RUBBER MATS-FRONT-RED","FLOORMAT","PAIR",22.99,135
This is what my panel driver looks like, you just add in a new skeleton if
needed.
------------------------ Build JCL from Skeleton --------------------
OPTION ===>
Specify Output PDS Name ===> BDB204.VB.OUTPUT
List Dataset ===> BDB204.CAFILE
SKEL Member ===> CAFILE
DEFMODEL ... Your library of choice
DEFJC ... Your library of choice
COPT ... SYS3.OMEGAMON.LPAR.V5R1.RKD2PAR
DTCLASS ... NEW RACF CLASS FOR ICHERCDE
RKANPARU ... SYS3.OMEGAMON.LPAR.V5R1.RKANPARU(LPAR)
KCIRSV2 ... SYS3.OMEGAMON.LPAR.V5R1.RKANCMD
EQQICNVH ... Migrate IBM Workload Scheduler
LPAR ===> PROD
On Fri, Mar 25, 2022 at 12:15 AM Don Johnson <
[email protected]> wrote:
> Kolusu, here are the first 3 column definitions:
> CHAR(10) N.N.,
> CHAR(30) NOT NULL,
> CHAR(8) N.N.,
>
> As you can see, each of the columns is separated by a comma, which is
> outside of the parens. The N.N. is an abbreviation for Not Null, and the
> abbreviation is used when the column width is less than the width of that
> descriptor. In terms of separation of the columns, I believe that all the
> fields have NN or Not Null, so you can only distinguish each column
> attribute by "NULL," or "N.N.," here. Another option is to convert ") N.N."
> to ") NOT NULL" or vice-versa, if that makes parsing easier.
>
> As to the input file, it is VB, and the max data record length is 200 (so,
> VB-204). There are actually several files, but 200 is the longest.
>
> I could write a Rexx program to handle this, but if Sort could do it, it
> would be much simpler.
>
> Thanks again!
> Don
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Wayne V. Bickerdike
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
