La feria de abril en COBOL

[Arresembasaitus]

PERFORM 1000-INICIO.

THRU 1000-INICIO-EXIT.

 

PERFORM 3000-FERIA

THRU 3000-FERIA-EXIT

 

PERFORM 8000-FIN.

THRU 8000-FIN-EXIT.

 

 

1000-INICIO.

SET SI-DINERO TO TRUE

SET INICIO-FIESTA TO TRUE

MOVE 0 TO WS-TOT-FINOS

MOVE 15000 TO WS-DINERO

MOVE 15:00 TO WS-HORA.

1000-INICIO-EXIT.

EXIT.

 

3000-FERIA.

PERFORM 3100-TOMAR-REBUJITOS

THRU 3100-TOMAR-REBUJITOS-EXIT

UNTIL NO-DINERO OR

FIN-FIESTA.

3000-FERIA-EXIT.

EXIT.

 

3100-TOMAR-REBUJITOS.

PERFORM 3110-SELECT-CASETA

THRU 3110-SELECT-CASETA-EXIT

PERFORM 3120-INSERT-TODO

THRU 3120-INSERT-TODO-EXIT

 

ADD WS-TOT-FINOS = WS-TOT-FINOS + T111-REBUJITOS

ADD 1:00 TO WS-HORA

COMPUTE WS-DINERO = WS-DINERO - T111-PRECIO

IF WS-TOT-FINOS > 10

PERFORM 3200-DELETE-TODO

THRU 3200-DELETE-TODO-EXIT

MOVE 0 TO WS-TOT-FINOS

END-IF.

IF WS-DINERO < 0

SET NO-DINERO TO TRUE

END-IF

 

IF WS-HORA >= 7:00

SET FIN-FIESTA TO TRUE

END-IF.

3100-TOMAR-REBUJITOS-EXIT.

EXIT.

 

8000-FIN.

EVALUATE TRUE

WHEN NO-DINERO ALSO FIN-FIESTA

GOTO ANDANDO-AL-TRABAJO

 

WHEN SI-DINERO ALSO FIN-FIESTA

GOTO TAXI-TRABAJO

 

WHEN NO-DINERO ALSO INICIO-FIESTA

GOTO ANDANDO-A-CASA

 

WHEN SI-DINERO ALSO FIN-FIESTA

GOTO CHURROS

END-EVALUATE.

 

STOP RUN.

8000-FIN-EXIT.

EXIT.

 

3110-SELECT-CASETA.

EXEC SQL

SELECT :T111-REBUJITOS,

:T111-BOTELLA-FINO,

:T111-TAPA-CHORIZO,

:T111-TAPA-QUESO,

:T111-TAPA-CALAMARES,

:T111-TAPA-JAMON

FROM T1CASETA

 

WHERE CASETA = 'ACCESO LIBRE'

END-EXEC.

IF SQLCODE = 100

SET FIN-FIESTA TO TRUE

GOTO 8000-FIN

END-IF.

3110-SELECT-CASETA-EXIT.

EXIT.

 

3120-INSERT-TODO.

MOVE T111-REBUJITOS TO WS-BEBIDA-1

MOVE T111-BOTELLA-FINO TO WS-BEBIDA-2

MOVE T111-TAPA-CHORIZO TO WS-COMIDA-1

MOVE T111-TAPA-QUESO TO WS-COMIDA-2

MOVE T111-TAPA-CALAMARES TO WS-COMIDA-3

MOVE T111-TAPA-JAMON TO WS-COMIDA-4

MOVE WS-BEBIDA-COMIDA TO T112-ESTOMAGO

EXEC SQL

INSERT INTO T1TRIPA

(ESTOMAGO)

VALUES

(:T112-ESTOMAGO)

END-EXEC.

IF SQLCODE NOT = ZEROES

GOTO URGENCIAS

END-IF.

3120-INSERT-TODO-EXIT.

EXIT.

 

3200-DELETE-TODO.

EXEC SQL

DELETE * FROM T1TRIPA

END-EXEC.

IF SQLCODE NOT = ZEROES

GOTO URGENCIAS

END-IF.

3200-DELETE-TODO-EXIT.

EXIT.

[cascadeur]

Que tiempos, has probado a compilarlo.

[Galliani]

no lo compiles, que cascas el ordenata, cuando lo ejecutes... :cry2: