10
Un ex compañero de trabajo nos dejó con miles de líneas de código que se ven así. Esto es más una curiosidad, ya que reescribí todo lo que hizo en idiomas menos oscuros :-)¿Qué es este lenguaje?
Sin embargo, tengo curiosidad. ¿Es este meta-código o un lenguaje real?
DATA DIVISION.
WORKING-STORAGE SECTION.
78 dialog-system VALUE "DIV".
01 Display-Error.
03 Display-Error-No PIC 9(4) comp-5.
03 Display-Details-1 PIC 9(4) comp-5.
03 Display-Details-2 PIC 9(4) comp-5.
05 Display-Details-3 PIC 9(4) comp-5.
COPY "DS-CNTRL.MF".
COPY "ThisApp.txt".
PROCEDURE DIVISION.
*---------------------------------------------------------------*
Main-Process SECTION.
PERFORM Program-Initialize
PERFORM Program-Body UNTIL EXIT-FLAG-TRUE
PERFORM Program-Terminate
.
*---------------------------------------------------------------*
Program-Initialize SECTION.
INITIALIZE Ds-Control-Block
INITIALIZE Data-block
MOVE Data-block-version-no
TO Ds-Data-Block-Version-No
MOVE Version-no TO Ds-Version-No
MOVE Ds-New-Set TO Ds-Control
MOVE "MyApp" TO Ds-Set-Name
.
*---------------------------------------------------------------*
Program-Body SECTION.
PERFORM Call-Dialog-System
.
*---------------------------------------------------------------*
Program-Terminate SECTION.
STOP RUN
.
*---------------------------------------------------------------*
Call-Dialog-System SECTION.
CALL dialog-system USING Ds-Control-Block,
Data-Block
IF NOT Ds-No-Error
MOVE Ds-System-Error TO Display-error
DISPLAY "DS ERROR NO: " Display-error-no
DISPLAY "Error Details(1) : " Display-Details-1
DISPLAY "Error Details(2) : " Display-Details-2
DISPLAY "Error Details(3) : " Display-Details-3
PERFORM Program-Terminate
END-IF