Programming and Coding Examples › Display File DDS Example

Display File DDS Example

/*T: YEDTSCR - Screen selection display.
/*Z: CRTDSPF DFRWRT(*YES) RSTDSP(*YES)
*
H* SYSTEM : Universal Sprocket Company
H* PROGRAMMER : P Wilson
H* DATE : 16/06/84
H* (C) Copyright 1987 Universal Sprocket Company
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
M* 07/05/87 FRED Add sequence field selection
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A REF(YYFDRFP)
A HELP
A ALTHELP
A ALTPAGEDWN
A ALTPAGEUP
A CA03(03 ‘Exit’)
A CF12(12 ‘Exit’)
A PRINT(LPRTKEY)
A HLPSCHIDX(WSCHIDX)
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
* Subfile of code & name details.
A R #SFRC#1 SFL
A 84 SFLNXTCHG
A #1SFSL 1 B 10 3VALUES(‘P’ ‘E’ ‘C’‘R’)
A CHECK(AB)
A #1SCSQ R B +2REFFLD($$SCSQ)
A CHANGE(46 ‘Prt Seq Changed’)
A 31 DSPATR(RI PC)
A N31 DSPATR(UL HI)
A #1SCTL 50W B +2LOWER
A CHANGE(47 ‘Title changed’)
A 32 DSPATR(RI PC)
A N32 DSPATR(UL HI)
A SASCVN R +2REFFLD($$SCVN) DSPATR(HI)
*
A SASCSQ R H REFFLD($$SCSQ)
A* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A R #SFCT#1 TEXT(‘Screen selection’)
A BLINK OVERLAY
A SFLCTL(#SFRC#1)
A SFLPAG(09) SFLSIZ(11)
A INDTXT(80‘Clear subfile)
A INDTXT(81 ‘Display SFL Rcd’)
A INDTXT(82 ‘Condition SLFEND)

A 80 SFLCLR
A N80 SFLDSPCTL
A N80 81 SFLDSP
A N80 81 82 SFLEND
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
A N82 ROLLUP(27 ‘ROLL UP’)
A HOME(30 ‘HOME key.’)
*. . SETOFS . . . . . . . . . . . . . . . . . . . . . . . . . .
A SETOF(99 ‘Error - general’)
A SETOF(31 ‘Error on #1SCSQ’)
A SETOF(32 ‘Error on #1SCTL’)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* HELP TEXT
A HLPTITLE(‘Select screen’)
A H HLPARA(*NONE)
A HLPPNLGRP(‘ZSFCTZ1/PNL/INTRO
A YYEDSCH)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
* Header fields
A H HLPARA(03 02 03 80)
A HLPPNLGRP(‘ZSFCTZ1/Z1SFSL’)
A YYEDSCH)
A H HLPARA(05 02 05 80)
A HLPPNLGRP(‘ZSFCTZ1/SASCVN’)
A YYEDSCH)
A H HLPARA(07 02 08 80)
A HLPPNLGRP(‘ZSFCTZ1/SASCSQ’)
A YYEDSCH)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* Subfile columns
A H HLPARA(10 03 19 06)
A HLPPNLGRP(‘ZSFCTZ1/Z1SFSL’)
A YYEDSCH)
A H HLPARA(10 04 19 14)
A HLPPNLGRP(‘ZSFCTZ1/Z1SCVN’)
A YYEDSCH)
A H HLPARA(10 15 19 80)
A HLPPNLGRP(‘ZSFCTZ1/Z1SCSQ’)
A YYEDSCH)
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
A #1SFRN 3 0H SFLRCDNBR(CURSOR)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
A O 1 2 ‘YSELPNL’ COLOR(BLU)
A PNLTTL 050 1 12 DSPATR(HI)
A ##USVN R 1 62 REFFL($$USVN)DSPATR(HI)
A +1DATE EDTCDE(Y)DSPATR(HI)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .


* Positioning value
A USR0020 30 3 3MSGID(USR0020 USRPMT)
* +1’.’
A ##SCVN R B +3REFFLD($$SCVN)
A CHANGE(41 ‘Seln screen’)
A UIS0005 20 +3MSGID(UIS0003 USRPMT)
* Subsetting value
A USR0022 30 4 3MSGID(USR0022 USRPMT)
* +1’.’
A ##SBVN R B +3REFFLD($$SCSQ)
A CHANGE(40 ‘Start seq’)
A UIS0010 20 +3MSGID(UIS0003 USRPMT)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* Top instruction
A PNLTX1MSID 078 6 2MSGID(UIS0008 USRPMT)
A TEXT(‘TYPE OPTION,PRESS E’)
A COLOR(BLU)
A PNLTX2MSID 078 7 2MSGID(WUT2110 USRPMT)
A TEXT(‘1=Select’)
A COLOR(BLU)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* Column Headings
A COLHD1MSID 078 9 2MSGID(WUT2111 USRPMT)
A DSPATR(HI)
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A R #CMTX##1
A TEXT(‘Command key line’)
A OVERLAY
A HLPTITLE(‘Function keys’)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
* Command key explanations
A H HLPARA(22 01 23 80)
A HLPPNLGRP(‘ZCMTXZ1/BOTINS’)
A YYEDSCH)
* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
A 83N88 MOREMSID 10 28 70MSGID(UIS0016 USRPMT)
A TEXT(‘more’)
A DSPATR(HI)
A 83 88 BOTTOMMSID 10 22 70MSGID(UIS0017 USRPMT)
A TEXT(‘BOTTOM’)
A DSPATR(HI)
A CMDTX1MSI 078 23 2MSGID(WLL2191 WPMTMSG)
A TEXT(‘F3=Exit’)
A COLOR(BLU)
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
A R #NODA##1 TEXT(‘NO DATA’)
A OVERLAY
A NODATAMSI 078 13 2MSGID(WUT2131 wPMTMSG)
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =

* Error messages subfile.
A R #SFRC#Q SFL
A SFLMSGRCD(24)
A MSGKEY SFLMSGKEY
A ##PGVN SFLPGMQ
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
* Error messages subfile Control
A R #SFCT#Q TEXT(‘Program messages’)
A SFLCTL(#SFRC#Q)
A SFLPAG(1) SFLSIZ(15)
A OVERLAY
A SFLINZ SFLDSP SFLDSPCTL
A ##PGVN SFLPGMQ
* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =