Open racmichel opened 1 year ago
Examples: Dcl-F EMPLDATA usage(INPUT) ; Dcl-F EMPTRN usage(INPUT:*UPDATE);
READ(E) E MPLDATA; DOW NOT %EOF(EMPLDATA); IF EMPLSTATUS = 'A'; PAY = HOURS * RATE; ELSE; PAY = 0; ENDIF; WRITE(E) E MPTRN; READ(E) E MPLDATA; **C MOVE '13' CVAR** ENDDO; RETURN;
Examples: Dcl-F EMPLDATA usage(INPUT) ; Dcl-F EMPTRN usage(INPUT:*UPDATE);