Generate output lines (SYSIN card for Fileaid) using values

justjpr · New User Joined: 03 Nov 2022 Posts: 30 Location: INDIA

My requirement is very simple - Generate SYSIN card for fileaid. Both i/p & o/p files are of type FB, LRECL 80. Input file has one to 10 lines. Each line will have 3 digit numbers separated by comma/space/both. These numbers should be written in the AND part of the COPY statement as shown in the example given below.

Our mainframe does not have DFSORT. SORT/ICETOOL/SYNCSORT is preferred in our project.

Input file:
190, 191, 241, 245, 246, 249, 252, 256, 257,
258, 282, 294, 355, 862, 982, 397

Output file:
//SYSIN DD *
$$DD01 COPY IF=(1200,EQ,C'T'),
AND=(17,EQ,C'190',C'191',C'241',C'245',
C'246',C'249',C'252',C'256',
C'257',C'258',C'282',C'294',
C'355',C'862',C'982',C'397')

I am able to do it using REXX for testing purpose. But REXX is not allowed in production our organisation. However SAS is allowed and I know it can be done easily in SAS. But I don't know how to this in SAS.

I need a JCL/SAS. Your help is highly appreciated.

Joerg.Findeisen · Posted: Thu Nov 03, 2022 9:45 am

Use the Code Tag Button when presenting Code/Data here. Also, what have you tried using SORT? When not having DFSORT, why do you post in the DFSORT section of the Forum?

You can use PARSE to find the numbers, and IFTHEN to check for empty variables. Remember that line breaks are OUTFIL specific.

justjpr · New User Joined: 03 Nov 2022 Posts: 30 Location: INDIA

I tried to generate "AND" part using ICETOOL.

Code :

//STP10 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
190, 191,
//T1 DD DSN=&&T1,DISP=(,PASS),SPACE=(TRK,(1,5),RLSE)
//T2 DD DSN=&&T2,DISP=(,PASS),SPACE=(TRK,(1,5),RLSE)
//T3 DD DSN=&&T3,DISP=(,PASS),SPACE=(TRK,(1,5),RLSE)
//T4 DD DSN=&&T4,DISP=(,PASS),SPACE=(TRK,(1,5),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) TO(T1) USING(CTL1)
RESIZE FROM(T1) TO(T2) TOLEN(16)
COPY FROM(T2) TO(T3) USING(CTL2)
COPY FROM(T3) TO(T4) USING(CTL3)
COPY FROM(T4) TO(OUT)
//CTL1CNTL DD *
OUTREC FINDREP=(INOUT=(C' ',C''))
//CTL2CNTL DD *
OUTREC FINDREP=(INOUT=(C',',C'QSCQ'))
//CTL3CNTL DD *
OUTREC FINDREP=(INOUT=(C'Q',X'7D',C'S',C','))
/*

Input file/data:
190, 191,

Output file:
190',C'191',C'
<4 empty lines>

Joerg.Findeisen · Posted: Thu Nov 03, 2022 10:39 am

justjpr · New User Joined: 03 Nov 2022 Posts: 30 Location: INDIA

Thanks much Joerg.Findeisen for your prompt response. It works perfectly.