clllrphn.cbl

c#设计模式WithCla

      $set mfoo
      *------------------------------------------------------------
      *
      * This class was derived from following C++ implementation.
      *
      *----- Start of clllrphn.h
      *
      * #ifndef __CLLLRPHN_H
      *   #define __CLLLRPHN_H
      *
      * class CellularPhone
      * { long phoneNumber;
      *
      * public:
      *
      *     void makePhoneCall ()  ;
      *
      * };
      *
      * #endif
      *
      *----- End of clllrphn.h
      *----- Start of clllrphn.cpp
      *
      * #include "ClllrPhn.h"
      *
      * void CellularPhone::makePhoneCall()
      * {
      *
      * }
      *----- End of clllrphn.cpp

      *------------------------------------------------------------
      * Insert your description of class cellularPhone here
      *------------------------------------------------------------
       Class-id. CellularPhone
              data is protected
              inherits from Base
              with data.

       Object section.

      *------------------------------------------------------------
      * Insert names of other classes used here
      *------------------------------------------------------------
       Class-control.
           Base is class "base"
           CellularPhone is class "clllrphn"
           .
      *------------------------------------------------------------
      * Insert shared data declarations here (class and instance).
      *------------------------------------------------------------
       working-storage section.

      $set sourceformat(free)
       77  char                   pic     x         is typedef.
       77  uns-char               pic  9(2)  comp-5 is typedef.
       77  short                  pic s9(4)  comp-5 is typedef.
       77  uns-short              pic  9(4)  comp-5 is typedef.
       77  int                    pic s9(9)  comp-5 is typedef.
       77  uns-int                pic  9(9)  comp-5 is typedef.
       77  long                   pic s9(9)  comp-5 is typedef.
       77  uns-long               pic  9(9)  comp-5 is typedef.
       77  d-l-float                         comp-2 is typedef.
       77  d-float                           comp-2 is typedef.
       77  float                             comp-1 is typedef.
       77  proc-pointer           procedure-pointer is typedef.
       77  data-pointer                     pointer is typedef.
       77  void                   pic  9(2)  comp-5 is typedef.
      $set sourceformat(fixed)

      *------------------------------------------------------------
      * Insert your class data declarations here
      *------------------------------------------------------------
       object-storage section.

      *------------------------------------------------------------
      * Add any class initialization code to the procedure division
      *------------------------------------------------------------
       procedure division.
           exit program.

       Method-id. "classMethod".

      *------------------------------------------------------------
      * Insert your data declarations here
      *------------------------------------------------------------
       local-storage section.

       linkage section.

      *------------------------------------------------------------
      * Insert your procedure specification here
      *------------------------------------------------------------
       procedure division.

           exit method.
       end method "classMethod".

       object.

      *------------------------------------------------------------
      * Insert your object instance data declarations here
      *------------------------------------------------------------
       object-storage section.
       01  phoneNumber                 long.

       Method-id. "makePhoneCall".

      *------------------------------------------------------------
      * Insert your data declarations here
      *------------------------------------------------------------
       local-storage section.

       linkage section.

      *------------------------------------------------------------
      * Insert your procedure specification here
      *------------------------------------------------------------
       procedure division.

           exit method.
       end method "makePhoneCall".
       end object.
       end class CellularPhone.