NetCOBOL for SPARC Architecture SAF Subroutines User's Guide

COBOL program (SAFMAIN.cob)
Chapter 6. Samples 91
000010*---------------------------------------------------------*
000020* All Rights Reserved, Copyright© FUJITSU LIMITED 2000-2002 *
000030* *
000040* Filename: SAFMAIN.cob *
000050* Abstract: Example demonstrating the SAF subroutine *
000060*---------------------------------------------------------*
000070 identification division.
000080 program-id. SAF-MAIN.
000090 environment division.
000100 data division.
000110 working-storage section.
000120 copy COBW3.
000130*
000140 01 HTMLFilename pic X(64).
000150 01 pathName pic X(256).
000160 01 pathSize pic 9(05).
000170 01 copyStartPos pic 9(05).
000171 01 leftLength pic 9(05).
000180 01 AccessCount pic 9(05).
000190*
000200 linkage section.
000210 01 safCtx pointer
000220*
000230 procedure division using safCtx.
000240*
000250 SafSample1-Start.
000260*
000270* Initialize the work area for the SAF subroutine
000280 move low-value to COBW3.
000290 set COBW3-CONTEXT to safCtx.
000300*
000310* Initialize the SAF subroutine work environment and obtain
000320* a Web parameter.
000330 call "COBW3_INIT" using COBW3.
000340*
000350 move space to pathName.
000360*
000370 move "Your Access Counter" to COBW3-COOKIE-NAME.
000380 call "COBW3_GET_COOKIE" using COBW3.
000390 if program-status not = zero then
000400 move "SAFERROR.htm" to HTMLFilename
000410 performoutputScreenProc
000420 else if COBW3-SEARCH-FLAG-NON then
000430 move 1 to COBW3-COOKIE-VALUE
000440 perform entryAccessCounterProc
000450 move "SAFRPLY1.htm" to HTMLFilename
000460 perform outputscreenProc
000470 else
000480 perform outputContinuousScreenProc.
000490 end-if.
000500*
000510 Finish-Pos.
000520*
000530* Release the resource obtained by the SAF subroutine
000540 call "COBW3_FREE” using COBW3.
000550*
000560 SafSample1-End.
000570*
000580 exit program.
000590*
000600 outputContinuousScreenProc section.
000610* Registration of various conversion data
000620* Get the Cookie data for AccessCounter
000630 compute AccessCounter = function NUMVAL(COBW3-COOKIE-VALUE).
000640 add 1 to AccessCounter.
000650 move AccessCounter to COBW3-COOKIE-VALUE.
000660 move zero to COBW3-COOKIE-VALUE-LENGTH.
000670*