[fastpho]

Hola @Fito , los campos se pueden trabajar con nivel 01 o 77 pasando las varialbles por

REFERENCE

Si vas a trabajar con el nivel 01 subdivido tenes pasar las variables por

CONTENT

Ejemplo de Escritura con subdivisiones

 WORKING-STORAGE SECTION.
 01 FileName        PIC X(24)   VALUE "C:FSC5WORKFTP.INI" & X"00".  
 01 Variables-INI.
    02  PARM1     PIC X(6).         *> Application name
    02  PARM2     PIC X(5).         *> Key Name
    02  PARM3     PIC X(128).       *> Value Write
    02  PARM4     PIC X(128).       *> FileName INi.  
    02  PARM5     PIC S9(9) COMP-5.
 
 PROCEDURE       DIVISION.
     
         
     MOVE   "Config"            TO  PARM1       *> Application name
     MOVE   "Clave"                 TO  PARM2       *> Key Name
     MOVE   "Fito 500 " & X"00" TO  PARM3       *> Value Write
     MOVE   FileName        TO  PARM4            *> FileName INi
     CALL   "WritePrivateProfileStringA"    WITH STDCALL LINKAGE
            USING   BY CONTENT  PARM1  
                BY CONTENT  PARM2  
                BY CONTENT  PARM3  
            BY CONTENT  PARM4  
                    RETURNING   PARM5. 

Saludos...