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

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