IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Can we Redefine FILLER..?


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
srini_igsi
Currently Banned

New User


Joined: 09 Dec 2005
Posts: 30
Location: Pune

PostPosted: Fri Dec 23, 2005 4:23 pm
Reply with quote

Hi
1. Can we Redefine FILLER..?
2. Can we apply Ref. Modification on FILLER...?

My requirement is that i have a FILLER with the PIC clause X(200), One of the incomming field is overwriting the FILLER from the position 70 to 80, so how can i trap these 10 chars..?

One way is i can simply replace the FILLER with another field on which i can apply the Ref. Modification.

Other than this is there any other technique to trap those 10 chars thru prog logic with out disturbing the CopyBook..?
Back to top
View user's profile Send private message
umeshkmrsh

New User


Joined: 21 Sep 2005
Posts: 79
Location: India

PostPosted: Fri Dec 23, 2005 6:16 pm
Reply with quote

No we cannot redefine a FILLER nor can use reference modification for it.
But you can retrive the desired char using reference modification at the group level under which your filler is defined.

For example:

01 A.
05 B PIC X(10).
05 FILLER PIC X(200).
05 C PIC X(10).

Now you can use A(80:10) in order to refer 10 chars from 70-to-80.
Back to top
View user's profile Send private message
srini_igsi
Currently Banned

New User


Joined: 09 Dec 2005
Posts: 30
Location: Pune

PostPosted: Sat Dec 24, 2005 1:22 pm
Reply with quote

OK THX
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sat Dec 24, 2005 10:19 pm
Reply with quote

Hi Reddy,

Remember, FILLER is not a unique name.
Back to top
View user's profile Send private message
haiardhan

New User


Joined: 26 Jul 2008
Posts: 7
Location: india

PostPosted: Sat Feb 07, 2009 8:17 pm
Reply with quote

IDENTIFICATION DIVISION.
PROGRAM-ID. REDIFINE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FILLER PIC X(6) VALUE IS 'JAANU'.
01 WS-OUTNAME REDEFINES FILLER.
05 FIRSTNAME PIC X(14) .
05 LASTNAME PIC X(15).
PROCEDURE DIVISION.
MOVE 'JANARDHAN' TO FIRSTNAME.
MOVE 'MANCHIKANTI' TO LASTNAME.
DISPLAY WS-OUTNAME.
STOP RUN.
It will asks for a variable insted of filler at o1 level
givs error like
User-name required at filler
COBCH0029S Not a data name :for ws-out name
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Sat Feb 07, 2009 8:40 pm
Reply with quote

Any particular reason you're posting to a topic that was last updated more than 3 years ago?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sat Feb 07, 2009 9:14 pm
Reply with quote

Hi Robert!
did You look at the other posts from the same guy?!
"cold cases squad" syndrome icon_lol.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Need to add field to copybook, proble... COBOL Programming 14
No new posts File transfer from host with filler f... TSO/ISPF 15
No new posts Reformatting and adding additional fi... SYNCSORT 6
No new posts Easytrive Redefine CA Products 4
No new posts Redefine SYS1.PROCLIB JCL & VSAM 12
Search our Forums:

Back to Top