Pathway/iTS SCREEN COBOL Reference Manual (H06.10+, J06.03+)

Procedure Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
6-135
TURN Statement
MESSAGE SECTION.
01 MS-SOURCE PIC X(102) FROM WS-SOURCE.
01 DESTINATION-TEMP-1.
05 MS-DEST-1-FLD1 PIC X(30) TO WS-DEST-1-FLD1.
05 FILLER PIC 9(4) COMP.
05 MS-DEST-1-FLD2 PIC X(20) TO WS-DEST-1-FLD2.
05 MS-DEST-1-FLD3 PIC X(50) TO WS-DEST-1-FLD3.
01 DESTINATION-TEMP-2.
05 MS-DEST-2-FLD1 PIC X(30) TO WS-DEST-2-FLD1.
05 FILLER PIC 9(4) COMP.
05 MS-DEST-2-FLD2 PIC X(30) TO WS-DEST-2-FLD2.
05 MS-DEST-2-FLD3 PIC X(40) TO WS-DEST-2-FLD3.
PROCEDURE DIVISON.
TRANSFORM MS-SOURCE
SELECT CODE FIELD IS WS-SEL-CODE-FIELD OF WS-CODE-MSG
CODE SC1 YIELDS DESTINATION-TEMP-1
CODE SC2 YIELDS DESTINATION-TEMP-2
ON ERROR PERFORM ERROR-HANDLER.
TURN Statement
The TURN statement changes the display attributes of screen variable fields. The
TURN statement cannot be used by programs communicating with intelligent devices.
TURN [ TEMP ] { [ mnemonic-name ] }
[ TEMPORARY ] { [ DYNAMIC ] }
[ RECEIVE FROM { ALTERNAL } }
{ {ALTERNATE OR TERMINAL} }
{ {TERMINAL } }
{ {TERMINAL OR ALTERNATE} }
IN
{ screen-identifier } [,]... [ DEPENDING [ON] identifier ]
[ SHADOWED ]