Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Can we Redefine FILLER..?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
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    Post subject: Can we Redefine FILLER..?
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    Post subject:
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    Post subject: Re: Can we Redefine FILLER..?
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    Post subject:
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: 6
Location: hyderabad

PostPosted: Sat Feb 07, 2009 8:17 pm    Post subject: no we can't straight
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: 7989
Location: Bellevue, IA

PostPosted: Sat Feb 07, 2009 8:40 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10231
Location: italy

PostPosted: Sat Feb 07, 2009 9:14 pm    Post subject: Reply to: Can we Redefine FILLER..?
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    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Redefine Numeric to Alphanumeric suraaj COBOL Programming 4 Mon Oct 06, 2014 9:16 pm
No new posts COPY BOOK with FILLER Chetan Kumar COBOL Programming 14 Sat May 31, 2014 7:58 pm
No new posts Initializing filler default value whe... dsivapradeep COBOL Programming 6 Thu Feb 13, 2014 11:17 am
No new posts Multiple 400-byte redefine layouts &a... Scott McC Compuware & Other Tools 14 Tue Jul 23, 2013 10:15 pm
No new posts Replacing variable with FILLER in a C... Anuj Dhawan COBOL Programming 15 Wed Jan 02, 2013 6:22 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us