IN25COB2 INPUT DD DCB
search cancel

IN25COB2 INPUT DD DCB

book

Article ID: 130409

calendar_today

Updated On:

Products

InterTest - CICS InterTest - Batch

Issue/Introduction



I am trying to load an old compile listing but can't find out the right format.
I thought it would look like this:
"PP 5688-197 COBOL for MVS & VM 1.2.0 GC0930 Date 01/14/2004 Time 14:48:56 Page 1"
 

Environment

Release:
Component: TFMSYM

Resolution

this "IBM COBOL for MVS and VM 1.2.0" compiler SYSPRINT output works fine as IN25COB2 11.0 input:
...
//SYSPRINT DD DSN=&COBOUT,DISP=(NEW,CATLG,DELETE),UNIT=3390,                
//            DCB=BLKSIZE=133,SPACE=(4000,(990,2000)),STORCLAS=WORK             

...
COBOUT attributes
...
Organization  . . . : PS  

Record format . . . : FBA 
Record length . . . : 133 
Block size  . . . . : 133 
...

An extract from the compile listing
...
1PP 5688-197 IBM COBOL for MVS and VM   1.2.0                               Date 04/03/19  Time 03:21:35   Page     1

0Invocation parameters:                                                                                              
 NOOPT,MAP,TRUNC(BIN),LIST,NOOFF,XREF(FULL),FLAG(W,E)                                                                 
0Options in effect:                                                                                                  
     NOADATA                                                                                                          
...

from IN25COB2 - MESSAGE DD
...
IN25COB2 V11.0 VH00450 - 09/17/2018 03.40                                     

                                                                              
SYM036 PASSED PARAMETER STATEMENTS                                            
                                                                              
CBL1DATE,LISTER=ALL                                                           
                                                                               
                                                                              
SYM010 PROCESSING HAS BEGUN FOR PROGRAM - CBL1DATE                            
                                                                               
SYM006 LISTER=ALL    REQUESTED                                                
                                                                              
IN25PARS V11.0 RX00196 - 03/21/2018 13.55                                      
                                                                              
NESTED PROGRAMS                 ID      WS      LC      LS      PD      EP    
------------------------------  ------  ------  ------  ------  ------  ------
CBL1DATE                        000002  000006  000000  000013  000015  000000
                                                                              
SYM024 INPUT FILE PROCESSED                                                   
                                                                               
SYM020 SYMBOLIC FILE UPDATED SUCCESSFULLY                                     
                                                                              
SYM021    10 SOURCE STATEMENTS SAVED                                          
                                                                              
SYM022    14 TOTAL RECORDS INSERTED INTO SYMBOLIC FILE                        
                                                                               
SYM023 POST-PROCESSOR TERMINATED                                              
...