Calling G1CPLKB from an IMS Application - Code-1_Plus - 5.0

CODE-1 Plus Reference for all Platforms

Product type
Software
Portfolio
Verify
Product family
Data Quality - Postals
Product
CODE-1 Plus
Version
5.0
Language
English
Product name
CODE-1 Plus
Title
CODE-1 Plus Reference for all Platforms
Copyright
2024
First publish date
1998
ft:lastEdition
2024-05-15
ft:lastPublication
2024-05-15T00:07:55.920704

If you are calling G1CPLKB from an IMS application, include the following PCBs as calling parameters:

CALL "G1CPLKB" USING LOOKREQ
                    IO-PCB
                    G1CPCNY-PCB
                    G1CPCTY-PCB
                    G1CPDTL-PCB
                    G1CPPTR-PCB
                    G1CPLCL-PCB
                    G1CPCNM-PCB
                    G1CPZIP-PCB
                    G1CPLOT-PCB
                    G1CPXAA-PCB
                    G1CPXAS-PCB
                  G1CPCOM-PCB

Your application can use the PSB shown below to define the PCBs presented above:

*--------------------------------------------------------------
*   SAMPLE IMS PSB TO BE USED WITH THE DB PRINT
*--------------------------------------------------------------
*
*        COUNTY DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPCNY,PROCOPT=GO,KEYLEN=5
        SENSEG NAME=CNYSEG,PARENT=0
*
*        CITY DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPCTY,PROCOPT=GO,KEYLEN=2
        SENSEG NAME=CTYSEG,PARENT=0
*
*        LOCALITY DETAILS DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPDTL,PROCOPT=GO,KEYLEN=2
        SENSEG NAME=DTLSEG,PARENT=0
*
*        LOCALITY POINTER DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPPTR,PROCOPT=GO,KEYLEN=2
        SENSEG NAME=PTRSEG,PARENT=0
*
*        LOCALITY HEADER DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPLCL,PROCOPT=GO,KEYLEN=2
        SENSEG NAME=LCLSEG,PARENT=0
*
*        CITY NAME DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPCNM,PROCOPT=GO,KEYLEN=4
        SENSEG NAME=CNMSEG,PARENT=0
*
*        ZIP INDEX DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPZIP,PROCOPT=GO,KEYLEN=1
        SENSEG NAME=ZIPSEG,PARENT=0
*
*        LINE OF TRAVEL DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPLOT,PROCOPT=GO,KEYLEN=2
        SENSEG NAME=LOTSEG,PARENT=0
 
*
*        CITY NAME DATA BASE USING
*        SECONDARY INDEX MADE FROM CITY NAME
*
        PCB   TYPE=DB,NAME=G1CPCNM,PROCOPT=GO,KEYLEN=32,             X
              PROCSEQ=G1CPXAA
        SENSEG NAME=CNMSEG,PARENT=0
*
*        CITY NAME DATA BASE USING
*        SECONDARY INDEX MADE FROM STATE CODE AND CITY NAME
*
        PCB   TYPE=DB,NAME=G1CPCNM,PROCOPT=GO,KEYLEN=34,            X
              PROCSEQ=G1CPXAS
        SENSEG NAME=CNMSEG,PARENT=0
*
*        COMM AREA (TEMP STORAGE) DATA BASE
*
        PCB    TYPE=DB,NAME=G1CPCOM,KEYLEN=16,PROCOPT=PA
        SENSEG NAME=LTERMSEG,PARENT=0,PROCOPT=PA
        SENSEG NAME=TYPESEG,PARENT=LTERMSEG,PROCOPT=PA
        SENSEG NAME=QUEUESEG,PARENT=TYPESEG,PROCOPT=A
*
        PSBGEN PSBNAME=psbname,LANG=COBOL,CMPAT=YES
        END