Mainframe is Back

SHELL:   PROCEDURE OPTIONS (MAIN);          DECLARE            ARRAY(50) FIXED BIN(15),            (K,N) FIXED BIN(15);          GET LIST(N);          GET EDIT((ARRAY(K) DO K = 1 TO N));          PUT EDIT((ARRAY(K) DO K = 1 TO N));          CALL BUBBLE(ARRAY,N); END BUBBLE;  [ Read More ]

HELLO: PROCEDURE OPTIONS (MAIN); /* A PROGRAM TO OUTPUT HELLO WORLD */ FLAG = 0; LOOP: DO WHILE (FLAG = 0); PUT SKIP DATA('HELLO WORLD!'); END LOOP; END HELLO;

This is some notes about a condition parameter ENDFILE. As we know , ENDFILE　is used for checking whether the read operation is reach the end of the input file,  for examp: