Ü  SELECT (Begin a Select Group)

·         It is used to make a case statement so that only statements satisfying the condition will be executed.

·         The condition is mentioned with WHENEQ opcode.

Example


007.00  *___MAIN SUBROUTINE BEGINGS HERE_______________
0008.00 C     MAIN          BEGSR
0008.01 C                   READC     EXPD_SFL
0008.02 C                   DOW       NOT %EOF()
0008.03 C                   SELECT
0008.04 C     S_OPT         WHENEQ    '1'
0008.05 C                   EXSR      OPTION1
0008.06 C     S_OPT         WHENEQ    '2'
0008.07 C                   EXSR      OPTION2
0008.08 C     S_OPT         WHENEQ    '4'
0008.09 C                   EXSR      OPTION4
0008.10 C     S_OPT         WHENEQ    '5'
0008.11 C                   EXSR      OPTION5
0008.12 C                   OTHER
0008.13 C                   EXSR      VALIDATE
0008.14 C                   ENDSL
0008.15 C                   READC     EXPD_SFL
0008.16 C                   ENDDO
0008.18 C                   EVAL      MODE='1'
0009.00 C                   ENDSR












User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy