26 lines
795 B
COBOL
26 lines
795 B
COBOL
IDENTIFICATION DIVISION.
|
|
program-id. mentry.
|
|
AUTHOR. InfoCont Sistemas Integrados (Fernando).
|
|
DATE-WRITTEN. 09/02/1998.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
SOURCE-COMPUTER. HP-E35.
|
|
SPECIAL-NAMES.
|
|
DECIMAL-POINT IS COMMA.
|
|
DATA DIVISION.
|
|
WORKING-STORAGE SECTION.
|
|
01 TCL-DADOS.
|
|
03 W03-PICX PIC X(10) VALUE SPACES.
|
|
01 NOME-PROGRAMA PIC X(10) VALUE SPACES.
|
|
SCREEN SECTION.
|
|
PROCEDURE DIVISION.
|
|
CALL "initTcl".
|
|
MOVE "mentry.tcl" TO NOME-PROGRAMA.
|
|
CALL "tcleval" USING TCL-DADOS NOME-PROGRAMA.
|
|
CALL "newGui"
|
|
* CALL "endTcl"
|
|
* CALL "initTcl"
|
|
CALL "tcleval" USING TCL-DADOS NOME-PROGRAMA.
|
|
STOP RUN.
|
|
|