100 lines
1.4 KiB
Plaintext
Executable File
100 lines
1.4 KiB
Plaintext
Executable File
USE FCG
|
|
JOIN GCG TO 5 ALIAS 500 INTO CODTAB[1,1]==CODTAB
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
5->* "Formato del codice"
|
|
500->* "Gruppi codice"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 12
|
|
CARATTERE "X"
|
|
INIZIALE 5 2
|
|
FINALE 133
|
|
END
|
|
|
|
SECTION HEADER ODD 3
|
|
STRINGA 100 132 1
|
|
BEGIN
|
|
PROMPT 1 1 "----------------------------------------------------------------------------------------------"
|
|
END
|
|
STRINGA 101 132 1
|
|
BEGIN
|
|
PROMPT 21 2 "Tabella Gruppi Formato Codice Giacenze"
|
|
END
|
|
STRINGA 100 132 1
|
|
BEGIN
|
|
PROMPT 1 3 "----------------------------------------------------------------------------------------------"
|
|
END
|
|
END
|
|
|
|
SECTION BODY ODD 2
|
|
|
|
STRINGA 110 20 1
|
|
BEGIN
|
|
KEY "CODICE livelo"
|
|
PROMPT 2 1 "Livello "
|
|
FIELD CODTAB
|
|
END
|
|
|
|
STRINGA 111 50 1
|
|
BEGIN
|
|
KEY "DESCR.livelo"
|
|
PROMPT 12 1 ""
|
|
FIELD S0
|
|
END
|
|
|
|
STRINGA 112 18
|
|
BEGIN
|
|
KEY "FORM.livelo"
|
|
PROMPT 4 2 "Formato "
|
|
FIELD S1
|
|
//PICTURE "('','')"
|
|
END
|
|
|
|
SECTION GRUPPO 3 1 0 FILE -500
|
|
SECTION GRUPPI 1 1 1 GROUP
|
|
STRINGA 120 20 1
|
|
BEGIN
|
|
KEY "CODICE livelo"
|
|
PROMPT 12 1 ""
|
|
FIELD 500@->CODTAB[2,20]
|
|
END
|
|
|
|
STRINGA 121 50 1
|
|
BEGIN
|
|
KEY "DESCR.livelo"
|
|
PROMPT 32 1 ""
|
|
FIELD 500@->S0
|
|
END
|
|
END // GRUPPI
|
|
END
|
|
STRINGA 131 20 1
|
|
BEGIN
|
|
KEY "CODICE livelo"
|
|
FLAGS "H"
|
|
PROMPT 2 1 ""
|
|
END
|
|
|
|
|
|
END
|
|
|
|
SECTION FOOTER ODD 2
|
|
|
|
NUMERO 101
|
|
BEGIN
|
|
KEY "NUMPAGE"
|
|
PROMPT 50 2 ""
|
|
MESSAGE _PAGENO
|
|
PICTURE "- ### -"
|
|
END
|
|
|
|
END
|
|
|
|
|