//ABLMSCA   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',
//        CLASS=1,MSGCLASS=T,NOTIFY=ABLMSC
//**                                                                    00000015
//RUNSQL1A EXEC PGM=IKJEFT01,
//   COND=(4,LT)
//*-----------------------------------------------------------------
//STEPLIB  DD DISP=SHR,DSN=J062SC.TEST.DB2LOAD,
//            DCB=BLKSIZE=32000
//         DD DISP=SHR,DSN=J062SC.GOALDB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DSN=ABLMSC.J108SC.SPUFI.INPUT(SYSTSIN),DISP=SHR
//SYSIN    DD *
  SET CURRENT SQLID = 'SCPGM';
  COMMIT;
------------------------------------------------------------------------
  ALTER TABLE DSMTS.TFPRJHDR
  ADD P_H01_A             DECIMAL(11,2)         NOT NULL WITH DEFAULT
