維護純潔思想組

//TEAM35A JOB M9709307,'SHIH-MIN CHAN',MSGLEVEL=(1,1),MSGCLASS=A,      
//   CLASS=A,NOTIFY=TEAM35                                             
//IEBCOPY EXEC PGM=IEBCOPY                                             
//SYSIN DD DUMMY                                                       
//SYSUT1 DD DSN=TEAM50.NTUST.COBOL,DISP=SHR                            
//SYSUT2 DD DSN=TEAM35.NTUST.COBOL,DISP=(NEW,CATLG),                   
//   SPACE=(TRK,(3,3,2)),DCB=(DSORG=PO,LRECL=80,RECFM=FB),UNIT=3390    
//SYSPRINT DD SYSOUT=A