NetCOBOL for SPARC Architecture SAF Subroutines User's Guide

WORKING-STORAGE SECTION.
COPY COBW3
Chapter 2. Creating Web Applications Using SAF Subroutines 11
To use SAF specific functions, include the SAF specific data area.
WORKING-STORAGE SECTION.
COPY COBW3.
COPY COBW3SAF. *>Interface with a SAF specific subroutine
These libraries (COBW3.cbl and COBW3SAF.cbl) are stored in the folder in which
Fujitsu NetCOBOL has been installed.
• LINKAGE SECTION
Define a pointer item for the interface with NES.
LINKAGE SECTION.
01 SAFCTX POINTER.
PROCEDURE DIVISION
Write the following in order to conform to the calling conventions of NES.
PROCEDURE DIVISION USING SAFCTX.
SAFCTX obtained above is required for the SAF subroutines to communicate with
NES, so initialize COBW3-CONTEXT as follows.
MOVE LOW-VALUE TO COBW3.
SET COBW3-CONTEXT TO SAFCTX.
To use SAF specific functions, initialize COBW3-SAF-CONTEXT.
MOVE LOW-VALUE TO COBW3SAF.
SET COBW3-SAF-CONTEXT TO SAFCTX.
Given the sample settings above, the skeleton of this program would appear as
follows:
IDENTIFICATION DIVISION.
PROGRAM-ID. "SAFAPL".
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY COBW3.
* COPY COBW3SAF.
LINKAGE SECTION.
01 SAFCTX POINTER.
PROCEDURE DIVISION USING SAFCTX.
*
MOVE LOW-VALUE TO COBW3.
* MOVE LOW-VALUE TO COBW3SAF.
SET COBW3-CONTEXT TO SAFCTX.
* SET COBW3-SAF-CONTEXT TO SAFCTX
*
* Write the process on demand.
*
EXIT PROGRAM.