|
View previous topic :: View next topic
|
| Author |
Message |
pritamkarwa
New User
Joined: 04 May 2023
Posts: 5
Location: India
|
|
|
|
Hi, it would be great if some one can help here.
My Input Data Looks like this-
.FIELD VAR1 101 DECIMAL(5);
.FIELD VAR2 104 DECIMAL(9,3);
.FIELD VAR3 109 DECIMAL(5,4);
.FIELD VAR4 112 CHAR(005);
.FIELD VAR5 117 CHAR(001);
.FIELD VAR6 118 CHAR(001);
.FIELD VAR7 119 DECIMAL(9,3);
.FIELD VAR8 124 CHAR(010);
.FIELD VAR9 134 CHAR(029);
.FIELD VAR10 163 CHAR(012);
.FIELD VAR11 175 CHAR(001);
.FIELD VAR12 176 CHAR(001);
.FIELD VAR13 177 CHAR(002);
I want this as OUTPUT-
101
104
112
117
So basically i need all numeric charaters after the variable name (eg. Var1), How can i achieve this?
_________________
Pritam |
|
| Back to top |
|
 |
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany
|
|
|
|
| As Enrico has pointed out, please explain the logic between Input and Output. It is absolutely not clear what your requirement is. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Quote: |
| So basically i need all numeric charaters after the variable name (eg. Var1), How can i achieve this? |
assuming that YOU mean NUMERIC VARIABLES ...
| Code: |
ok VAR1 101 DECIMAL(5);
ok VAR2 104 DECIMAL(9,3);
why not VAR3 109 DECIMAL(5,4);
why VAR4 112 CHAR(005);
why VAR5 117 CHAR(001);
...
why not VAR7 119 DECIMAL(9,3);
...
|
if you really wnat help you must do better than that |
|
| Back to top |
|
|
pritamkarwa
New User
Joined: 04 May 2023
Posts: 5
Location: India
|
|
|
|
Apologies for not explaining the requirement clearly.
Let me try to explain the requirement.
I have a input file like this (this is a load ready file for a database)
123456789
I dont have a copybook that maps to this but this file gets loaded to a teradata table so i have declaration available for the table. Say here we have VAR1 (123) VAR2 (456) and VAR3 (789)
My end aim is to achieve this -
123|456|789
Now the problem is - for me to insert pipe i need to know the position where each variable ends, and that i have to extract from table declaration.
So now the table declaration looks like this -
.FIELD VAR1 1 CHAR(3)
.FIELD VAR2 4 CHAR(3)
.FIELD VAR3 7 DECMIAL(9)
Here, 1 4 and 7 are starting position of each variable. So if i can extract this positions in one sort step, i can use these in next sort step to insert pipe in my original file.
I hope i am able to explain the requirement. Is there any better way to achieve this?
Note - i have multiple load ready files, so i need to keep this solution generic. |
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany
|
|
|
|
| Code: |
//WHATEVER EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//IN DD *
.FIELD VAR1 1 CHAR(3)
.FIELD VAR2 4 CHAR(3)
.FIELD VAR3 7 DECIMAL(9)
.FIELD VAR99999 32767 DECIMAL(9)
/*
//TMP DD DISP=(NEW,PASS),UNIT=SYSALLDA,SPACE=(CYL,(2,1))
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) TO(TMP) USING(PRSE)
RESIZE FROM(TMP) TO(OUT) TOLEN(32752) USING(PIPE)
/*
//PRSECNTL DD *
INREC IFTHEN=(WHEN=INIT,
PARSE=(%=(STARTAFT=C'.FIELD VAR',ENDAT=BLANKS,FIXLEN=8),
%01=(STARTAT=NUM,ENDBEFR=BLANKS,FIXLEN=5)),
BUILD=(%01,X))
END
/*
//PIPECNTL DD *
OUTFIL BUILD=(1,32752,SQZ=(SHIFT=LEFT,MID=C'|'))
END
/* |
|
|
| Back to top |
|
|
Joerg.Findeisen
Senior Member
Joined: 15 Aug 2015
Posts: 1255
Location: Bamberg, Germany
|
|
|
|
Basically the COPY task can be included in the RESIZE operation, so the temporary DSN will not be needed.
Maybe I have not fully understood the question, but look up how to PARSE a record by yourself. |
|
| Back to top |
|
|
pritamkarwa
New User
Joined: 04 May 2023
Posts: 5
Location: India
|
|
|
|
Hi,
I am halfway and achieved first part of what i am looking for. Need help in the second part.
I am posting my requirement again to be more clear -
Main requirement - I have a input file (say IP1) and i want to create a pipe delimited output file (OP2).
Now i dont know the exact position where i need to insert the pipe, as i dont have a copybook layout, but i have another file (IP2) that has starting position of each variable with some more data in the file. So i can extract this in Output OP1.
So i need to divide the requirement like this -
1. Use IP2 file to get the starting position of each variable and save in OP1
2. Use OP1 and IP1 to create a pipe delimited output OP2
| Code: |
Input File IP1
IASAMPLOP12345
|
| Code: |
Input File IP2
.FIELD VARABC 1 CHAR(001);
.FIELD VARBCD 2 CHAR(001);
.FIELD VARCDE 3 CHAR(005);
.FIELD VARDEF 8 CHAR(001);
.FIELD VAREFG 9 CHAR(001);
.FIELD VARFGH 14 DECIMAL(9,3);
|
| Code: |
Output File 2 OP2
1
2
3
8
9
14
|
I used below control card to get this -
| Code: |
OPTION COPY
INCLUDE COND=(1,80,SS,EQ,C'.FIELD')
INREC IFTHEN=(WHEN=INIT,
PARSE=(%=(STARTAFT=C'.FIELD ',ENDAT=BLANKS,FIXLEN=80),
%01=(STARTAT=NUM,ENDBEFR=BLANKS,FIXLEN=5)),
BUILD=(%01,X))
END
|
Now i need to use OP2 with IP1 to create below output -
I need some help around the second part on how to use the starting position and insert the pipe.
And please note this would be a generic solution, as the IP2 would always change and the position where the pipe needs to be inserted will also change with that. |
|
| Back to top |
|
|
sergeyken
Senior Member
Joined: 29 Apr 2008
Posts: 2023
Location: USA
|
|
|
|
The idea is initially stupid: creating a Syntax Parser based on the SORT utility.
It can be done, but it is a completely crazy software design. Likely suggested by “effective managers”? |
|
| Back to top |
|
|
|
|
