GSLACINR - geostan_1 - 2024.01

Deprecated. Initialize GeoStan for LACS^Link.

Syntax

01 GSID            PIC S9(9) BINARY VALUE 0.
01 GSFUNSTAT       PIC S9(9) BINARY.
01 STRUCT-SIZE     PIC S9(9) BINARY.
01 W-HAVE-MESSAGE  PIC S9(9) BINARY.
01 W-ERROR-MSG     PIC X(256) VALUE LOW-VALUES.
01 W-ERROR-DETAIL  PIC X(256) VALUE LOW-VALUES.
*
CALL 'GSLACINR' USING GSID, GS-LACSLINK-INIT-STRUCT, STRUCT-SIZE, GSFUNSTAT.

Arguments

GSID   ID returned by GSINIT for the current instance of GeoStan. Input.

GS-LACSLINK-INIT-STRUCT    Also defined in GEOSTAN.H. This structure contains the following:

GS-LIS-STRUCT-VERSION    LACS^Link version number. Set to GS-GEOSTAN-VERSION. Input.

GS-LIS-OPTIONS    Reserved for future implementation. Input.

GS-LIS-STATUS    Indicates the successful initialization of LACS^Link. The following table contains the constants used to test each significant bit. Output.

GS-LIST-SECURITY-KEY    Security key to initialize LACS^Link functionality. Input.

STRUCTSIZE   Size of the LACSINITSTRUCT data structure. Input.

Return Values

GS-SUCCESS   Initialized successfully.

GS-ERROR   Failed to initialize.

Prerequisites

GSINIT

Example

Initialize GeoStan for LACS^Link.

***********  WORKING STORAGE VARIABLES ***********************
01 GSID            PIC S9(9) BINARY VALUE 0.
01 GSFUNSTAT       PIC S9(9) BINARY.
01 STRUCT-SIZE     PIC S9(9) BINARY.
01 W-HAVE-MESSAGE  PIC S9(9) BINARY.
01 W-ERROR-MSG     PIC X(256) VALUE LOW-VALUES.
01 W-ERROR-DETAIL  PIC X(256) VALUE LOW-VALUES.
             
COPY GSCONST.
             
*******  SAMPLE CODE TO INITIALIZE LACS/LINK *****************
**** PLACE AFTER CALL TO GSINIT    ***************************
MOVE GS-GEOSTAN-VERSION       TO GS-LIS-STRUCT-VERSION.
MOVE GS-LIS-COB-STRUCT-SIZE   TO STRUCT-SIZE.
             
CALL 'GSLACINR' USING GSID, GS-LACSLINK-INIT-STRUCT, STRUCT-SIZE, GSFUNSTAT.
             
IF GSFUNSTAT = GS-SUCCESS
DISPLAY 'LACS INITIALIZED SUCCESSFULLY'
ELSE
DISPLAY '********************************'
DISPLAY 'LACS FAILED TO INITIALIZE'
DISPLAY 'GSFUNSTAT IS:', GSFUNSTAT
DISPLAY 'GSID IS:', GSID
DISPLAY 'GS-LACSLINK-INIT-STRUCT:', GS-DPV-INIT-STRUCT
DISPLAY 'STRUCT-SIZE IS:', STRUCT-SIZE
DISPLAY '********************************'
CALL 'GSERRHAS' USING GSID, W-HAVE-MESSAGE
PERFORM UNTIL W-HAVE-MESSAGE IS EQUAL TO ZERO
CALL 'GSERRGTX' USING GSID, W-ERROR-MSG, W-ERROR-DETAIL, GSFUNSTAT
DISPLAY 'W-ERROR-MSG:', W-ERROR-MSG
DISPLAY 'W-ERROR-DETAIL:', W-ERROR-DETAIL
CALL 'GSERRHAS' USING GSID, W-HAVE-MESSAGE
END-PERFORM

After you have initialized LACS^Link and called GSSFIND for an address, you can then call GSDATGET and request any of the following output fields, which are included in the copy member GSCONST:

• GS-LACS-FLAG

• GS-LACSLINK-IND

• GS-LACSLINK-RETCODE