==== Déclarations DCL ====

=== Apostrophe ' & Arobas @ ===
 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')\\  

=== Variables === 

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

=== Zones hexadecimales non affichables ===

   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')     


=== Fichier via IFS === 

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


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