|
|
Lest someone think these big-print characters were hand-drawn there is a freeware PC or Unix software product named “Figlet” that converts ordinary ASCII text to what is called “ASCII Art”. Figlet is easily found with a web search and has several fonts available for fixed-font display. Another example on this site is the Subfile sample. To place the Figlet characters in the code I used Figlet to create the characters and then copied them to the clipboard and pasted them to an SDA screen.
The DDS to display the figlet characters for the clock
A*************************************************************
A**
A** «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
A** «» FlyByNight Software AS/400 Technical Specialists «»
A** «» Eclipse the competition - run your business on an IBM AS/400. «»
A** «» «»
A** «» Phone: +61 3 9419 0175 Mobile: +61 0411 091 400 «»
A** «» Fax: +61 3 9419 0175 mailto: shc@flybynight.com.au «»
A** «» «»
A** «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
A**
A** This program started as a copy of Simon's Clock Program **
A** I appreciate his knowledge and have used it, but if **
A** anything does not run right, that's me, not him. **
A** Booth Martin 2/00 Booth@MartinVT.com **
A** **
A*************************************************************
A*%%FD - clock -
A*%%EC
A DSPSIZ(24 80 *DS3)
A R RFIGLET
A*%%TS SD 20000223 104532 BOOTH REL-V4R4M0 5769-PW1
A CF03(03 'EXIT')
A CF06(06 'SYSOP Messages')
A CF08(08 'Settings')
A BLINK
A OVERLAY
A WINDOW(2 6 9 65 *NOMSGLIN)
A WDWBORDER((*COLOR WHT))
A WDWTITLE((*TEXT &TITLE))
A 11 2 1' _ '
A 11 3 1' / | '
A 11 4 1' | | '
A 11 5 1' | | '
A 11 6 1' |_| '
A 12 2 1' ____ '
A 12 3 1'|___ \ '
A 12 4 1' __) | '
A 12 5 1' / __/ '
A 12 6 1'|_____| '
A 21 2 10' _ '
A 21 3 10' / | '
A 21 4 10' | | '
A 21 5 10' | | '
A 21 6 10' |_| '
A 22 2 10' ____ '
A 22 3 10'|___ \ '
A 22 4 10' __) | '
A 22 5 10' / __/ '
A 22 6 10'|_____| '
A 23 2 10' _____ '
A 23 3 10'|___ / '
A 23 4 10' |_ \ '
A 23 5 10' ___) | '
A 23 6 10'|____/ '
A 24 2 10' _ _ '
A 24 3 10'| || | '
A 24 4 10'| || |_ '
A 24 5 10'|__ _|'
A 24 6 10' |_| '
A 25 2 10' ____ '
A 25 3 10'| ___| '
A 25 4 10'|___ \ '
A 25 5 10' ___) | '
A 25 6 10'|____/ '
A 26 2 10' __ '
A 26 3 10' / /_ '
A 26 4 10'| _ \ '
A 26 5 10'| (_) | '
A 26 6 10' \___/ '
A 27 2 10' _____ '
A 27 3 10'|___ | '
A 27 4 10' / / '
A 27 5 10' / / '
A 27 6 10' /_/ '
A 28 2 10' ___ '
A 28 3 10' ( _ ) '
A 28 4 10' / _ \ '
A 28 5 10'| (_) | '
A 28 6 10' \___/ '
A 29 2 10' ___ '
A 29 3 10' / _ \ '
A 29 4 10'| (_) | '
A 29 5 10' \__, | '
A 29 6 10' /_/ '
A 20 2 10' ___ '
A 20 3 10' / _ \ '
A 20 4 10'| | | | '
A 20 5 10'| |_| | '
A 20 6 10' \___/ '
A 31 2 25' _ '
A 31 3 25' / | '
A 31 4 25' | | '
A 31 5 25' | | '
A 31 6 25' |_| '
A 32 2 25' ____ '
A 32 3 25'|___ \ '
A 32 4 25' __) | '
A 32 5 25' / __/ '
A 32 6 25'|_____| '
A 33 2 25' _____ '
A 33 3 25'|___ / '
A 33 4 25' |_ \ '
A 33 5 25' ___) | '
A 33 6 25'|____/ '
A 34 2 25' _ _ '
A 34 3 25'| || | '
A 34 4 25'| || |_ '
A 34 5 25'|__ _|'
A 34 6 25' |_| '
A 35 2 25' ____ '
A 35 3 25'| ___| '
A 35 4 25'|___ \ '
A 35 5 25' ___) | '
A 35 6 25'|____/ '
A 36 2 25' __ '
A 36 3 25' / /_ '
A 36 4 25'| _ \ '
A 36 5 25'| (_) | '
A 36 6 25' \___/ '
A 37 2 25' _____ '
A 37 3 25'|___ | '
A 37 4 25' / / '
A 37 5 25' / / '
A 37 6 25' /_/ '
A 38 2 25' ___ '
A 38 3 25' ( _ ) '
A 38 4 25' / _ \ '
A 38 5 25'| (_) | '
A 38 6 25' \___/ '
A 39 2 25' ___ '
A 39 3 25' / _ \ '
A 39 4 25'| (_) | '
A 39 5 25' \__, | '
A 39 6 25' /_/ '
A 30 2 25' ___ '
A 30 3 25' / _ \ '
A 30 4 25'| | | | '
A 30 5 25'| |_| | '
A 30 6 25' \___/ '
A 41 2 34' _ '
A 41 3 34' / | '
A 41 4 34' | | '
A 41 5 34' | | '
A 41 6 34' |_| '
A 42 2 34' ____ '
A 42 3 34'|___ \ '
A 42 4 34' __) | '
A 42 5 34' / __/ '
A 42 6 34'|_____| '
A 43 2 34' _____ '
A 43 3 34'|___ / '
A 43 4 34' |_ \ '
A 43 5 34' ___) | '
A 43 6 34'|____/ '
A 44 2 34' _ _ '
A 44 3 34'| || | '
A 44 4 34'| || |_ '
A 44 5 34'|__ _|'
A 44 6 34' |_| '
A 45 2 34' ____ '
A 45 3 34'| ___| '
A 45 4 34'|___ \ '
A 45 5 34' ___) | '
A 45 6 34'|____/ '
A 46 2 34' __ '
A 46 3 34' / /_ '
A 46 4 34'| _ \ '
A 46 5 34'| (_) | '
A 46 6 34' \___/ '
A 47 2 34' _____ '
A 47 3 34'|___ | '
A 47 4 34' / / '
A 47 5 34' / / '
A 47 6 34' /_/ '
A 48 2 34' ___ '
A 48 3 34' ( _ ) '
A 48 4 34' / _ \ '
A 48 5 34'| (_) | '
A 48 6 34' \___/ '
A 49 2 34' ___ '
A 49 3 34' / _ \ '
A 49 4 34'| (_) | '
A 49 5 34' \__, | '
A 49 6 34' /_/ '
A 40 2 34' ___ '
A 40 3 34' / _ \ '
A 40 4 34'| | | | '
A 40 5 34'| |_| | '
A 40 6 34' \___/ '
A 51 2 49' _ '
A 51 3 49' / | '
A 51 4 49' | | '
A 51 5 49' | | '
A 51 6 49' |_| '
A 52 2 49' ____ '
A 52 3 49'|___ \ '
A 52 4 49' __) | '
A 52 5 49' / __/ '
A 52 6 49'|_____| '
A 53 2 49' _____ '
A 53 3 49'|___ / '
A 53 4 49' |_ \ '
A 53 5 49' ___) | '
A 53 6 49'|____/ '
A 54 2 49' _ _ '
A 54 3 49'| || | '
A 54 4 49'| || |_ '
A 54 5 49'|__ _|'
A 54 6 49' |_| '
A 55 2 49' ____ '
A 55 3 49'| ___| '
A 55 4 49'|___ \ '
A 55 5 49' ___) | '
A 55 6 49'|____/ '
A 56 2 49' __ '
A 56 3 49' / /_ '
A 56 4 49'| _ \ '
A 56 5 49'| (_) | '
A 56 6 49' \___/ '
A 57 2 49' _____ '
A 57 3 49'|___ | '
A 57 4 49' / / '
A 57 5 49' / / '
A 57 6 49' /_/ '
A 58 2 49' ___ '
A 58 3 49' ( _ ) '
A 58 4 49' / _ \ '
A 58 5 49'| (_) | '
A 58 6 49' \___/ '
A 59 2 49' ___ '
A 59 3 49' / _ \ '
A 59 4 49'| (_) | '
A 59 5 49' \__, | '
A 59 6 49' /_/ '
A 50 2 49' ___ '
A 50 3 49' / _ \ '
A 50 4 49'| | | | '
A 50 5 49'| |_| | '
A 50 6 49' \___/ '
A 61 2 58' _ '
A 61 3 58' / | '
A 61 4 58' | | '
A 61 5 58' | | '
A 61 6 58' |_| '
A 62 2 58' ____ '
A 62 3 58'|___ \ '
A 62 4 58' __) | '
A 62 5 58' / __/ '
A 62 6 58'|_____| '
A 63 2 58' _____ '
A 63 3 58'|___ / '
A 63 4 58' |_ \ '
A 63 5 58' ___) | '
A 63 6 58'|____/ '
A 64 2 58' _ _ '
A 64 3 58'| || | '
A 64 4 58'| || |_ '
A 64 5 58'|__ _|'
A 64 6 58' |_| '
A 65 2 58' ____ '
A 65 3 58'| ___| '
A 65 4 58'|___ \ '
A 65 5 58' ___) | '
A 65 6 58'|____/ '
A 66 2 58' __ '
A 66 3 58' / /_ '
A 66 4 58'| _ \ '
A 66 5 58'| (_) | '
A 66 6 58' \___/ '
A 67 2 58' _____ '
A 67 3 58'|___ | '
A 67 4 58' / / '
A 67 5 58' / / '
A 67 6 58' /_/ '
A 68 2 58' ___ '
A 68 3 58' ( _ ) '
A 68 4 58' / _ \ '
A 68 5 58'| (_) | '
A 68 6 58' \___/ '
A 69 2 58' ___ '
A 69 3 58' / _ \ '
A 69 4 58'| (_) | '
A 69 5 58' \__, | '
A 69 6 58' /_/ '
A 60 2 58' ___ '
A 60 3 58' / _ \ '
A 60 4 58'| | | | '
A 60 5 58'| |_| | '
A 60 6 58' \___/ '
A 3 20' _ '
A 4 20'(_)'
A 5 20' _ '
A 6 20'(_)'
A 3 44' _ '
A 4 44'(_)'
A 5 44' _ '
A 6 44'(_)'
A TITLE 50 P
A PB2 2Y 0B 9 1PSHBTNFLD((*GUTTER 1))
A PSHBTNCHC(1 'M>essages' CF06)
A PSHBTNCHC(2 'S>ettings' CF08)
A PSHBTNCHC(3 'E>xit' CF03)
A DOWEEK 9A O 8 56COLOR(WHT)
A DAT 8A O 9 57COLOR(WHT)
A 8 49'Day:'
A JDAY 6A O 9 49COLOR(WHT)
|
The CL to run a really expensive digital clock
PGM
/************************************************************* +
** +
** «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«» +
** «» FlyByNight Software AS/400 Technical Specialists «» +
** «» Eclipse the competition - run your business on an IBM AS/400. «» +
** «» «» +
** «» Phone: +61 3 9419 0175 Mobile: +61 0411 091 400 «» +
** «» Fax: +61 3 9419 0175 mailto: shc@flybynight.com.au «» +
** «» «» +
** «»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«» +
** +
** This program started as a copy of Simon's Clock Program ** +
** I appreciate his knowledge and have used it, but if ** +
** anything does not run right, that's me, not him. ** +
** Booth Martin 2/00 booth@Martinvt.com ** +
** ** +
************************************************************* */
DCLF FILE(CLKFIGFM) RCDFMT(*ALL)
/* Display file - digital clock */
DCL VAR(&HR) TYPE(*CHAR) LEN(2)
/* Hour component of the time */
DCL VAR(&MIN) TYPE(*CHAR) LEN(2)
/* Minute component of the time */
DCL VAR(&SEC) TYPE(*CHAR) LEN(2)
/* Second component of the time */
DCL VAR(&DAT6) TYPE(*CHAR) LEN(6)
/* Current Date */
DCL VAR(&DOW) TYPE(*CHAR) LEN(4)
/* Current Day of week */
DCL VAR(&COL1) TYPE(*CHAR) LEN(1)
/* Left component of the hour */
DCL VAR(&COL2) TYPE(*CHAR) LEN(1)
/* Right component of the hour */
DCL VAR(&COL3) TYPE(*CHAR) LEN(1)
/* Left component of the minute */
DCL VAR(&COL4) TYPE(*CHAR) LEN(1)
/* Right component of the minute */
DCL VAR(&COL5) TYPE(*CHAR) LEN(1)
/* Left component of the second */
DCL VAR(&COL6) TYPE(*CHAR) LEN(1)
/* Right component of the second */
DCL VAR(&SYSNAME) TYPE(*CHAR) LEN(8)
RTVNETA SYSNAME(&SYSNAME)
CHGVAR VAR(&TITLE) VALUE(' Official System Time +
for' *BCAT &SYSNAME *CAT ' ')
AGAIN: /* Get the current time */
RTVSYSVAL SYSVAL(QHOUR) RTNVAR(&HR)
RTVSYSVAL SYSVAL(QMINUTE) RTNVAR(&MIN)
RTVSYSVAL SYSVAL(QSECOND) RTNVAR(&SEC)
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DAT6)
RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&DOW)
/* Display fields: Date, Julian date, and day-of-week */
CVTDAT DATE(&DAT6) TOVAR(&JDAY) TOFMT(*JUL) TOSEP(/)
CVTDAT DATE(&DAT6) TOVAR(&DAT) TOFMT(*MDY) TOSEP(/)
IF COND(&DOW = '*SUN') THEN(CHGVAR VAR(&DOWEEK) +
VALUE(' Sunday'))
IF COND(&DOW = '*MON') THEN(CHGVAR VAR(&DOWEEK) +
VALUE(' Monday'))
IF COND(&DOW = '*TUE') THEN(CHGVAR VAR(&DOWEEK) +
VALUE(' Tuesday'))
IF COND(&DOW = '*WED') THEN(CHGVAR VAR(&DOWEEK) +
VALUE('Wednesday'))
IF COND(&DOW = '*THU') THEN(CHGVAR VAR(&DOWEEK) +
VALUE('Thursday'))
IF COND(&DOW = '*FRI') THEN(CHGVAR VAR(&DOWEEK) +
VALUE(' Friday'))
IF COND(&DOW = '*SAT') THEN(CHGVAR VAR(&DOWEEK) +
VALUE('Saturday'))
CHGVAR VAR(&COL1) VALUE(%SST(&HR 1 1))
CHGVAR VAR(&COL2) VALUE(%SST(&HR 2 1))
CHGVAR VAR(&COL3) VALUE(%SST(&MIN 1 1))
CHGVAR VAR(&COL4) VALUE(%SST(&MIN 2 1))
CHGVAR VAR(&COL5) VALUE(%SST(&SEC 1 1))
CHGVAR VAR(&COL6) VALUE(%SST(&SEC 2 1))
/* Set the indicators for the left digit of the hour */
/* -- leading zero is not shown */
IF COND(&COL1 *EQ '1') THEN(CHGVAR VAR(&IN11) +
VALUE('1'))
IF COND(&COL1 *EQ '2') THEN(CHGVAR VAR(&IN12) +
VALUE('1'))
/* Set the indicators for the right digit of the hour */
IF COND(&COL2 *EQ '0') THEN(CHGVAR VAR(&IN20) +
VALUE('1'))
IF COND(&COL2 *EQ '1') THEN(CHGVAR VAR(&IN21) +
VALUE('1'))
IF COND(&COL2 *EQ '2') THEN(CHGVAR VAR(&IN22) +
VALUE('1'))
IF COND(&COL2 *EQ '3') THEN(CHGVAR VAR(&IN23) +
VALUE('1'))
IF COND(&COL2 *EQ '4') THEN(CHGVAR VAR(&IN24) +
VALUE('1'))
IF COND(&COL2 *EQ '5') THEN(CHGVAR VAR(&IN25) +
VALUE('1'))
IF COND(&COL2 *EQ '6') THEN(CHGVAR VAR(&IN26) +
VALUE('1'))
IF COND(&COL2 *EQ '7') THEN(CHGVAR VAR(&IN27) +
VALUE('1'))
IF COND(&COL2 *EQ '8') THEN(CHGVAR VAR(&IN28) +
VALUE('1'))
IF COND(&COL2 *EQ '9') THEN(CHGVAR VAR(&IN29) +
VALUE('1'))
/* Set the indicators for the left digit of the minute */
IF COND(&COL3 *EQ '0') THEN(CHGVAR VAR(&IN30) +
VALUE('1'))
IF COND(&COL3 *EQ '1') THEN(CHGVAR VAR(&IN31) +
VALUE('1'))
IF COND(&COL3 *EQ '2') THEN(CHGVAR VAR(&IN32) +
VALUE('1'))
IF COND(&COL3 *EQ '3') THEN(CHGVAR VAR(&IN33) +
VALUE('1'))
IF COND(&COL3 *EQ '4') THEN(CHGVAR VAR(&IN34) +
VALUE('1'))
IF COND(&COL3 *EQ '5') THEN(CHGVAR VAR(&IN35) +
VALUE('1'))
IF COND(&COL3 *EQ '6') THEN(CHGVAR VAR(&IN36) +
VALUE('1'))
IF COND(&COL3 *EQ '7') THEN(CHGVAR VAR(&IN37) +
VALUE('1'))
IF COND(&COL3 *EQ '8') THEN(CHGVAR VAR(&IN38) +
VALUE('1'))
IF COND(&COL3 *EQ '9') THEN(CHGVAR VAR(&IN39) +
VALUE('1'))
/* Set the indicators for the right digit of the minute */
IF COND(&COL4 *EQ '0') THEN(CHGVAR VAR(&IN40) +
VALUE('1'))
IF COND(&COL4 *EQ '1') THEN(CHGVAR VAR(&IN41) +
VALUE('1'))
IF COND(&COL4 *EQ '2') THEN(CHGVAR VAR(&IN42) +
VALUE('1'))
IF COND(&COL4 *EQ '3') THEN(CHGVAR VAR(&IN43) +
VALUE('1'))
IF COND(&COL4 *EQ '4') THEN(CHGVAR VAR(&IN44) +
VALUE('1'))
IF COND(&COL4 *EQ '5') THEN(CHGVAR VAR(&IN45) +
VALUE('1'))
IF COND(&COL4 *EQ '6') THEN(CHGVAR VAR(&IN46) +
VALUE('1'))
IF COND(&COL4 *EQ '7') THEN(CHGVAR VAR(&IN47) +
VALUE('1'))
IF COND(&COL4 *EQ '8') THEN(CHGVAR VAR(&IN48) +
VALUE('1'))
IF COND(&COL4 *EQ '9') THEN(CHGVAR VAR(&IN49) +
VALUE('1'))
/* Set the indicators for the left digit of the second */
IF COND(&COL5 *EQ '0') THEN(CHGVAR VAR(&IN50) +
VALUE('1'))
IF COND(&COL5 *EQ '1') THEN(CHGVAR VAR(&IN51) +
VALUE('1'))
IF COND(&COL5 *EQ '2') THEN(CHGVAR VAR(&IN52) +
VALUE('1'))
IF COND(&COL5 *EQ '3') THEN(CHGVAR VAR(&IN53) +
VALUE('1'))
IF COND(&COL5 *EQ '4') THEN(CHGVAR VAR(&IN54) +
VALUE('1'))
IF COND(&COL5 *EQ '5') THEN(CHGVAR VAR(&IN55) +
VALUE('1'))
IF COND(&COL5 *EQ '6') THEN(CHGVAR VAR(&IN56) +
VALUE('1'))
IF COND(&COL5 *EQ '7') THEN(CHGVAR VAR(&IN57) +
VALUE('1'))
IF COND(&COL5 *EQ '8') THEN(CHGVAR VAR(&IN58) +
VALUE('1'))
IF COND(&COL5 *EQ '9') THEN(CHGVAR VAR(&IN59) +
VALUE('1'))
/* Set the indicators for the Right digit of the Second */
IF COND(&COL6 *EQ '0') THEN(CHGVAR VAR(&IN60) +
VALUE('1'))
IF COND(&COL6 *EQ '1') THEN(CHGVAR VAR(&IN61) +
VALUE('1'))
IF COND(&COL6 *EQ '2') THEN(CHGVAR VAR(&IN62) +
VALUE('1'))
IF COND(&COL6 *EQ '3') THEN(CHGVAR VAR(&IN63) +
VALUE('1'))
IF COND(&COL6 *EQ '4') THEN(CHGVAR VAR(&IN64) +
VALUE('1'))
IF COND(&COL6 *EQ '5') THEN(CHGVAR VAR(&IN65) +
VALUE('1'))
IF COND(&COL6 *EQ '6') THEN(CHGVAR VAR(&IN66) +
VALUE('1'))
IF COND(&COL6 *EQ '7') THEN(CHGVAR VAR(&IN67) +
VALUE('1'))
IF COND(&COL6 *EQ '8') THEN(CHGVAR VAR(&IN68) +
VALUE('1'))
IF COND(&COL6 *EQ '9') THEN(CHGVAR VAR(&IN69) +
VALUE('1'))
/* Display the clock face */
SNDRCVF RCDFMT(RFIGLET) WAIT(*NO)
MONMSG MSGID(CPF0887) EXEC(DO)
RCVMSG MSGTYPE(*EXCP)
RCVF
IF COND(&PB2 *EQ 01) THEN(WRKMSG MSGQ(*SYSOPR))
IF COND(&PB2 *EQ 02) THEN(GOTO CMDLBL(AGAIN))
IF COND(&PB2 *EQ 03) THEN(GOTO CMDLBL(ENDJOB))
IF COND(&IN03 *EQ '1') THEN(GOTO CMDLBL(ENDJOB))
IF COND(&IN06 *EQ '1') THEN(WRKMSG MSGQ(*SYSOPR))
ENDDO
DLYJOB DLY(1)
CHGVAR VAR(&IN11) VALUE('0')
CHGVAR VAR(&IN12) VALUE('0')
CHGVAR VAR(&IN20) VALUE('0')
CHGVAR VAR(&IN21) VALUE('0')
CHGVAR VAR(&IN22) VALUE('0')
CHGVAR VAR(&IN23) VALUE('0')
CHGVAR VAR(&IN24) VALUE('0')
CHGVAR VAR(&IN25) VALUE('0')
CHGVAR VAR(&IN26) VALUE('0')
CHGVAR VAR(&IN27) VALUE('0')
CHGVAR VAR(&IN28) VALUE('0')
CHGVAR VAR(&IN29) VALUE('0')
CHGVAR VAR(&IN30) VALUE('0')
CHGVAR VAR(&IN31) VALUE('0')
CHGVAR VAR(&IN32) VALUE('0')
CHGVAR VAR(&IN33) VALUE('0')
CHGVAR VAR(&IN34) VALUE('0')
CHGVAR VAR(&IN35) VALUE('0')
CHGVAR VAR(&IN36) VALUE('0')
CHGVAR VAR(&IN37) VALUE('0')
CHGVAR VAR(&IN38) VALUE('0')
CHGVAR VAR(&IN39) VALUE('0')
CHGVAR VAR(&IN40) VALUE('0')
CHGVAR VAR(&IN41) VALUE('0')
CHGVAR VAR(&IN42) VALUE('0')
CHGVAR VAR(&IN43) VALUE('0')
CHGVAR VAR(&IN44) VALUE('0')
CHGVAR VAR(&IN45) VALUE('0')
CHGVAR VAR(&IN46) VALUE('0')
CHGVAR VAR(&IN47) VALUE('0')
CHGVAR VAR(&IN48) VALUE('0')
CHGVAR VAR(&IN49) VALUE('0')
CHGVAR VAR(&IN50) VALUE('0')
CHGVAR VAR(&IN51) VALUE('0')
CHGVAR VAR(&IN52) VALUE('0')
CHGVAR VAR(&IN53) VALUE('0')
CHGVAR VAR(&IN54) VALUE('0')
CHGVAR VAR(&IN55) VALUE('0')
CHGVAR VAR(&IN56) VALUE('0')
CHGVAR VAR(&IN57) VALUE('0')
CHGVAR VAR(&IN58) VALUE('0')
CHGVAR VAR(&IN59) VALUE('0')
CHGVAR VAR(&IN60) VALUE('0')
CHGVAR VAR(&IN61) VALUE('0')
CHGVAR VAR(&IN62) VALUE('0')
CHGVAR VAR(&IN63) VALUE('0')
CHGVAR VAR(&IN64) VALUE('0')
CHGVAR VAR(&IN65) VALUE('0')
CHGVAR VAR(&IN66) VALUE('0')
CHGVAR VAR(&IN67) VALUE('0')
CHGVAR VAR(&IN68) VALUE('0')
CHGVAR VAR(&IN69) VALUE('0')
GOTO CMDLBL(AGAIN)
ENDJOB: ENDPGM
|
|
|
|
