oocobol0.sct

c#设计模式WithCla

      LITERAL_SYMBOL$set mfoo

      *------------------------------------------------------------
      * Insert your description of class here
      *------------------------------------------------------------
       Class-id. CLASS_NAME
           data is protected
           [inherits from SUPERCLASS_NAME with data]
           .

NO_OUTPUT_BEGIN
Request: I would like to be able to insert class-library-base-class
         if there is no superclass-name.  This applies to the use of
         superclass-name under Class-control, as well.
         .
NO_OUTPUT_END

       Object section.

      *------------------------------------------------------------
      * Insert names of other classes used here
      *------------------------------------------------------------
       Class-control.
          [SUPERCLASS_NAME is class "SUPERCLASS_NAME"]
          CLASS_NAME is class "CLASS_NAME"
          [ASSOCIATION_CLASS is class "ASSOCIATION_CLASS"]
          [AGGREGATION_CLASS is class "AGGREGATION_CLASS"]
          CLASS_USER1
          .

NO_OUTPUT_BEGIN
Error: I was not able to capitalize and truncate-eight a single instance of
       a variable when there are many instances in a expression.  Class
       control identifies a internal class name such as CellularPhone with
       it's external file name, clllrphn.  I would like to derive the
       external name using these actions.  
NO_OUTPUT_END

      *------------------------------------------------------------
      * Insert shared data declarations here (class and instance).
      *------------------------------------------------------------
       working-storage section.

      LITERAL_SYMBOL$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.
      LITERAL_SYMBOL$set sourceformat(fixed)

       CLASS_USER2

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

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

       Method-id. "create".

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

       linkage section.
       01  ls$CLASS_NAME object reference.

      *------------------------------------------------------------
      * Insert your procedure specification here
      *------------------------------------------------------------
       procedure division returning ls$CLASS_NAME.
           invoke super "new"
               returning ls$CLASS_NAME
           invoke ls$CLASS_NAME "initialize".
           exit method.
       end method "create".

       object.

      *------------------------------------------------------------
      * Insert your object instance data declarations here
      *------------------------------------------------------------
       object-storage section.
       [01  a$ATTRIBUTE_NAME           ATTRIBUTE_TYPE.]
       [01  a$ASSOCIATION_ONE_NAME     object reference.]
       [01  the$ASSOCIATION_MANY_NAME  object reference.]
       [01  a$AGGREGATION_ONE_NAME     object reference.]
       [01  the$AGGREGATION_MANY_NAME  object reference.]

       Method-id. "initialize".

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

       linkage section.

      *------------------------------------------------------------
      * Insert your procedure specification here
      *------------------------------------------------------------
       procedure division.
           [initialize a$ATTRIBUTE_NAME]
           [set a$ASSOCIATION_ONE_NAME to null]
           [set the$ASSOCIATION_MANY_NAME to null]
           [set a$AGGREGATION_ONE_NAME to null]
           [set the$AGGREGATION_MANY_NAME to null]
           exit method.
       end method "initialize".

       [
       Method-id. "get$ATTRIBUTE_NAME".

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

       linkage section.
       01 lk$ATTRIBUTE_NAME ATTRIBUTE_TYPE.

      *------------------------------------------------------------
      * Insert your procedure specification here
      *------------------------------------------------------------
       procedure division returning lk$ATTRIBUTE_NAME.
           move a$ATTRIBUTE_NAME to lk$ATTRIBUTE_NAME
           exit method.
       end method "get$ATTRIBUTE_NAME".

       Method-id. "set$ATTRIBUTE_NAME".

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

       linkage section.
       01 lk$ATTRIBUTE_NAME	ATTRIBUTE_TYPE.

      *------------------------------------------------------------
      * Insert your procedure specification here
      *------------------------------------------------------------
       procedure division using lk$ATTRIBUTE_NAME.
           move lk$ATTRIBUTE_NAME to a$ATTRIBUTE_NAME
           exit method.
       end method "set$ATTRIBUTE_NAME".
       ]

       [
       Method-id. "OPERATION_NAME".

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

       linkage section.

      *------------------------------------------------------------
      * Insert your procedure specification here
      *------------------------------------------------------------
       procedure division.
           exit method.
       end method "OPERATION_NAME".
       ]

       end object.
       end class CLASS_NAME.