NetCOBOL for SPARC Architecture SAF Subroutines User's Guide

Appendix C. Architecture of a NetCOBOL SAF
Application
Commodity subscription
screen
Unit price 200
A 1
Unit price 300
B 3
Unit price 100
C 4
Submit Cancel
Confirmation screen
Application data has been
registered.
Name Quantity Sum
A 1 200
B 3 900
C 4 400
Return
NES
SAF
Director
IDENTIFICATION DIVISION.
PROGRAM-ID. SAFMAIN01.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
WORKING-STORAGE SECTION.
COPY COBW3.
:
LINKAGE SECTION.
01 SAFCTX POINTER.
PROCEDURE DIVISION USING SAFCTX.
MOVE LOW-VALUE TO COBW3.
SET COBW3-CONTEXT TO SAFCTX.
*
CALL "COBW3_INIT" USING COBW3.
*Acquisition of data
MOVE “PRICEA” TO COBW3-SEARCH-DATA.
CALL “COBW3_GET_VALUE” USING COBW3.
:
*Registration of data
MOVE “Quant i t y1” TO COBW3- CNV- NAME.
MOVE O-QUANTITY1 TO COBW3-CNV-VALUE.
CALL “COBW3_SET_CNV” USING COBW3.
:
*Setting path of result page
SET COBW3-PHYSICAL-PATH TO TRUE.
CALL "COBW3_GET_REQUEST_INFO" USING COBW3.
MOVE SPACE TO COBW3-HTML-FILENAME..
MOVE PATHNAME (1:PATHSIZE) TO
COBW3-HTML-FILENAME.
COMPUTE COPYSTARTPOS = PATHSIZE + 1.
MOVE "/" TO
COBW3-HTML-FILENAME (COPYSTARTPOS : 1).
COMPUTE COPYSTARTPOS = COPYSTARTPOS+1.
COMPUTE LEFTLENGTH = 256 – COPYSTARTPOS.
MOVE HTMLFILENAME TO
COBW3-HTML-FILENAME (COPYSTARTPOS : 256).
*
CALL "COBW3_PUT_HTML" USING COBW3.
*
CALL "COBW3_FREE" USING COBW3.
*
EXIT PROGRAM.
…
Application data has been
registered.
Name
Quantity
Sum
A
//COBOL//Quantity1//COBOL//
//COBOL//Sum1//COBOL//