
unstring
Publicado por Abraham (1 intervención) el 06/09/2021 22:23:46
Como puedo encontrar el error o los errores en el siguiente código:
IDENTIFICATION DIVISION.
PROGRAM-ID. SOLUTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS.
02 WS-NUMBER-1.
03 WS-BUFF-1 PIC X(4).
03 WS-NUM-1 PIC 9(4).
02 WS-NUMBER-2.
03 WS-BUFF-2 PIC X(4).
03 WS-NUM-2 PIC 9(4).
LINKAGE SECTION.
01 LS-IN.
05 LS-IN-A X(4).
05 LS-IN-B 9(4).
05 LS-IN-C X(4).
05 LS-IN-D 9(4).
01 LS-OUT.
05 LS-OUT-RETURN-CODE PIC 9(2).
88 LS-OUT-RC-OK VALUE 00.
88 LS-OUT-RC-PROGRAM-ERROR VALUE 08.
05 LS-OUT-VALUE PIC 9(4).
PROCEDURE DIVISION USING LS-IN LS-OUT.
INITIALIZE WS.
UNSTRING LS-IN DELIMITED BY ALL SPACES
INTO
WS-BUFF-1
WS-BUFF-2
END-UNSTRING
MOVE function numval(LS-IN-B) TO WS-NUM-1
MOVE function numval(LS-IN-D) TO WS-NUM-2
MOVE WS-NUM-1 TO LS-OUT-VALUE
ADD WS-NUM-2 TO LS-OUT-VALUE
GOBACK.
IDENTIFICATION DIVISION.
PROGRAM-ID. SOLUTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS.
02 WS-NUMBER-1.
03 WS-BUFF-1 PIC X(4).
03 WS-NUM-1 PIC 9(4).
02 WS-NUMBER-2.
03 WS-BUFF-2 PIC X(4).
03 WS-NUM-2 PIC 9(4).
LINKAGE SECTION.
01 LS-IN.
05 LS-IN-A X(4).
05 LS-IN-B 9(4).
05 LS-IN-C X(4).
05 LS-IN-D 9(4).
01 LS-OUT.
05 LS-OUT-RETURN-CODE PIC 9(2).
88 LS-OUT-RC-OK VALUE 00.
88 LS-OUT-RC-PROGRAM-ERROR VALUE 08.
05 LS-OUT-VALUE PIC 9(4).
PROCEDURE DIVISION USING LS-IN LS-OUT.
INITIALIZE WS.
UNSTRING LS-IN DELIMITED BY ALL SPACES
INTO
WS-BUFF-1
WS-BUFF-2
END-UNSTRING
MOVE function numval(LS-IN-B) TO WS-NUM-1
MOVE function numval(LS-IN-D) TO WS-NUM-2
MOVE WS-NUM-1 TO LS-OUT-VALUE
ADD WS-NUM-2 TO LS-OUT-VALUE
GOBACK.
Valora esta pregunta


0