Code Comments

Programming Forum and web based access to our favorite programming groups.
For Programmers: Free Programming Magazines | New: Database administration forum
Registration is free! Edit your profileCalendarFind other membersFrequently Asked QuestionsSearch -> 
Post New Thread











Thread
Author

COBOL screen redefinition question
I have the following field on a screen in a COBOL program...

06 F-RCV-DATE         PIC X(08)        ROW 08 COLUMN 64
SOURCE IS S-RCV-DATE
OBJECT IS S-RCV-DATE.

...defined as...

03 S-RCV-DATE       PIC X(08).
03 FILLER REDEFINES S-RCV-DATE.
04 S-SPL-LIST    PIC X(02).
04 F-SPL-QTY     PIC X(01).
04 S-SPL-QTY     PIC Z(05).

Using a PF-KEY switch, I'm either moving something into S-RCV-DATE or the
three redifined fields.  Problem is, even though S-SPL-QTY is defined as a
"Z" field, it acts like an "X".  (Example:  I key in a "20", which stays
left-justified and is ultimately saved as "20000".)  Is there any EASY way
to get what I'm looking for here without creating a whole second "twin"
screen or performing wacky routines to make the "X" into a "Z"????  Thanks!

John B.



Report this thread to moderator Post Follow-up to this message
Old Post
John B.
05-23-07 02:55 AM


Re: COBOL screen redefinition question
Well, I came up with a clunky solution...  Moving the S-SPL-QTY with
conversion to the numeric field I want it to end up in.  Doesn't make for a
pretty screen upon hitting enter, but it saves it correctly and brings it up
next time as such.

John B.

"John B." <jlb@computac.com> wrote in message
news:1179859928.887746@nfs-db1.segnet.com...
> I have the following field on a screen in a COBOL program...
>
>          06 F-RCV-DATE         PIC X(08)        ROW 08 COLUMN 64
>             SOURCE IS S-RCV-DATE
>             OBJECT IS S-RCV-DATE.
>
> ...defined as...
>
>        03 S-RCV-DATE       PIC X(08).
>        03 FILLER REDEFINES S-RCV-DATE.
>           04 S-SPL-LIST    PIC X(02).
>           04 F-SPL-QTY     PIC X(01).
>           04 S-SPL-QTY     PIC Z(05).
>
> Using a PF-KEY switch, I'm either moving something into S-RCV-DATE or the
> three redifined fields.  Problem is, even though S-SPL-QTY is defined as a
> "Z" field, it acts like an "X".  (Example:  I key in a "20", which stays
> left-justified and is ultimately saved as "20000".)  Is there any EASY way
> to get what I'm looking for here without creating a whole second "twin"
> screen or performing wacky routines to make the "X" into a "Z"????
Thanks!
>
> John B.
>
>



Report this thread to moderator Post Follow-up to this message
Old Post
John B.
05-23-07 02:55 AM


Sponsored Links




Last Thread Next Thread Next
Search this forum -> 
Post New Thread

Cobol archive

Show a Printable Version Send to friend Email This Page to Someone! subscribe to this thread Receive updates to this thread
Computer Consultants
Programming Jobs
Visual Basic Controls
SQL Server Programming
Webservices
Java Security
Visual Studio
C# Programming
Visual J++
Software engineering
Open source Software
Perl Programming
PHP Programming
ASP Programming
ASP .NET Programming
Visual Basic Programming
Windows Scripting Host
Java Programming
Java Help
Java Beans
VBScript
Cobol
MAC Applications
Unix Programming
Forum Jump:
All times are GMT. The time now is 05:50 PM.

 
Free MCSE Braindumps | Real Estate Topics

Programming forum archive

Copyrights CodeComments.com 2004 - 2006

Powered by vBulletin Copyright 2000-2006 Jelsoft Enterprises Limited.