Calling C1CTYLKP 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 C1CTYLKP from an IMS application, please include the PCBs as calling parameters, as shown below.

      CALL 'C1CTYLKP' USING CS-PRM-DATA
                           IO-PCB
                           G1CPCNY-PCB
                           G1CPCTY-PCB
                           G1CPDTL-PCB
                           G1CPLCL-PCB
                           G1CPCNM-PCB
                           G1CPZIP-PCB

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

    *
    *        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 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
    *
              PSBGEN PSBNAME=SMPLCLKP,LANG=COBOL,CMPAT=YES
             END