Hola.
No me sale :eek:
No me reconoce el special names.
Código COBOL:
ENVIRONMENT-NAME IS ENV1
ENVIRONMENT-VALUE IS ENV2
(Powercobol v9)
Código:
listar-base SPECIAL-NAMES(2) : JMN1123I-S An invalid word 'ENVIRONMENT-NAME' was found. The invalid word and any following code is ignored until the next valid paragraph, section or division.
listar-base (283) : JMN5100I-S The class-name specified in the USAGE OBJECT REFERENCE clause is invalid. The class-name is ignored.
Citación del post de
Joseg
|
❞
MinHa sugestão:
Código COBOL:
SPECIAL-NAMES. ENVIRONMENT-NAME IS ENV1 ENVIRONMENT-VALUE IS ENV2 WORKING-STORAGE. 01 WENVVALOR PIC X(100). PROCEDURE DIVISION. DISPLAY "ProgramW6432" UPON ENV1 ACCEPT WENVVALOR FROM ENV2 IF WENVVALOR = SPACES MOVE "prog32" TO wPprog *> 32Bits ELSE MOVE "prog64" TO wPprog *> 64Bits END-IF
|