         PROC  P,0                                                      COS00010
COS1KADD NAME  1                                                        COS00020
COS2KADD NAME  2                                                        COS00030
// OPTION SCAN,SUB                                                      COS00040
// EXEC  LIBS                                                           COS00050
/$                                                                      COS00060
         FIL   D1=$Y$SRC                                                COS00070
         BOG   SYSTEM,D1                                                COS00080
         ELE   D1,S,IL&P(0).K0000                                       COS00090
// CR FIN                                                               COS00100
         EOD                                                            COS00110
         EOG   SYSTEM,D1                                                COS00120
/*                                                                      COS00130
         END                                                            COS00140
