COBOL - Perguntas e respostas 02
Perguntas e respostas pesquisadas na internet. Com mais tempo, provavelmente, faremos a tradução para o português.
FD FILENAME DATA RECORDS ARE RD01, RD02, RD03. 01 RD01 PIC X(n). 01 RD02 PIC X(n). 01 RD03 PIC X(n).
01 WS-TABLE. 03 WS-TABLE-EL OCCURS 5 TIMES. 04 FILLER-X PIC X(1) VALUE 'A'. 04 WS-EX REDEFINES FILLER-X PIC X(1).
01 WS-TABLE. 03 FILLER-X PIC X(5) VALUE 'AAAAA'. 03 WS-EX REDEFINES FILLER-X. 04 WS-TABLE-EL OCCURS 5 TIMES PIC X(1).
01 WS-TABLE. 03 FILLER-X PIC X(5) VALUE 'AAAAA'. 03 WS-EX REDEFINES FILLER-X OCCURS 5 TIMES PIC X(1).
EVALUATE EVALUATE SQLCODE ALSO FILE-STATUS WHEN A=B AND C = D WHEN 100 ALSO '00' Imperative stmt imperative stmt WHEN (D + X) / Y = 4 WHEN -305 ALSO '32' imperative stmt imperative stmt WHEN OTHER WHEN OTHER imperative stmt imperative stmt END-EVALUATE END-EVALUATE EVALUATE SQLCODE ALSO A = B EVALUATE SQLCODE ALSO TRUE WHEN 100 ALSO TRUE WHEN 100 ALSO A = B imperative stmt imperative stmt WHEN -305 ALSO FALSE WHEN -305 ALSO (A / C = 4) imperative stmt imperative stmt END-EVALUATE END-EVALUATE