IMS DC e Programas BMP

IMS DB cuida do banco de dados hierárquico. IMS DC (Data Communications) cuida do lado transacional — recebe mensagens de terminais 3270 ou de outros sistemas, despacha para programas COBOL e devolve respostas. Um BMP (Batch Message Processing) é o ponto onde os dois mundos se encontram: ele tem acesso aos bancos IMS DB como um programa batch comum, mas também pode ler e escrever filas de mensagens IMS DC. Neste artigo você entende a arquitetura de transações IMS, como usar o IOPCB, como fazer checkpoints para restart e quando usar MPP vs BMP.

1. IMS DB vs IMS DC — a divisão de responsabilidades

IMS tem dois subsistemas que podem funcionar juntos ou independentemente:

Arquitetura IMS DB + DC

┌─────────────────────────────────────────────────────────────┐
│                      IMS Control Region                      │
│                                                             │
│  ┌──────────────┐          ┌──────────────────────────────┐ │
│  │   IMS DB     │          │         IMS DC               │ │
│  │              │          │                              │ │
│  │ HDAM/HIDAM   │          │  Message Queues (entrada)    │ │
│  │ HISAM/HSAM   │          │  Scheduler (despachante)     │ │
│  │ datasets     │          │  Terminais 3270 / MFS        │ │
│  │ VSAM         │          │  Message Queues (saída)      │ │
│  └──────┬───────┘          └──────────────┬───────────────┘ │
│         │                                 │                  │
└─────────┼─────────────────────────────────┼──────────────────┘
          │                                 │
     DL/I calls                      IOPCB calls
     (GU/GN/ISRT...)              (GU msg / ISRT resposta)
          │                                 │
          └──────────────┬──────────────────┘
                         │
              Programa COBOL (MPP ou BMP)

Subsistema	Responsabilidade	Acesso via
IMS DB	Bancos de dados hierárquicos — armazenar e recuperar segmentos	PCBs de banco (TYPE=DB) — calls GU, GN, GNP, ISRT, DLET, REPL
IMS DC	Filas de mensagens — receber de terminais, despachar para programas, retornar respostas	IOPCB (I/O PCB) — calls GU (ler mensagem) e ISRT (enviar resposta)

🦕 IMS DC é o CICS do IMS
Quem já conhece CICS vai reconhecer o modelo: IMS DC recebe uma mensagem de um terminal (equivalente ao EXEC CICS RECEIVE MAP), despacha para um programa MPP (equivalente ao programa CICS), que processa, atualiza o banco (via DL/I, não SQL) e envia resposta (equivalente ao EXEC CICS SEND MAP). A diferença é que o IMS DC usa filas de mensagens em vez de chamadas diretas.

2. Tipos de programa IMS — MPP, BMP, JBP e DL/I batch

Tipo	Nome completo	Ambiente	Acesso DB	Acesso DC
DL/I batch	DL/I Batch Program	JCL batch puro	Sim — PCBs tipo DB	Não
MPP	Message Processing Program	IMS DC online	Sim — PCBs tipo DB	Sim — IOPCB
BMP	Batch Message Processing	IMS DC + batch	Sim — PCBs tipo DB	Sim — IOPCB (filas)
JBP	Java Batch Processing	IMS DC + Java	Sim	Sim
IFP	IMS Fast Path Program	IMS DC — alta performance	Sim (DEDB)	Sim

💗 O que você vai encontrar no dia a dia
Em ambientes bancários, DL/I batch é o mais comum para programadores COBOL — processar extratos, atualizar saldos, gerar relatórios. BMP aparece quando o batch precisa ler filas de entrada (mensagens geradas por outro sistema) ou escrever em filas de saída. MPP é o online — você vai escrever MPP quando precisar implementar uma transação de terminal 3270.

3. IOPCB — o PCB de mensagens

O IOPCB (I/O Program Communication Block) é o canal de comunicação entre o programa e o IMS DC. Diferente dos PCBs de banco (TYPE=DB), o IOPCB é gerado automaticamente pelo IMS — você não o define no PSB, mas precisa declará-lo na LINKAGE SECTION e recebê-lo como o primeiro parâmetro do ENTRY 'DLITCBL'.

COBOL — IOPCB na LINKAGE SECTION

       LINKAGE SECTION.
*
*    IOPCB — sempre o PRIMEIRO PCB no ENTRY (para MPP e BMP)
*
       01  IOPCB.
           05 IO-LTERM-NAME   PIC X(08).  -- nome do terminal lógico
           05 FILLER          PIC XX.
           05 IO-STATUS       PIC XX.     -- status da operacao DC
           05 IO-LOCAL-DATE   PIC 9(04).  -- data local YYDDD
           05 IO-LOCAL-TIME   PIC 9(06).  -- hora local HHMMSS
           05 IO-MSG-SEQ-NUM  PIC 9(04).  -- numero sequencial msg
           05 IO-MOD-NAME     PIC X(08).  -- nome do MFS MOD
           05 IO-USERID       PIC X(08).  -- userid do terminal
*
*    PCBs de banco vêm DEPOIS do IOPCB
*
       01  PCB-BANCOCLI.
           05 PCB-DBD-NAME   PIC X(08).
           05 PCB-SEG-LEVEL  PIC XX.
           05 PCB-STATUS     PIC XX.
           05 PCB-PROC-OPT   PIC X(04).
           05 FILLER         PIC X(04).
           05 PCB-SEG-NAME   PIC X(08).
           05 PCB-KEY-LEN    PIC S9(05) COMP.
           05 PCB-NUMB-SENS  PIC S9(05) COMP.
           05 PCB-KEY-FDBK   PIC X(21).

       PROCEDURE DIVISION.
*          IOPCB SEMPRE PRIMEIRO — depois os PCBs de banco
           ENTRY 'DLITCBL' USING IOPCB
                                 PCB-BANCOCLI.

Status codes do IOPCB

IO-STATUS	Significado
bb (espaços)	Sucesso — mensagem lida ou enviada com sucesso
QC	No more messages — fila de entrada vazia (fim do processamento BMP)
QD	Queue full — fila de saída cheia; tentar novamente
AD	Terminal disconnected — terminal saiu durante envio
AK	Invalid message segment — segmento de mensagem inválido
AM	Access denied — programa não autorizado a usar o LTERM

4. MPP — Message Processing Program

Um MPP processa uma mensagem por vez. O IMS DC despacha o programa quando uma mensagem chega na fila da transação, o programa processa e termina (GOBACK), e o IMS pode despachar outra instância. O modelo é pseudo-conversacional — exatamente como o CICS.

Fluxo de vida de um MPP

Terminal 3270 → usuário digita dados e pressiona ENTER
       ↓
IMS DC recebe a mensagem e coloca na fila da transação CONS
       ↓
IMS Scheduler invoca o programa PGMCONS (MPP)
       ↓
PGMCONS executa ENTRY 'DLITCBL' USING IOPCB PCB-BANCOCLI
       ↓
GU no IOPCB → lê a mensagem do terminal (dados digitados)
       ↓
DL/I calls no PCB-BANCOCLI → consulta/atualiza banco IMS
       ↓
ISRT no IOPCB → envia resposta de volta ao terminal
       ↓
GOBACK → programa termina, IMS retorna resposta ao terminal
       ↓
IMS está pronto para próxima mensagem (mesmo ou outro terminal)

⚠️ MPP não tem estado entre execuções
Cada invocação do MPP começa do zero — sem variáveis persistentes entre chamadas. Para manter estado entre telas (como no CICS com COMMAREA), o MPP usa a SPA (Scratchpad Area), uma área de dados que o IMS persiste entre invocações consecutivas do mesmo usuário na mesma transação.

5. GU e ISRT no IOPCB — lendo e respondendo mensagens

No IOPCB, apenas duas DL/I calls fazem sentido: GU para ler a próxima mensagem da fila de entrada, e ISRT para inserir uma mensagem na fila de saída (resposta ao terminal ou para outra fila).

COBOL — MPP completo com GU e ISRT no IOPCB

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGMCONSULTA.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-FUNC-GU     PIC X(04) VALUE 'GU  '.
       01  WS-FUNC-ISRT   PIC X(04) VALUE 'ISRT'.
       01  WS-SSA-0       PIC S9(05) COMP VALUE 0.
       01  WS-SSA-1       PIC S9(05) COMP VALUE 1.

      *    Área da mensagem de entrada (layout do terminal 3270)
       01  WS-MSG-ENTRADA.
           05 ME-TRANSACAO PIC X(04).   -- codigo da transacao
           05 ME-CPF       PIC 9(11).   -- CPF digitado pelo usuario
           05 FILLER       PIC X(65).

      *    Área da mensagem de saída (resposta ao terminal)
       01  WS-MSG-SAIDA.
           05 MS-PREFIXO   PIC X(02).   -- LL (tamanho) e ZZ (reservado)
           05 MS-NOME      PIC X(40).
           05 MS-SALDO     PIC ZZZ.ZZZ.ZZ9,99.
           05 MS-STATUS    PIC X(30).

      *    SSA do segmento cliente (para DL/I no banco)
       01  WS-SSA-CLI-QUAL.
           05 FILLER       PIC X(08) VALUE 'CLIENTE '.
           05 FILLER       PIC X(01) VALUE '('.
           05 FILLER       PIC X(08) VALUE 'CLICPF  '.
           05 FILLER       PIC X(02) VALUE '= '.
           05 SSA-CLI-CPF  PIC 9(11).
           05 FILLER       PIC X(01) VALUE ')'.

       01  WS-SEG-CLIENTE.
           05 CLI-CPF      PIC 9(11).
           05 CLI-NOME     PIC X(40).
           05 FILLER       PIC X(29).

       LINKAGE SECTION.
       01  IOPCB.
           05 IO-LTERM     PIC X(08).
           05 FILLER       PIC XX.
           05 IO-STATUS    PIC XX.
           05 FILLER       PIC X(20).

       01  PCB-BANCOCLI.
           05 PCB-DBD-NAME  PIC X(08).
           05 PCB-SEG-LEVEL PIC XX.
           05 PCB-STATUS    PIC XX.
           05 PCB-PROC-OPT  PIC X(04).
           05 FILLER        PIC X(04).
           05 PCB-SEG-NAME  PIC X(08).
           05 PCB-KEY-LEN   PIC S9(05) COMP.
           05 PCB-NUMB-SENS PIC S9(05) COMP.
           05 PCB-KEY-FDBK  PIC X(21).

       PROCEDURE DIVISION.
           ENTRY 'DLITCBL' USING IOPCB PCB-BANCOCLI.

       0000-PRINCIPAL.
      *    1. Lê a mensagem de entrada do terminal
           CALL 'CBLTDLI' USING
               WS-SSA-0
               WS-FUNC-GU
               IOPCB
               WS-MSG-ENTRADA
           IF IO-STATUS NOT = SPACES
               DISPLAY 'ERRO IOPCB GU: ' IO-STATUS
               GOBACK
           END-IF

      *    2. Busca o cliente no banco IMS
           MOVE ME-CPF TO SSA-CLI-CPF
           CALL 'CBLTDLI' USING
               WS-SSA-1
               WS-FUNC-GU
               PCB-BANCOCLI
               WS-SEG-CLIENTE
               WS-SSA-CLI-QUAL
           EVALUATE PCB-STATUS
               WHEN SPACES
                   MOVE CLI-NOME TO MS-NOME
                   MOVE 'CLIENTE ENCONTRADO' TO MS-STATUS
               WHEN 'GE'
                   MOVE 'CLIENTE NAO ENCONTRADO'
                       TO MS-STATUS
               WHEN OTHER
                   MOVE 'ERRO NO BANCO IMS'
                       TO MS-STATUS
           END-EVALUATE

      *    3. Envia resposta ao terminal
           CALL 'CBLTDLI' USING
               WS-SSA-0
               WS-FUNC-ISRT
               IOPCB
               WS-MSG-SAIDA
           IF IO-STATUS NOT = SPACES
               DISPLAY 'ERRO IOPCB ISRT: ' IO-STATUS
           END-IF

           GOBACK.

✅ Prefixo LL/ZZ na mensagem de saída
Os primeiros 4 bytes de cada segmento de mensagem IMS têm um prefixo especial: bytes 1-2 = LL (comprimento total do segmento incluindo o prefixo, binário PIC S9(04) COMP) e bytes 3-4 = ZZ (reservado, deve ser SPACES ou zeros). O IMS usa LL para saber onde termina cada segmento da mensagem de saída. Em sistemas com MFS (Message Format Service), o MFS cuida disso automaticamente.

6. SPA — Scratchpad Area para programas conversacionais

A SPA é uma área de memória que o IMS persiste entre invocações consecutivas de um MPP conversacional. Ela permite ao programa "lembrar" o que aconteceu na tela anterior — como a COMMAREA do CICS.

PSB — definindo um MPP conversacional com SPA

         PCB    TYPE=TP,                IOPCB tipo Terminal Processamento X
                EXPRESS=YES,            RESPOSTA EXPRESSAMENTE NECESSARIA  X
                MODIFY=YES              PERMITE MODIFICAR O MOD DE SAIDA
*
*    SPA: 128 bytes de dados persistentes entre invocacoes
*
         PCB    TYPE=TP,
                ALTPCB=YES
         PSBGEN LANG=COBOL,
                PSBNAME=PGMCONSPA,
                CMPAT=YES             COMPATIBILIDADE COM SPA
         END

COBOL — usando SPA para guardar estado entre telas

      *    SPA — 128 bytes persistidos pelo IMS entre chamadas
       01  WS-SPA.
           05 SPA-TAMANHO  PIC S9(04) COMP.    -- comprimento SPA (fixo)
           05 SPA-TRANCOD  PIC X(08).           -- codigo transacao retorno
           05 SPA-ESTADO   PIC X(01).           -- 1=inicial 2=confirmacao
           05 SPA-CPF      PIC 9(11).           -- CPF da tela anterior
           05 SPA-VALOR    PIC S9(11)V99 COMP-3.
           05 FILLER       PIC X(90).

       PROCEDURE DIVISION.
           ENTRY 'DLITCBL' USING IOPCB PCB-BANCOCLI.

       0000-PRINCIPAL.
      *    GU lê mensagem E SPA simultaneamente (SPA vem junto)
           CALL 'CBLTDLI' USING
               WS-SSA-0
               WS-FUNC-GU
               IOPCB
               WS-MSG-ENTRADA    -- dados do terminal
           IF IO-STATUS NOT = SPACES
               GOBACK
           END-IF

      *    SEGUNDA invocação (SPA-ESTADO = '2') — confirmar operacao
           IF SPA-ESTADO = '2'
               PERFORM 2000-CONFIRMA-OPERACAO
           ELSE
      *        PRIMEIRA invocação — tela inicial
               PERFORM 1000-TELA-INICIAL
           END-IF

      *    Atualiza SPA antes de enviar resposta
           MOVE '2'       TO SPA-ESTADO
           MOVE ME-CPF    TO SPA-CPF

      *    ISRT com SPA: envia resposta E persiste SPA
           CALL 'CBLTDLI' USING
               WS-SSA-0
               WS-FUNC-ISRT
               IOPCB
               WS-SPA            -- SPA primeiro
           CALL 'CBLTDLI' USING
               WS-SSA-0
               WS-FUNC-ISRT
               IOPCB
               WS-MSG-SAIDA      -- resposta ao terminal
           GOBACK.

7. BMP — Batch Message Processing

Um BMP roda como job batch (via JCL), mas tem acesso ao IMS DC — pode ler mensagens de filas de entrada e escrever em filas de saída. É usado principalmente para processar grandes volumes de mensagens geradas por outros sistemas, atualizando bancos IMS em modo batch com a capacidade de fazer checkpoints.

Casos de uso típicos de BMP

1. Processamento de lote de transações geradas por sistema externo:
   Sistema de TED gera 100.000 mensagens → fila IMS DC
   BMP lê as mensagens, atualiza contas no IMS DB, faz checkpoint a cada 1000

2. Geração de mensagens em lote para terminais:
   BMP processa extrato mensal e envia mensagens de notificação
   via fila IMS DC para o sistema de impressão

3. Reprocessamento de mensagens com erro:
   Fila de dead-letter IMS → BMP re-tenta com lógica de compensação

COBOL — estrutura de um BMP com leitura de fila

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGMTRANSF.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-FUNC-GU     PIC X(04) VALUE 'GU  '.
       01  WS-FUNC-GHU    PIC X(04) VALUE 'GHU '.
       01  WS-FUNC-REPL   PIC X(04) VALUE 'REPL'.
       01  WS-FUNC-CHKP   PIC X(04) VALUE 'CHKP'.
       01  WS-SSA-0       PIC S9(05) COMP VALUE 0.
       01  WS-SSA-1       PIC S9(05) COMP VALUE 1.
       01  WS-SSA-2       PIC S9(05) COMP VALUE 2.
       01  WS-CONTADOR    PIC S9(07) COMP-3 VALUE 0.
       01  WS-CHKPID      PIC X(08) VALUE 'CHKP0001'.

      *    Mensagem de entrada com dados de transferência
       01  WS-MSG-TRANSF.
           05 MT-CONTA-DEB PIC X(10).
           05 MT-CONTA-CRE PIC X(10).
           05 MT-VALOR     PIC S9(11)V99 COMP-3.
           05 MT-CPF       PIC 9(11).

       01  WS-SEG-CONTA.
           05 CTA-NUM      PIC X(10).
           05 CTA-TIPO     PIC X(02).
           05 CTA-SALDO    PIC S9(13)V99 COMP-3.
           05 CTA-STATUS   PIC X(01).
           05 FILLER       PIC X(13).

       01  WS-SSA-CTA-QUAL.
           05 FILLER       PIC X(08) VALUE 'CONTA   '.
           05 FILLER       PIC X(01) VALUE '('.
           05 FILLER       PIC X(08) VALUE 'CTANUM  '.
           05 FILLER       PIC X(02) VALUE '= '.
           05 SSA-CTA-NUM  PIC X(10).
           05 FILLER       PIC X(01) VALUE ')'.

       LINKAGE SECTION.
       01  IOPCB.
           05 IO-LTERM     PIC X(08).
           05 FILLER       PIC XX.
           05 IO-STATUS    PIC XX.
           05 FILLER       PIC X(20).
       01  PCB-BANCOCLI.
           05 PCB-DBD-NAME  PIC X(08).
           05 PCB-SEG-LEVEL PIC XX.
           05 PCB-STATUS    PIC XX.
           05 PCB-PROC-OPT  PIC X(04).
           05 FILLER        PIC X(04).
           05 PCB-SEG-NAME  PIC X(08).
           05 PCB-KEY-LEN   PIC S9(05) COMP.
           05 PCB-NUMB-SENS PIC S9(05) COMP.
           05 PCB-KEY-FDBK  PIC X(21).

       PROCEDURE DIVISION.
           ENTRY 'DLITCBL' USING IOPCB PCB-BANCOCLI.

       0000-PRINCIPAL.
           PERFORM UNTIL IO-STATUS = 'QC'
               PERFORM 1000-LE-MENSAGEM
               IF IO-STATUS NOT = 'QC'
                   PERFORM 2000-PROCESSA-TRANSFERENCIA
                   ADD 1 TO WS-CONTADOR
                   IF WS-CONTADOR >= 1000
                       PERFORM 3000-CHECKPOINT
                       MOVE 0 TO WS-CONTADOR
                   END-IF
               END-IF
           END-PERFORM
           DISPLAY 'BMP CONCLUIDO'
           GOBACK.

       1000-LE-MENSAGEM.
           CALL 'CBLTDLI' USING
               WS-SSA-0
               WS-FUNC-GU
               IOPCB
               WS-MSG-TRANSF
           EVALUATE IO-STATUS
               WHEN SPACES  CONTINUE
               WHEN 'QC'    CONTINUE  -- fila vazia, fim normal
               WHEN OTHER   PERFORM 9999-ERRO-DC
           END-EVALUATE.

       2000-PROCESSA-TRANSFERENCIA.
      *    Debita conta de origem
           MOVE MT-CONTA-DEB TO SSA-CTA-NUM
           CALL 'CBLTDLI' USING
               WS-SSA-2 WS-FUNC-GHU PCB-BANCOCLI
               WS-SEG-CONTA WS-SSA-CLI-QUAL WS-SSA-CTA-QUAL
           IF PCB-STATUS = SPACES
               SUBTRACT MT-VALOR FROM CTA-SALDO
               CALL 'CBLTDLI' USING
                   WS-SSA-0 WS-FUNC-REPL PCB-BANCOCLI WS-SEG-CONTA
           END-IF

      *    Credita conta de destino
           MOVE MT-CONTA-CRE TO SSA-CTA-NUM
           CALL 'CBLTDLI' USING
               WS-SSA-2 WS-FUNC-GHU PCB-BANCOCLI
               WS-SEG-CONTA WS-SSA-CLI-QUAL WS-SSA-CTA-QUAL
           IF PCB-STATUS = SPACES
               ADD MT-VALOR TO CTA-SALDO
               CALL 'CBLTDLI' USING
                   WS-SSA-0 WS-FUNC-REPL PCB-BANCOCLI WS-SEG-CONTA
           END-IF.

8. Checkpoints — CHKP call

O checkpoint é o mecanismo de controle de integridade em jobs IMS longos. A call CHKP comita todas as mudanças feitas até aquele ponto no banco IMS e salva o posicionamento atual na fila de mensagens. Se o job falhar, ele pode ser reiniciado a partir do último checkpoint em vez de recomeçar do zero.

COBOL — CHKP call

       01  WS-FUNC-CHKP   PIC X(04) VALUE 'CHKP'.
       01  WS-CHKPID      PIC X(08).  -- identificador do checkpoint
       01  WS-CHKP-LEN    PIC S9(05) COMP VALUE 0.
       01  WS-CHKP-AREA   PIC X(01).  -- area de dados do usuário (opcional)

       3000-CHECKPOINT.
      *    Gera ID único para o checkpoint (ex: sequencial)
           ADD 1 TO WS-CHKP-SEQ
           MOVE WS-CHKP-SEQ TO WS-CHKPID  -- ex: '00001   '

      *    CHKP: comita tudo e salva posição na fila
           CALL 'CBLTDLI' USING
               WS-SSA-1
               WS-FUNC-CHKP
               IOPCB
               WS-CHKPID        -- ID para identificar este checkpoint
               WS-CHKP-LEN      -- tamanho da area de dados usuario (0 = nenhuma)
               WS-CHKP-AREA     -- area de dados usuario (ignorada se LEN=0)
           IF IO-STATUS NOT = SPACES
               DISPLAY 'ERRO NO CHECKPOINT: ' IO-STATUS
               PERFORM 9999-ERRO-DC
           END-IF
           DISPLAY 'CHECKPOINT: ' WS-CHKPID
                   ' REGISTROS: ' WS-CONTADOR.

✅ Frequência de checkpoint
A frequência ideal de checkpoint depende do volume e criticidade. Checkpoints frequentes (a cada 100–500 registros) reduzem o trabalho perdido em caso de falha, mas aumentam overhead de I/O. Checkpoints raros (a cada 10.000) reduzem overhead mas exigem reprocessar muito em caso de falha. Em bancos de alto volume, checkpoints a cada 1.000–2.000 registros é um ponto de equilíbrio comum.

🟣 Checkpoint com área de dados do usuário
O terceiro e quarto parâmetros do CHKP permitem salvar dados de contexto do programa junto com o checkpoint — por exemplo, contadores, chaves do último registro processado ou flags de estado. Esses dados são recuperados pelo XRST no restart, permitindo que o programa retome exatamente de onde parou sem perder contexto.

9. Restart — XRST e recuperação após falha

XRST (Extended Restart) é a call que permite ao BMP retomar a partir do último checkpoint depois de uma falha. Ela deve ser a primeira DL/I call do programa — antes de qualquer GU ou operação de banco. Se o job está sendo executado pela primeira vez (não é um restart), o XRST simplesmente é ignorado sem efeito.

COBOL — XRST no início do BMP

       01  WS-FUNC-XRST   PIC X(04) VALUE 'XRST'.
       01  WS-XRST-LEN    PIC S9(05) COMP VALUE 0.
       01  WS-XRST-AREA   PIC X(01).
       01  WS-CHKPID-XRST PIC X(08) VALUE SPACES.

       PROCEDURE DIVISION.
           ENTRY 'DLITCBL' USING IOPCB PCB-BANCOCLI.

       0000-PRINCIPAL.
      *    XRST DEVE SER A PRIMEIRA CALL DO PROGRAMA
      *    Se for restart, IMS reposiciona na fila e retorna o CHKPID
      *    Se não for restart, XRST retorna status QC e o programa continua
           CALL 'CBLTDLI' USING
               WS-SSA-1
               WS-FUNC-XRST
               IOPCB
               WS-CHKPID-XRST    -- retorna ID do ultimo checkpoint (se restart)
               WS-XRST-LEN       -- tamanho area usuario (0 = não há)
               WS-XRST-AREA
           EVALUATE IO-STATUS
               WHEN SPACES
      *            E restart: IMS reposicionou a fila no ultimo CHKP
                   DISPLAY 'RESTART A PARTIR DO CHKP: ' WS-CHKPID-XRST
               WHEN 'QC'
      *            Nao e restart: primeira execucao normal
                   DISPLAY 'PRIMEIRA EXECUCAO - SEM RESTART'
               WHEN OTHER
                   DISPLAY 'ERRO XRST: ' IO-STATUS
                   PERFORM 9999-ERRO-DC
           END-EVALUATE

      *    A partir daqui, continua o processamento normal
           PERFORM UNTIL IO-STATUS = 'QC'
               PERFORM 1000-LE-MENSAGEM
               IF IO-STATUS NOT = 'QC'
                   PERFORM 2000-PROCESSA
                   ADD 1 TO WS-CONTADOR
                   IF WS-CONTADOR >= 1000
                       PERFORM 3000-CHECKPOINT
                       MOVE 0 TO WS-CONTADOR
                   END-IF
               END-IF
           END-PERFORM
           GOBACK.

JCL — reiniciando um BMP a partir do último checkpoint

/* Restart: adicionar o DD IMSLOGR apontando para o log IMS */
//RESTART  EXEC PGM=DFSRRC00,
//    PARM='BMP,PGMTRANSF,PGMTRANSP,,,,,,,,,,Y,N'
//STEPLIB  DD DSN=IMS.RESLIB,DISP=SHR
//         DD DSN=PROD.LOADLIB,DISP=SHR
//IMS      DD DSN=IMS.PSBLIB,DISP=SHR
//         DD DSN=IMS.DBDLIB,DISP=SHR
//IMSLOGR  DD DSN=IMS.RLOGRECD,DISP=SHR   /* LOG DE RESTART */
//SYSPRINT DD SYSOUT=*
//IEFRDER  DD SYSOUT=*

10. JCL para BMP

O JCL de um BMP é similar ao de um DL/I batch, mas com PARM='BMP' em vez de 'DLI' e com DDs adicionais para as filas de mensagens IMS DC.

JCL — execução de BMP

//BMPTRANS JOB (ACCT),'BMP TRANSFERENCIAS',CLASS=A,MSGCLASS=X
//STEP1    EXEC PGM=DFSRRC00,
//    PARM='BMP,PGMTRANSF,PGMTRANSP,,,,,,,,,,Y,N'
//          ^    ^          ^
//          |    |          PSB name (PGMTRANSP)
//          |    Programa COBOL (PGMTRANSF)
//          BMP = Batch Message Processing
//
//STEPLIB  DD DSN=IMS.RESLIB,DISP=SHR
//         DD DSN=PROD.LOADLIB,DISP=SHR
//IMS      DD DSN=IMS.PSBLIB,DISP=SHR
//         DD DSN=IMS.DBDLIB,DISP=SHR
//DFSVSAMP DD DSN=IMS.PROCLIB(DFSVSMHP),DISP=SHR
//IEFRDER  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DFSRESLB DD DSN=IMS.RESLIB,DISP=SHR
//
//* DD para o dataset VSAM do banco IMS
//BANCOCLID DD DSN=IMS.BANCOCLI.DATA,DISP=SHR
//
//* DD para filas IMS DC (nome definido no sistema IMS)
//DFSYSDMP DD SYSOUT=*

⚠️ BMP não pode rodar sem IMS DC ativo
Diferente do DL/I batch (que roda de forma completamente independente), o BMP precisa que o subsistema IMS DC esteja ativo e acessível. Se o IMS DC estiver down, o BMP falha na inicialização com PARM inválido. Em ambientes com janela de manutenção do IMS DC, os BMPs precisam ser suspendidos enquanto o DC está offline.

11. Comparativo dos tipos de programa

Característica	DL/I Batch	MPP	BMP
Invocação	JCL batch (scheduler)	IMS DC (mensagem chega)	JCL batch (scheduler)
IOPCB	Não	Sim — obrigatório	Sim — lê filas de mensagens
Acesso a IMS DB	Sim — direto	Sim — via PCBs	Sim — via PCBs
Requer IMS DC ativo	Não	Sim	Sim
Checkpoint / Restart	Não (use COMMIT via SMF)	Não (pseudo-conversacional)	Sim — CHKP + XRST
Termina com	GOBACK ou STOP RUN	GOBACK (após cada msg)	GOBACK (quando fila vazia)
Múltiplas mensagens	N/A	Uma por vez	Loop até QC (fila vazia)
Estado entre chamadas	Variáveis WS persistem	Apenas via SPA	Variáveis WS persistem no loop
PARM do JCL	DLI,pgm,psb	Definido no MFS / transação DC	BMP,pgm,psb

💗 Resumo da trilha IMS
Você chegou ao fim da trilha IMS com uma base sólida: entende o modelo hierárquico, sabe escrever e depurar todas as DL/I calls, domina SSAs avançados com command codes, consegue ler e interpretar DBD e PSB, e agora entende como programas online (MPP) e batch com mensagens (BMP) funcionam no IMS DC. O próximo nível é praticar com bancos reais — e para isso, cada empresa tem seu ambiente e seus DBDs específicos que você vai aprender lendo a documentação interna e consultando o DBA.