IBC - TEST 1 Exam Review

IBC REVIEW

PGM

/DECLARE VARIABLES /

DCLF FILE(LIBDSPF)

/INITIALIZE VARIABLES /

/DISPLAY THE SCREEN AND GET THE INPUT /

SNDRCVF

/LOOP UNTIL F3  /

DOWHILE CONDO(&IN03=’0’)

/INITILIZE INDICATORS/

CHGVAR VAR(&IN99) VALUE(‘0’)

CHVAR &IN98 ‘0’

/process the option /

Select

When CONDO(&OPTION =’1’ *OR &OPTION=’01’ + *OR &OPTION=’1’) THEN (DO)

CALLSUBR OPTION1

ENDDO

When CONDO(&OPTION =’2’ *OR &OPTION=’02’ + *OR &OPTION=’2’) THEN (DO)

CALLSUBR OPTION2

ENDDO

OTHERWISE CMD (CHGVAR &IN99 ‘0’)

Enselect

/DISPLAY THE SCREEN AND GET THE INPUT /

SNDRCVF

/END OF LOOP/

ENDDO

SUBR OPTION1

RMVLIBLE IBC233LIB

MONMSG CPF2104

ADDLIBLE BAC344LIB

MONMSG CPF2103 EXEC(DO)

CHGVAR &OPTOUT ‘01’

CHGVAR&IN98’1’

ENDDO

ENDSUBR