I want to display, in batch cobol program, some informations defined in each pcb of the active PSB
Example of pseudo code
get the psb's "address" or "entry point"
loop on all the defined pcb
- display db name referenced by the current pcb
- display the name of the segments referenced by the current pcb
- pass to the next pcb of the active psb
Well you can get the name of Database and segment name form the
DB-PCB-MASK just after you issue a 'CBLTDLI' or 'PLITDLI' calls for the database. As the information stored in DB-PCB-MASK will be same as contained in PSB defined for that program.
