WikASi - Un peu de tout sur le i

DCL VAR(&QUOTE) TYPE(*CHAR) LEN(1) VALUE(X'7D')
DCL VAR(&AROBAS) TYPE(*CHAR) LEN(1) VALUE(X'7C')
DCL VAR(&AROB44) TYPE(*CHAR) LEN(1) VALUE(X'44')

DCL &FILLIB *CHAR 20
DCL &FILE *CHAR LEN(10) STG(*DEFINED) DEFVAR(&FILLIB 01)
DCL &LIB *CHAR LEN(10) STG(*DEFINED) DEFVAR(&FILLIB 11)

 Dcl &HEX1      *char (1) VALUE(X'01')     
 Dcl &HEX2      *char (1) VALUE(X'02')     
 Dcl &HEX3      *char (1) VALUE(X'03')     
 Dcl &HEX4      *char (1) VALUE(X'04')     
 Dcl &HEX10     *char (1) VALUE(X'10')     
 Dcl &HEX11     *char (1) VALUE(X'11')     
 Dcl &HEX12     *char (1) VALUE(X'12')     
 Dcl &HEX13     *char (1) VALUE(X'13')     
 Dcl &HEX14     *char (1) VALUE(X'14')     
 Dcl &HEX15     *char (1) VALUE(X'15')     
 Dcl &HEX1D     *char (1) VALUE(X'1D')     

DCLF FILE(LOXTEMP/FAC0235P) OPNID(FILE1)ALWVARLEN(*YES) ALWNULL(*YES) ALWGRAPHIC(*YES)

                                              
 DCLF  FILE(*LIBL/QAEABKMT)  /* Support RCDLEN(80) */ 
 DCLF  FILE(*LIBL/QATMPOPA)  /* Support RCDLEN(100) Zone CHARFIELD */