DataMuseum.dk

top - metrics - download

    Length: 1016 (0x3f8)
    Types: s3xseg
    Names: »PCBLSMP«

└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
    └─⟦8223a6838⟧ 
        └─⟦this⟧ »PCBLSMP« 
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
    └─⟦efad88270⟧ 
        └─⟦this⟧ »PCBLSMP« 

TextSegment

// NOHALT                                                                                       
// LOG PRINTER                                                                                  
************************************************************************                        
*                                                                      *                        
*                                                                      *                        
*                                                                      *                        
*     THIS IS THE SAMPLE COBOL PROGRAM.                                *                        
*                                                                      *                        
*                                                                      *                        
*                                                                      *                        
*     IT SHOULD BE COMPILED AND EXECUTE AFTER THE PROGRAM PRODUCT      *                        
*                                                                      *                        
*       GENERATION IS COMPLETE, TO VERIFY THAT THE COBOL PROGRAM       *                        
*                                                                      *                        
*       PRODUCT HAS BEEN COPIED SUCCESSFULLY TO THE NEW SYSTEM.        *                        
*                                                                      *                        
*                                                                      *                        
*                                                                      *                        
*                                                                      *                        
*     THE FOLLOWING IS THE NECESSARY OCL STATEMENTS FOR COMPILING      *                        
*                                                                      *                        
*       AND EXECUTING THE COBOL SAMPLE PROGRAM.  THIS OCL IS USER      *                        
*                                                                      *                        
*       SUPPLIED AND WILL BE INPUT VIA THE SYSTEM INPUT DEVICE         *                        
*                                                                      *                        
*                                                                      *                        
*                   // CALL CBLSMP,R1                                  *                        
*                                                                      *                        
*                   // RUN                                             *                        
*                                                                      *                        
*                                                                      *                        
*                                                                      *                        
*     THIS PROGRAM HAS BEEN DESIGNED TO RUN WITH A MINIMUM OF          *                        
*                                                                      *                        
*       OPERATOR INTERVENTION . . .                                    *                        
*                                                                      *                        
*                                                                      *                        
*                                                                      *                        
************************************************************************                        
// CALL COBCMP,R1                                                                               
// CALL COBEXC,R1