I'm having a complete mental block! My business analyst wants one field of a document to print in reverse type in a specific situation. I created the PRTF with 2 fields. I can print reverse or not reverse, but I can't seem to switch between the two. I added an indicator to one field and turn it on and off appropriately. Please tell me, what am I missing?
PRTF:
STICKER1 20A -
FNTCHRSET(QFNT18/CZB60C -
T1V10284 (*POINTSIZE 20))
POSITION(6.60 0.10)
86 STICKER2 20A -
FNTCHRSET(QFNT18/CZB600 -
T1V10284 (*POINTSIZE 20))
POSITION(6.60 0.10)
COBOL:
IF WS-Stck-value = 'XXX' OR SPACES
MOVE WS-Stick-Text TO STICKER1
ELSE
MOVE WS-ON TO FG-IND(86)
STRING FUNCTION TRIMR(WS-STICK-TEXT)
'*********'
DELIMITED BY SIZE INTO STICKER2.
Thank you so much - I just need my brain jump-started, I think. Unfortunately, the only other developer here who works in AS400/COBOL is unable to help with this one!
PRTF:
STICKER1 20A -
FNTCHRSET(QFNT18/CZB60C -
T1V10284 (*POINTSIZE 20))
POSITION(6.60 0.10)
86 STICKER2 20A -
FNTCHRSET(QFNT18/CZB600 -
T1V10284 (*POINTSIZE 20))
POSITION(6.60 0.10)
COBOL:
IF WS-Stck-value = 'XXX' OR SPACES
MOVE WS-Stick-Text TO STICKER1
ELSE
MOVE WS-ON TO FG-IND(86)
STRING FUNCTION TRIMR(WS-STICK-TEXT)
'*********'
DELIMITED BY SIZE INTO STICKER2.
Thank you so much - I just need my brain jump-started, I think. Unfortunately, the only other developer here who works in AS400/COBOL is unable to help with this one!
Comment