PROCESS(CBL) statements:                                                                                                            
 cbl apost                                                                                                                          
 cbl list                                                                                                                           
 cbl inline                                                                                                                         
 cbl optimize(1)                                                                                                                    

Options in effect:                                                                                                                  
...
   INLINE                                                                                                                           
...
PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.2.0 P180305       TESTINL   Date 07/04/2018  Time 16:25:13   Page     4                
  LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference           

  000001                Identification division.                                                                                    
  000002                Program-id. TestINL.                                                                                        
  000003                Environment division.                                                                                       
  000004                Data division.                                                                                              
  000005                Working-storage section.                                                                                    
  000006                Procedure division.                                                                                         
  000007                Main.                                                                                                       
  000008                    display 'Before...'                                                                                     
  000009                    perform Para                                                          16                                
  000010                    display 'After...'                                                                                      
  000011                    .                                                                                                       
  000012                Bye.                                                                                                        
  000013                    Goback                                                                                                  
  000014                    .                                                                                                       
  000015                >>inline off                                                                                                
  000016                Para.                                                                                                       
  000017                    display 'In performed paragraph... or not...'                                                           
  000018                    .                                                                                                       
  000019                End program TestINL.                                                      2                                 
...
PP 5655-EC6 IBM Enterprise COBOL for z/OS  6.2.0 P180305       TESTINL   Date 07/04/2018  Time 16:25:13   Page     9                

 000002:         Program-id. TestINL.                                                                                               
...
    00016C                     000002  L0006:    EQU     *                                                                          
    00016C                     000008  USER-ENTRY: EQU     *                                                                        
 000008:             display 'Before...'                                                                                            
    00016C  D217 D0D8 3060     000008            MVC     216(24,R13),96(R3)    £                                                    
    000172  4120 D0D8          000008            LA      R2,216(,R13)          £  _ArgumentList                                     
    000176  1812               000008            LR      R1,R2                                                                      
    000178  5840 301C          000008            L       R4,28(,R3)            £                                                    
    00017C  18F4               000008            LR      R15,R4                                                                     
    00017E  58C0 D080          000008            L       R12,128(,R13)         £                                                    
    000182  0DEF               000008            BASR    R14,R15               £  Call "IGZXDSP"                                    
    000184                     000016  PARA:     EQU     *                                                                          
 000017:             display 'In performed paragraph... or not...'                                  <-- INLINED !!!                                
    000184  D217 2000 309C     000017            MVC     0(24,R2),156(R3)      £                                                    
    00018A  1812               000017            LR      R1,R2                                                                      
    00018C  18F4               000017            LR      R15,R4                                                                     
    00018E  0DEF               000017            BASR    R14,R15               £  Call "IGZXDSP"                                    
    000190  18F4               000017            LR      R15,R4                                                                     
 000009:             perform Para                                                                                                   
    000192  D203 D0C8 D0CC     000009            MVC     200(4,R13),204(R13)   £                                                    
 000010:             display 'After...'                                                                                             
    000198  D217 2000 30C0     000010            MVC     0(24,R2),192(R3)      £                                                    
    00019E  1812               000010            LR      R1,R2                                                                      
    0001A0  0DEF               000010            BASR    R14,R15               £  Call "IGZXDSP"                                    
 000013:             Goback                                                                                                         
    0001A2  9181 D10C          000013            TM      268(,R13),X'81'       £  DSAFlags                                          
    0001A6  A784 001D          000013            JE      L0007                                                                      
    0001AA  A718 0000          000013            LHI     R1,0x0                                                                     
    0001AE  58F0 3020          000013            L       R15,32(,R3)           £                                                    
    0001B2  0DEF               000013            BASR    R14,R15               £  Call "IGZXRTN"                                    
    0001B4  1812               000013            LR      R1,R2                                                                      
    0001B6  9180 D10C          000013            TM      268(,R13),X'80'       £  DSAFlags                                          
    0001BA  A784 0013          000013            JE      L0007                                                                      
    0001BE  E54C D0D4 0000     000013            MVHI    212(,R13),X'0000'     £                                                    
    0001C4  E54C D0D0 0000     000013            MVHI    208(,R13),X'0000'     £                                                    
    0001CA  4120 D0D4          000013            LA      R2,212(,R13)          £  TS2=9                                             
    0001CE  5020 1000          000013            ST      R2,0(,R1)             £                                                    
    0001D2  4120 D0D0          000013            LA      R2,208(,R13)          £  TS2=10                                            
    0001D6  5020 1004          000013            ST      R2,4(,R1)             £                                                    
    0001DA  58F0 3024          000013            L       R15,36(,R3)           £                                                    
    0001DE  0DEF               000013            BASR    R14,R15               £  Call "IGZXTREN"                                   
    0001E0                     000017  L0007:    EQU     *                                                                          
    0001E0  EBFF 8050 006A     000017            ASI     80(,R8),X'FF'         £  IPCB_NumEnts                                      
    0001E6  A7F8 0000          000017            LHI     R15,0x0                                                                    
    0001EA  EB1F D08C 0096     000017            LMH     R1,R15,140(,R13)      £                                                    
    0001F0  58D0 D004          000017            L       R13,4(,R13)           £  Caller's DSA                                      
    0001F4  58E0 D00C          000017            L       R14,12(,R13)          £  Return Address                                    
    0001F8  980C D014          000017            LM      R0,R12,20(,R13)       £  Restore Caller's registers                        
    0001FC  07FE               000017            BR      R14                   £  Return                                            
    0001FE  0707               000017            BCR     0,R7                                                                       
    000200                     000017            RET