Code Comments
Programming Forum and web based access to our favorite programming groups.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.
Post Follow-up to this messageWell, 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. > >
Post Follow-up to this messagePowered by vBulletin
Copyright 2000-2006 Jelsoft Enterprises Limited.