You must be logged in to use the copy button.

        
**Free
/if Defined(ifs_Create_File_PR)
dcl-pr ifs_FileClose int(10) extProc('close');
  p_FileHandle         int(10) value;
end-pr;

dcl-pr ifs_FileOpen int(10) extProc('open');
  p_FilePath           pointer value options(*string);
  p_OpenFlags          int(10) value;
  p_FileMode           int(10) value options(*nopass);
  p_FileCCSID          int(10) value options(*nopass);
end-pr;

dcl-c ifs_data_limit const(4096);

dcl-pr ifs_Create_File int(10);
/define ifs_Create_File_flds
/Endif

/if Defined(ifs_Create_File_PI)
dcl-pi *n              int(10);
/define ifs_Create_File_flds
/Endif

/if Defined(ifs_Create_File_flds)
  p_Directory          char(1024) const;
  p_File               char(1024) const;
/undefine ifs_Create_File_flds
/endif

/if Defined(ifs_Create_File_PR)
end-pr ifs_Create_File;
/undefine ifs_Create_File_pr
/Endif

/if Defined(ifs_Create_File_PI)
end-pi;
/undefine ifs_Create_File_pi
/Endif

//****************************************************************************
/if Defined(ifs_Write_File_PR)
dcl-pr ifs_Write_File ind;
/define ifs_Write_File_flds
/Endif

/if Defined(ifs_Write_File_PI)
dcl-pi *n             ind;
/define ifs_Write_File_flds
/Endif

/if Defined(ifs_Write_File_flds)
  p_FileHandle         int(10)               const;
  p_Data               char(ifs_data_limit)  const;
  p_Delimiter          char(20)              const  options(*noPass :*omit);
  p_NoEOL              ind                   const  options(*noPass);
/undefine ifs_Write_File_flds
/endif

/if Defined(ifs_Write_File_PR)
end-pr ifs_Write_File;
/undefine ifs_Write_File_pr
/Endif

/if Defined(ifs_Write_File_PI)
end-pi;
/undefine ifs_Write_File_pi
/Endif