How to append characters to a variable length record
Re: How to append characters to a variable length record
by rukkunudeen » Thu Jul 04, 2013 12:40 pm
This is the request from our customer. they are planning to remove fileaid from our mainframe TSO sessions by this month release (july 12th). So they have asked us to analyze all JCLs which are present in the system. If the JCL has a fileaid step convert it to sort/icetool/filemanager. While doing this task one of the JCL had a DD01 COPY PADCHAR=X'00' for a variable length file. We are not able to find the relevant syntax in any other utilities. The fileaid step is the first step in the JCL and the input comes from some other system. Kindly help us..
- rukkunudeen
- Posts: 8
- Joined: Wed Jul 03, 2013 7:48 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: How to append characters to a variable length record
by prino » Thu Jul 04, 2013 1:43 pm
Start writing a program, rather than whining on this forum, if you had done so straight away, you would not even have had to start this whole thread...
Robert AH Prins
robert.ah.prins @ the.17+Gb.Google thingy
robert.ah.prins @ the.17+Gb.Google thingy
-
prino - Posts: 635
- Joined: Wed Mar 11, 2009 12:22 am
- Location: Vilnius, Lithuania
- Has thanked: 3 times
- Been thanked: 28 times
Re: How to append characters to a variable length record
by NicC » Thu Jul 04, 2013 4:24 pm
done as it is urgent
No - it is not urgent. If it was, you would not have posted on the forum where a question may never even be replied to let alone resolved.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
Regards
Nic
- NicC
- Global moderator
- Posts: 3025
- Joined: Sun Jul 04, 2010 12:13 am
- Location: Pushing up the daisies (almost)
- Has thanked: 4 times
- Been thanked: 136 times
Re: How to append characters to a variable length record
by steve-myers » Thu Jul 04, 2013 5:00 pm
PAD00 CSECT
USING *,12
SAVE (14,12),,'PAD00 &SYSDATE &SYSTIME'
LR 12,15
LA 15,SAVEAREA
ST 15,8(,13)
ST 13,4(,15)
LR 13,15
OPEN (UT1,INPUT)
LH 1,(DCBLRECL-IHADCB)+UT1
LA 1,1(,1)
STH 1,(DCBLRECL-IHADCB)+UT2
OPEN (UT2,OUTPUT)
COPY GET UT1
LR 2,1
LH 3,0(,1)
LA 6,1(,3)
STH 6,(DCBLRECL-IHADCB)+UT2
PUT UT2
LR 4,1
LR 5,3
MVCL 4,2
STH 6,0(,1)
MVI 0(4),X'00'
B COPY
EOF CLOSE (UT1,,UT2)
LA 1,UT1
BAL 14,FREEPOOL
LA 1,UT2
BAL 14,FREEPOOL
L 13,4(,13)
RETURN (14,12),T,RC=0
CNOP 0,8
FREEPOOL BALR 15,0
SAVE (14,0),,FREEPOOL
FREEPOOL (1)
RETURN (14,0),T
SAVEAREA DC 9D'0'
PUSH PRINT
PRINT NOGEN
UT1 DCB DSORG=PS,MACRF=GL,DDNAME=SYSUT1,EODAD=EOF
UT2 DCB DSORG=PS,MACRF=PL,DDNAME=SYSUT2,RECFM=VB
DCBD DSORG=QS,DEVD=DA
POP PRINT
END PAD00
USING *,12
SAVE (14,12),,'PAD00 &SYSDATE &SYSTIME'
LR 12,15
LA 15,SAVEAREA
ST 15,8(,13)
ST 13,4(,15)
LR 13,15
OPEN (UT1,INPUT)
LH 1,(DCBLRECL-IHADCB)+UT1
LA 1,1(,1)
STH 1,(DCBLRECL-IHADCB)+UT2
OPEN (UT2,OUTPUT)
COPY GET UT1
LR 2,1
LH 3,0(,1)
LA 6,1(,3)
STH 6,(DCBLRECL-IHADCB)+UT2
PUT UT2
LR 4,1
LR 5,3
MVCL 4,2
STH 6,0(,1)
MVI 0(4),X'00'
B COPY
EOF CLOSE (UT1,,UT2)
LA 1,UT1
BAL 14,FREEPOOL
LA 1,UT2
BAL 14,FREEPOOL
L 13,4(,13)
RETURN (14,12),T,RC=0
CNOP 0,8
FREEPOOL BALR 15,0
SAVE (14,0),,FREEPOOL
FREEPOOL (1)
RETURN (14,0),T
SAVEAREA DC 9D'0'
PUSH PRINT
PRINT NOGEN
UT1 DCB DSORG=PS,MACRF=GL,DDNAME=SYSUT1,EODAD=EOF
UT2 DCB DSORG=PS,MACRF=PL,DDNAME=SYSUT2,RECFM=VB
DCBD DSORG=QS,DEVD=DA
POP PRINT
END PAD00
- steve-myers
- Global moderator
- Posts: 2105
- Joined: Thu Jun 03, 2010 6:21 pm
- Has thanked: 4 times
- Been thanked: 243 times
Re: How to append characters to a variable length record
by dick scherrer » Fri Jul 05, 2013 10:08 pm
Hello,
I suggest the urgency goes away when the product is extended.
Then someone needs to look into how the decision was made without knowing all of the uses of the product were "handled" in some way.
I suggest the urgency goes away when the product is extended.
Then someone needs to look into how the decision was made without knowing all of the uses of the product were "handled" in some way.
Hope this helps,
d.sch.
d.sch.
-
dick scherrer - Global moderator
- Posts: 6268
- Joined: Sat Jun 09, 2007 8:58 am
- Has thanked: 3 times
- Been thanked: 93 times
-
- Related topics
- Replies
- Views
- Last post
-
- Merge multiple fixed length files of different record length
by corvette1982 » Mon Mar 01, 2021 11:46 pm - 8 Replies
- 3164 Views
- Last post by willy jensen
Tue Mar 02, 2021 3:02 am
- Merge multiple fixed length files of different record length
-
- Dynamically know the length of a variable file ?
by diptisaini » Tue Sep 28, 2010 3:25 pm - 4 Replies
- 2431 Views
- Last post by diptisaini
Tue Sep 28, 2010 5:24 pm
- Dynamically know the length of a variable file ?
-
- How to specify the record length when send txt file to AS400
by bluesnow » Fri Mar 02, 2012 1:42 pm - 1 Replies
- 2423 Views
- Last post by enrico-sorichetti
Fri Mar 02, 2012 2:28 pm
- How to specify the record length when send txt file to AS400
-
- Re: How to append s file in FTP statement
by kumar253 » Wed Aug 06, 2008 3:18 pm - 5 Replies
- 3803 Views
- Last post by dick scherrer
Thu Aug 07, 2008 1:11 am
- Re: How to append s file in FTP statement
-
- Adding characters
1, 2by Samrita S » Sat Oct 08, 2011 11:21 am - 11 Replies
- 3646 Views
- Last post by Samrita S
Wed Oct 12, 2011 11:31 am
- Adding characters