Re: CGIDEV2

Sorry, I got confused. I use GetHtmlIFSMult, even when I have only one file.

0844.00 ******************************************************************
0845.00 * Prototype for GetHtmlIFSMult
0846.00 ******************************************************************
0847.00 * Loads arrays with HTML data from multiple IFS files.
0848.00
0849.00 * The arrays are subsequently used by wrtsection, etc.
0850.00
0851.00 * Inputs
0852.00 * ------
0853.00 * The IfsFiles parameter contains the names of the files. A blank
0854.00 * signifies the end of a file's name. The following limitations
0855.00 * apply:
0856.00 * - Maximum length per file name: 255 bytes not counting the
0857.00 * blank seperator
0858.00 * - Maximum length of all the input file names, including any
0859.00 * blank separators: 32767
0860.00 * - Maximum number of file names: 127
0861.00
0862.00 * All the files must use the same section name delimiters
0863.00 * and substitution variable delimiters.
0865.00 * The optional sectionDelimStart parameter is used to override
0866.00 * the default starting section delimiter of /$.
0867.00
0868.00 * The optional sectionDelimEnd parameter is used to override the
0869.00 * default non-existent ending section delimiter.
0870.00 *
0871.00 * The optional varDelimStart parameter is used to override the defau
0872.00 * start variable delimiter of /%
0873.00
0874.00 * The optional varDelimEnd parameter is used to override the default
0875.00 * end variable delimiter of %/
0876.00
0877.00 * Return value
0878.00 * ------------
0879.00 * GetHtmlIFSMult returns a data structure containing an array of six
0880.00 * indicators that can be checked to find out if any errors occurred.
0881.00 * The indicators and their meanings are:
0882.00 * - NoErrors: *on = no error occurred
0883.00 * *off = one or more errors. Check other indicato
0884.00 * - NameTooLong *on = one or file's name exceeds 255 characters
0885.00 * File is ignored.
0886.00 * - NotAccessible *on = File or directory not found, authorizatio
0887.00 * failure, etc. File is ignored.
0888.00 * - NoFilesUsable *on = All the files have been ignored.
0889.00 * - DupSections *on = One or more duplicate sections were found
0890.00 * Only the first occurrence is used.
0891.00 * - FileIsEmpty *on = File is empty and is ignored.
0892.00
0893.00 D GetHtmlIFSMult pr 6
0894.00 D IfsFiles 32767 const varying options(*varsize)
0895.00 D sectionDelim...
0896.00 D Start 20 const varying options(*nopass)
0897.00 D sectionDelim...
0898.00 D End 20 const varying options(*nopass)
0899.00 D varDelimStart 20 const varying options(*nopass)
0900.00 D varDelimEnd 20 const varying options(*nopass)