TPPCB Structure in IMS DB/DC

TPPCB also called teleprocessing PCB. The example structure of TPPCB.

TPPCB Structure:

01  TPPCB.
05  TP-LTERM                    PIC  X(08).
05  FILLER                      PIC S9(04)   COMP.
05  TP-STS-CODE                 PIC  X(02).
88  TP-BB-GOOD                           VALUE ‘  ‘.
88  TP-QC-NO-MORE-INPUT                  VALUE ‘QC’.
88  TP-QD-NO-MORE-SEGMENTS               VALUE ‘QD’.
88  TP-A7-TO-MANY-ISRTS                  VALUE ‘A7’.
88  TP-XD-IMS-GOING-DOWN                 VALUE ‘XD’.
05  TP-PREFIX.
10  TP-DATE                 PIC S9(07)   COMP-3.
10  TP-TIME                 PIC S9(06)V9 COMP-3.
10  TP-TIME7 REDEFINES TP-TIME
PIC S9(07)   COMP-3.
10  TP-MSG-NUMBER           PIC S9(09)   COMP.
05  TP-MODNAME                  PIC  X(08).
05  TP-USERID                   PIC  X(08).
05  TP-GROUP-NAME               PIC  X(08).
05  TP-UTC-TIMESTAMP.
10  TP-UTC-DATE             PIC S9(07)   COMP-3.
10  TP-UTC-TIME             PIC  X(06).
10  TP-UTC-IND              PIC S9(03)   COMP-3.
05  TP-USER-ID-IND              PIC  X(01).
05  TP-RESERVE                  PIC  X(03).

Details:

TPPCB=Tele processing PCB  and is used for online programs
LTERM=Logical Terminal of 8 characters
Various status codes
BB=Blank for Good
QC=No more input
QD=No more segments
A7=Too many inserts
XD=IMS going down
Reserve Extra 3 characters