1: Introduction to @SC Sample Form Demo
2: MAPPER @SC Screenshot
3: MAPPER @SC Source Code
4: MJ Ajax-based @SC Emulation
The tabs on this page present a sample @SC form that
exercises field validation
commands like EDIT and the MJ equivalent of
the @SC form:
- View the screen shot of sample
@SCform running under MAPPER - Take a look at the MAPPER source code for the
@SCsample form - Run the browser-based, MJ equivalent of the
sample
@SCform
The sample @SC form exercises field validation
commands like EDIT and appears as follows in the MAPPER MPC client:
The following is the MAPPER source code for the sample @SC form:
.DATE 03:35:58 RID 155B 05 AUG 16 MAPCOORD
.Sample SC Form MJ Test Reports
@LDV <SCTAB>I2=1 .
@LDV <LastFieldNum>I2=21 .
LB,{;RB,};
FKEY,1,HELP,dsphelp
FKEY,4,QUIT,^
FKEY,10,LOGOUT,x
CS;ATT,(NI,WHI/BLU,PR);CR;TIC,~
DEF,1,AI,NI,TS,WHI/BLU
DEF,2,AO,NI,TS,WHI/BLU
DEF,3,NO,NI,TS,WHI/BLU
ATT,(NI,CYA/BLU,PR),08,01 .
ATT,(NI,WHI/BLU,PR),09,01 .
ATT,(NI,CYA/BLU,PR),12,01 .
ATT,(NI,WHI/BLU,PR),13,01 .
ATT,(NI,CYA/BLU,PR),15,01 .
ATT,(NI,WHI/BLU,PR),16,01 .
ATT,(NI,CYA/BLU,PR),18,01 .
ATT,(NI,WHI/BLU,PR),19,01 .
ATT,(NI,CYA/BLU,PR),21,01 .
ATT,(NI,WHI/BLU,PR),22,01 .
ATT,(NI,CYA/BLU,PR),24,01 .
ATT,(NI,WHI/BLU,PR),25,01 .
ATT,(NI,CYA/BLU,PR),29,01 .
ATT,(NI,WHI/BLU,PR),30,01 .
DATA,4,1,28 .
SAMPLE @SC EDIT VALIDATION FORM
Enter field data conforming to @SC EDITs below (all fields optional except REQD)
______________________________________________________________________________
REQD : N : N :
(Must enter a name) (Integer, -1000 -> +1000) (Integer, >= 50)
_____________________________________________________________________________
DATE0 : DATE1 : DATE2 :
("YMMDD", 4/15/2014 ("YYMMDD", 3/30/2010 ("DD MMM YY",
-> 9/14/2016) -> 5/1/2012) > 1/14/1967)
DATE4 : DATE5 : DATE6 :
("YYDDD", > 1/1/1995) ("DDMMYY", 2/8/1945 -> ("MM/DD/YY",
7/1/1991) > 7/25/1969)
DATE8 : DATE9 : DATE11:
("MMDDYY", ) ("DD/MM/YY", < 9/2/2007) ("YYYYMMDD", 1/1/1845
>= 12/31/1969 -> 12/31/1849)
DATE14: DATE15: DATE16:
("YYYYDDD", ("DDMMYYYY", >= 9/7/1822) ("MM/DD/YYYY",
< 11/9/1989) <= 5/5/1789)
DATE18: DATE19: DATE20:
("MMDDYYYY", 1/1/1945 ("DD/MM/YYYY", <=TODAY) ("YYYY-MM-DD", >=TODAY)
-> 12/31/1969)
______________________________________________________________________________
TIME0 : TIME1 : TIME2 :
("HH:MM:SS", 04:04:04 ("HH:MM", > 12:12) ("HHMMSS", <= 09:10:11)
-> 06:06:06)
FLD,08,11,01,05,L,2;FLD,08,36,01,05,L,3;FLD,08,64,01,08,L,3
FLD,12,11,01,05,L,3;FLD,12,36,01,06,L,3;FLD,12,64,01,09,L,1
FLD,15,11,01,05,L,3;FLD,15,36,01,06,L,3;FLD,15,64,01,08,L,1
FLD,18,11,01,06,L,3;FLD,18,36,01,08,L,1;FLD,18,64,01,08,L,3
FLD,21,11,01,07,L,3;FLD,21,36,01,08,L,3;FLD,21,64,01,10,L,1
FLD,24,11,01,08,L,3;FLD,24,36,01,10,L,1;FLD,24,64,01,10,L,1
FLD,29,11,01,08,L,1;FLD,29,36,01,05,L,1;FLD,29,64,01,06,L,3
END
EDIT 1
REQD
EDIT 2
N -1000/1000
EDIT 3
N 50
EDIT 4
D0 40415/60916
EDIT 5
D1 100330/120501
EDIT 6
D2 15 JAN 67
EDIT 7
D4 95002
EDIT 8
D5 020845/070191
EDIT 9
D6 07/26/69
EDIT 10
D8 123169
EDIT 11
D9 01/01/44"/"01/09/07
EDIT 12
D11 18450101/18491231
EDIT 13
D14 1600001/1989313
EDIT 14
D15 09071822
EDIT 15
D16 01/01/1600"/"05/05/1789
EDIT 16
D18 01011945/12311969
EDIT 17
D19 01/01/1600"/"today
EDIT 18
D20 today
EDIT 19
T0 04:04:04/06:06:06
EDIT 20
T1 12:13
EDIT 21
T2 000000/091011
END
@BRK RNM -7 KEY SC,-7,,,<SCTAB> cs .
@. sc,-0 'cs' . output the screen
@if FKEY$ eq 00,(lin1),10,(end) ;. first check for function keys
@if FIELD$ eq <LastFieldNum>,(lin2) ;SC,,,,,,-1 KX 'HC' . force xmit?
@gto lin-1 . keep checking the FIELD$ until cursor is in last field
@brk .
@dsp, -0 .
@. brk .
@. RNM -5 .
@. SC,-5,,,1 B .Below is a screenshot of MJ's equivalent of the sample @SC form.
To use this functional, Ajax-based form:
- Enter data to test
EDITfield validations, similar to@SC. - Like
@SC, use the arrow, backspace and insert keys to edit and navigate fields. - Exit the form by pressing a function key or entering <CR> for XMIT.
To launch the form, click the screenshot below.
