Smart/400开发上手3: 练习实践

 

练习题

 

1. 在2006年1月1日之前入职且在职的营销员，给予年资补贴2000元；
2. 符合以上条件的，再按以下标准一次性发放职级补贴：

职级代码	简称	补偿金额
A1	AD	6000
B1	SBM	5000
C1	BM	4000
其他职级		2000

 

要求：

新增一FILE记录此类奖金的发放明细，要求记录公司号、分支号、营销员代码、职级、年资补贴金额、职级补贴金额，新增一COBOL程序完成奖金计算，然后新建Schedule执行批处理，要求可以重复执行Batch；

备注：

营销员的基础信息为AA01PF，请找出其最合适的LF来使用；

字段说明：公司号COMPANY、分支BRANCH、营销员代码AGNTNUM、营销员职级DUTYDEG、入职日期DTEAPP、离职日期DTETRM（等于99999999为在职）、渠道COMTYPE（AG为营销员）；

 

主要程序段

DELETE逻辑

       5000-DEL-TIM5 SECTION.
      *
       5010-START.
      *
           INITIALIZE                     TIM5-PARAMS.

           MOVE TIM5REC                TO TIM5-FORMAT.  
           MOVE BEGNH                  TO TIM5-FUNCTION.
      *
       5020-READ.
      *
           CALL 'TIM5IO'            USING TIM5-PARAMS.

           IF TIM5-STATUZ        NOT = O-K AND ENDP
                MOVE TIM5-STATUZ         TO SYSR-STATUZ      
                MOVE TIM5-PARAMS         TO SYSR-PARAMS      
                PERFORM 600-FATAL-ERROR
           END-IF.

           IF TIM5-STATUZ            = ENDP
              GO TO 5090-EXIT
           END-IF.
           
           MOVE DELET               TO TIM5-FUNCTION. 
           CALL 'TIM5IO'            USING TIM5-PARAMS.

           IF TIM5-STATUZ        NOT = O-K
              MOVE TIM5-STATUZ      TO SYSR-STATUZ
              MOVE TIM5-PARAMS      TO SYSR-PARAMS
              PERFORM 600-FATAL-ERROR
           END-IF.           
           
      *
       5080-NEXTR.
           MOVE NEXTR                  TO TIM5-FUNCTION.
           GO TO 5020-READ.
      *
       5090-EXIT.
           EXIT.
      /           

View Code