//CPICSAMP JOB (,XXXX),USER,NOTIFY=,TIME=(,59)                                  
/*JOBPARM FETCH                                                                 
//******************************************************************            
//*                                                                             
//* TITLE: CPI-C  AUTOCALLING                                                   
//*                                                                             
//* SAMPLE JCL TO COMPILE AND LINK THE IBM SUPPLIED CPI-C SAMPLES               
//* USING SAS/C AND AUTOCALLING.                                                
//*                                                                             
//* CHANGE ALL OCCURANCES OF USER TO YOUR PREFIX.                               
//******************************************************************            
//*                                                                             
//* USE H ASM TO ASSEMBLE THE SHOW ROUTINE (ATBASSHW)                           
//*                                                                             
//ASMHC EXEC ASMHC,                                                             
//        PARM.ASM='NODECK,OBJECT,XREF,ALIGN'                                   
//ASM.SYSLIN DD DSN=USER.OBJ(ATBASSHW),DISP=SHR                                 
//ASM.SYSIN  DD DSN=SYS1.SAMPLIB(ATBASSHW),DISP=SHR                             
//*------------------------------------------------------------------           
//*  BUILD THE ATBCECAI TP                                                      
//*------------------------------------------------------------------           
//*                                                                             
//* USE SASC TO COMPILE THE ATBCECAI ROUTINE                                    
//*                                                                             
//COMP1 EXEC LC370C,                                                            
//        PARM.C='EXTNAME RENT DEBUG SNAME(CECAI)'                              
//C.SYSLIN   DD DSN=USER.OBJ(ATBCECAI),DISP=SHR                                 
//C.SYSDBLIB DD DSN=USER.DBGLIB,DISP=SHR                                        
//C.H        DD DSN=SYS1.SAMPLIB,DISP=SHR                                       
//*C.SYSIN    DD DSN=SYS1.SAMPLIB(ATBCECAI),DISP=SHR  FIX BUGS                  
//C.SYSIN    DD DSN=USER.C(ATBCECAI),DISP=SHR                                   
//*                                                                             
//* USE SASC CLINK TO LINK THE ATBCECAI TP                                      
//*                                                                             
//CLINK EXEC LC370LR,PARM.LKED='LIST,MAP,AMODE(31)'                             
//LKED.SYSLMOD DD DISP=SHR,DSN=USER.LOAD                                        
//LKED.SYSIN   DD *                                                             
 ENTRY MAIN                                                                     
 INCLUDE OBJ(ATBCECAI)                                                          
 INCLUDE OBJ(ATBASSHW)                                                          
 NAME ATBCECAI(R)                                                               
/*                                                                              
//LKED.OBJ     DD DISP=SHR,DSN=USER.OBJ                                         
//LKED.SYSLDLIB DD DISP=SHR,DSN=SYS1.CSSLIB                                     
//*------------------------------------------------------------------           
//*  BUILD THE ATBCECAO TP                                                      
//*------------------------------------------------------------------           
//*                                                                             
//* USE SASC TO COMPILE THE ATBCECAO ROUTINE                                    
//*                                                                             
//COMP2 EXEC LC370C,                                                            
//        PARM.C='EXTNAME RENT DEBUG SNAME(CECAO)'                              
//C.SYSLIN   DD DSN=USER.OBJ(ATBCECAO),DISP=SHR                                 
//C.SYSDBLIB DD DSN=USER.DBGLIB,DISP=SHR                                        
//C.H        DD DSN=SYS1.SAMPLIB,DISP=SHR                                       
//*C.SYSIN    DD DSN=SYS1.SAMPLIB(ATBCECAO),DISP=SHR  FIX BUGS                  
//C.SYSIN    DD DSN=USER.C(ATBCECAO),DISP=SHR                                   
//*                                                                             
//* USE SASC CLINK TO LINK THE ATBCECAO TP                                      
//*                                                                             
//CLINK EXEC LC370LR,PARM.LKED='LIST,MAP,AMODE(31)'                             
//LKED.SYSLMOD  DD DISP=SHR,DSN=USER.LOAD                                       
//LKED.SYSIN    DD *                                                            
 ENTRY MAIN                                                                     
 INCLUDE OBJ(ATBCECAO)                                                          
 INCLUDE OBJ(ATBASSHW)                                                          
 NAME ATBCECAO(R)                                                               
/*                                                                              
//LKED.OBJ      DD DISP=SHR,DSN=USER.OBJ                                        
//LKED.SYSLDLIB DD DISP=SHR,DSN=SYS1.CSSLIB                                     
//