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-PCBYour 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