MFmainframe-rea
WS carddemo · 26f629ef

Data field · 2 statements in 1 program · all programsUSERIDI

0W · 1R · 1?

COSGN00C

conditionWHEN USERIDI OF COSGN0AI = SPACES OR LOW-VALUES
  1. EVALUATE TRUE
PROCESS-ENTER-KEY
COSGN00C.cbl:118
readMOVE FUNCTION UPPER-CASE(USERIDI OF COSGN0AI) TO WS-USER-ID CDEMO-USER-ID
PROCESS-ENTER-KEY
COSGN00C.cbl:132–134
Defined
02 USERIDI PIC X(8)
WORKING-STORAGE · in COSGN0AI · offset 200, 8 bytes
COSGN00.CPY:72 via COSGN00C.cbl:50
Program
COSGN00C