NetCOBOL for SPARC Architecture SAF Subroutines User's Guide
NetCOBOL for SPARC Architecture SAF Subroutines User's Guide
NetCOBOL for SPARC Architecture SAF Subroutines User's Guide
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Web page <strong>for</strong> invoking the applications<br />
:<br />
<br />
<br />
Send file:<br />
<br />
<br />
<br />
:<br />
Chapter 3. How to Use <strong>SAF</strong> <strong>Subroutines</strong> 19<br />
Web application (COBOL source)<br />
:<br />
WORKING-STORAGE SECTION.<br />
COPY COBW3.<br />
PROCEDURE DIVISION.<br />
*<br />
CALL “COBW3_INIT” USING COBW3.<br />
*<br />
*GET INFORMATION OF UPLOADED FILE<br />
MOVE “UPFILE” TO<br />
COBW3-SEARCH-DATA.<br />
CALL “COBW3_GET_UPLOADFILE_INFO”<br />
USING COBW3.<br />
IF COBW3-SEARCH-FLAG-NON THEN<br />
Error Processing<br />
END-IF.<br />
*SET GENERATION FILE-NAME<br />
MOVE “File-A” TO<br />
COBW3-UPLOADED-FILENAME.<br />
CALL “COBW3_GEN_UPLOADFILE”<br />
USING COBW3.<br />
IF COBW3-STATUS NOT = ZERO THEN<br />
Error Processing<br />
END-IF.<br />
*************************************************<br />
*<br />
* Any processing <strong>for</strong> uploaded files<br />
*<br />
*************************************************<br />
*DELETION UPLOADED FILES<br />
CALL “COBW3_DEL_UPLOADFILE”<br />
USING COBW3.<br />
CALL “COBW3_PUT_HTML”<br />
USING COBW3.<br />
CALL “COBW3_FREE” USING COBW3.