Hello Natural linux v6.2.4. The down arrow goes to the next input field on next line when they are, I think so, individual fields. But when the fields are an array, one field by line, the down arrow goes to the next line BUT in SAME COLUMN it is. In other words, it execute LF but not CR. It looks like this:
123_____
_456
______78
At UNIX, it works fine, 123_____
456_____
78______
Has anyone an idea about this???
I’m working on Solaris 10 here and I know that the cursor-handling is a bit strange sometimes. My example is an array (A10/1:3,1:3). The arrow-down-key jumps to the field below. Arrow-down at the last line result in a jump to dimension line 1, column 1.
Here’s my map-code:
* MAP2: PROTOTYPE --- CREATED BY UNIX 6.1.1 ---
* INPUT USING MAP 'XXXXXXXX'
* #1(*,*)
DEFINE DATA PARAMETER
1 #1 (A010/00001:00003,00001:00003)
END-DEFINE
FORMAT PS=004 LS=041 ZP=OFF SG=OFF KD=OFF IP=OFF
* MAP2: MAP PROFILES ***************************** 200**********
* .TTAAAMMOO D I D I N D I D I ?_)^&:+(
* 004040 N0NNUCN____ X 01 SYSDBA NR
***********************************************************************
INPUT ( IP=OFF /
001T #1 (001,001) (AD=ILMFHT'_' ) /*.99U010 A010 .
/**A2000030000300001000010000100001120003003001000001000HV
012T #1 (001,002) (AD=ILMFHT'_' ) /*.99U010 A010 .
023T #1 (001,003) (AD=ILMFHT'_' ) /*.99U010 A010 .
/
001T #1 (002,001) (AD=ILMFHT'_' ) /*.99U010 A010 .
012T #1 (002,002) (AD=ILMFHT'_' ) /*.99U010 A010 .
023T #1 (002,003) (AD=ILMFHT'_' ) /*.99U010 A010 .
/
001T #1 (003,001) (AD=ILMFHT'_' ) /*.99U010 A010 .
012T #1 (003,002) (AD=ILMFHT'_' ) /*.99U010 A010 .
023T #1 (003,003) (AD=ILMFHT'_' ) /*.99U010 A010 .
/
* MAP2: VALIDATION ****************************************************
* MAP2: END OF MAP ****************************************************
END Could you please post your example?
This is the map list
0010 * MAP2: PROTOTYPE — CREATED BY WNT 6.2.4 —
0020 * INPUT USING MAP ‘XXXXXXXX’
0030 * CONTROL2() CONTROL3() VCODAVE() VESTADO() VFLECTURA VLECTOR
0040 * VLNUMERO() VNURECORRIDO() VPERIODO VPLAN VRADIO VRECOR
0050 * VRECORRIDO()
0060 DEFINE DATA PARAMETER
0070 1 CONTROL2 (C/00001:00017)
0080 1 CONTROL3 (C/00001:00017)
0090 1 VCODAVE (N02,0/00001:00017)
0100 1 VESTADO (N07,0/00001:00017)
0110 1 VFLECTURA (N06,0)
0120 1 VLECTOR (N02,0)
0130 1 VLNUMERO (N09,0/00001:00017)
0140 1 VNURECORRIDO (N05,0/00001:00017)
0150 1 VPERIODO (N04,0)
0160 1 VPLAN (N02,0)
0170 1 VRoDIO (N05,0)
0180 1 VRECOR (N05,0)
0190 1 VRECORRIDO (N05,0/00001:00017)
0200 END-DEFINE
0210 FORMAT PS=023 LS=079 ZP=OFF SG=OFF KD=OFF IP=OFF
0220 * MAP2: MAP PROFILES ***************************** 200***********
0230 * ,TTAAAMMOO D I D I N D I D I ?)^&:+( *
0240 * 023079 N1NNUCN___ X 01 SYSDBA NR *
0250 ************************************************************************
0260 INPUT ( IP=OFF /
0270 )
0280 001T ‘EDESE S.A.’(I)
0290 027T ‘SISTEMA DE FACTURACION’(I)
0300 061T DATE (AD=ILO ) /.01S008 A008 .
0310 074T TIMX (AD=ILO EM=HH:II ) /.01S005 T .
0320 /
0330 001T ‘fap06200’(I)
0340 020T ‘Recorrido Med.Numero Estado C.Aver Nuevo Rec.’(I)
0350 /
0360 001T ‘----------------------------------------------------------’-
0370 ‘-------------------’
0380 /
0390 023T VRECORRIDO (001) (AD=IRO ) /.01D005 N05,0.
0400 /**A1000170000100001000010000100001100017001001000001000HV
0410 033T VLNUMERO (001) (AD=IRO ) /.01D009 N09,0.
0420 /**A1000170000100001000010000100001100017001001000001000HV
0430 047T VESTADO (1+000) (AD=IRMFHW’’ ) /*.99U007 N07,0.
0440 /**A1000170000100001000010000100001100017001001000001000HV
0450 061T VCODAVE (001) (AD=YRMFHT’’ CV=CONTROL2(001) ) /.99D002 N02,0.
0460 /**A1000170000100001000010000100001100017001001000001000HV
0470 070T VNURECORRIDO (001) (AD=YRMT’_’ CV=CONTROL3(001) ) /.99D005 N05,0.
0480 /**A1000170000100001000010000100001100017001001000001000HV
0490 /
0500 001T ‘Periodo :’(I)
0510 014T VPERIODO (AD=IRO ) /.01D004 N04,0.
0520 023T VRECORRIDO (002) (AD=IRO ) /.01D005 N05,0.
0530 033T VLNUMERO (002) (AD=IRO ) /.01D009 N09,0.
0540 047T VESTADO (1+001) (AD=IRMFHW’_’ ) /.99U007 N07,0.
0550 061T VCODAVE (002) (AD=YRMFHT’’ CV=CONTROL2(002) ) /*.99D002 N02,0.
0560 070T VNURECORRIDO (002) (AD=YRMT’’ CV=CONTROL3(002) ) /.99D005 N05,0.
0570 /
0580 023T VRECORRIDO (003) (AD=IRO ) /.01D005 N05,0.
0590 033T VLNUMERO (003) (AD=IRO ) /.01D009 N09,0.
0600 047T VESTADO (1+002) (AD=IRMFHW’_’ ) /.99U007 N07,0.
0610 061T VCODAVE (003) (AD=YRMFHT’’ CV=CONTROL2(003) ) /*.99D002 N02,0.
0620 070T VNURECORRIDO (003) (AD=YRMT’’ CV=CONTROL3(003) ) /.99D005 N05,0.
0630 /
0640 001T ‘Plan :’(I)
0650 014T VPLAN (AD=IRO ) /.01D002 N02,0.
0660 023T VRECORRIDO (004) (AD=IRO ) /.01D005 N05,0.
0670 033T VLNUMERO (004) (AD=IRO ) /.01D009 N09,0.
0680 047T VESTADO (1+003) (AD=IRMFHW’’ ) /*.99U007 N07,0.
0690 061T VCODAVE (004) (AD=YRMFHT’’ CV=CONTROL2(004) ) /.99D002 N02,0.
0700 070T VNURECORRIDO (004) (AD=YRMT’_’ CV=CONTROL3(004) ) /.99D005 N05,0.
0710 /
0720 023T VRECORRIDO (005) (AD=IRO ) /.01D005 N05,0.
0730 033T VLNUMERO (005) (AD=IRO ) /.01D009 N09,0.
0740 047T VESTADO (1+004) (AD=IRMFHW’’ ) /*.99U007 N07,0.
0750 061T VCODAVE (005) (AD=YRMFHT’’ CV=CONTROL2(005) ) /.99D002 N02,0.
0760 070T VNURECORRIDO (005) (AD=YRMT’_’ CV=CONTROL3(005) ) /.99D005 N05,0.
0770 /
0780 001T ‘Rodio :’(I)
0790 014T VRoDIO (AD=IRO ) /.01U005 N05,0.
0800 023T VRECORRIDO (006) (AD=IRO ) /.01D005 N05,0.
0810 033T VLNUMERO (006) (AD=IRO ) /.01D009 N09,0.
0820 047T VESTADO (1+005) (AD=IRMFHW’_’ ) /.99U007 N07,0.
0830 061T VCODAVE (006) (AD=YRMFHT’’ CV=CONTROL2(006) ) /*.99D002 N02,0.
0840 070T VNURECORRIDO (006) (AD=YRMT’’ CV=CONTROL3(006) ) /.99D005 N05,0.
0850 /
0860 023T VRECORRIDO (007) (AD=IRO ) /.01D005 N05,0.
0870 033T VLNUMERO (007) (AD=IRO ) /.01D009 N09,0.
0880 047T VESTADO (1+006) (AD=IRMFHW’_’ ) /.99U007 N07,0.
0890 061T VCODAVE (007) (AD=YRMFHT’’ CV=CONTROL2(007) ) /*.99D002 N02,0.
0900 070T VNURECORRIDO (007) (AD=YRMT’’ CV=CONTROL3(007) ) /.99D005 N05,0.
0910 /
0920 001T ‘Recorrido :’(I)
0930 014T VRECOR (AD=IRO ) /.01D005 N05,0.
0940 023T VRECORRIDO (008) (AD=IRO ) /.01D005 N05,0.
0950 033T VLNUMERO (008) (AD=IRO ) /.01D009 N09,0.
0960 047T VESTADO (1+007) (AD=IRMFHW’’ ) /*.99U007 N07,0.
0970 061T VCODAVE (008) (AD=YRMFHT’’ CV=CONTROL2(008) ) /.99D002 N02,0.
0980 070T VNURECORRIDO (008) (AD=YRMT’_’ CV=CONTROL3(008) ) /.99D005 N05,0.
0990 /
1000 023T VRECORRIDO (009) (AD=IRO ) /.01D005 N05,0.
1010 033T VLNUMERO (009) (AD=IRO ) /.01D009 N09,0.
1020 047T VESTADO (1+008) (AD=IRMFHW’’ ) /*.99U007 N07,0.
1030 061T VCODAVE (009) (AD=YRMFHT’’ CV=CONTROL2(009) ) /.99D002 N02,0.
1040 070T VNURECORRIDO (009) (AD=YRMT’_’ CV=CONTROL3(009) ) /.99D005 N05,0.
1050 /
1060 001T ‘Lector :’(I)
1070 014T VLECTOR (AD=IRO ) /.01D002 N02,0.
1080 023T VRECORRIDO (010) (AD=IRO ) /.01D005 N05,0.
1090 033T VLNUMERO (010) (AD=IRO ) /.01D009 N09,0.
1100 047T VESTADO (1+009) (AD=IRMFHW’_’ ) /.99U007 N07,0.
1110 061T VCODAVE (010) (AD=YRMFHT’’ CV=CONTROL2(010) ) /*.99D002 N02,0.
1120 070T VNURECORRIDO (010) (AD=YRMT’’ CV=CONTROL3(010) ) /.99D005 N05,0.
1130 /
1140 023T VRECORRIDO (011) (AD=IRO ) /.01D005 N05,0.
1150 033T VLNUMERO (011) (AD=IRO ) /.01D009 N09,0.
1160 047T VESTADO (1+010) (AD=IRMFHW’_’ ) /.99U007 N07,0.
1170 061T VCODAVE (011) (AD=YRMFHT’’ CV=CONTROL2(011) ) /*.99D002 N02,0.
1180 070T VNURECORRIDO (011) (AD=YRMT’’ CV=CONTROL3(011) ) /.99D005 N05,0.
1190 /
1200 001T ‘Fecha de’(I)
1210 023T VRECORRIDO (012) (AD=IRO ) /.01D005 N05,0.
1220 033T VLNUMERO (012) (AD=IRO ) /.01D009 N09,0.
1230 047T VESTADO (1+011) (AD=IRMFHW’_’ ) /.99U007 N07,0.
1240 061T VCODAVE (012) (AD=YRMFHT’’ CV=CONTROL2(012) ) /*.99D002 N02,0.
1250 070T VNURECORRIDO (012) (AD=YRMT’’ CV=CONTROL3(012) ) /.99D005 N05,0.
1260 /
1270 001T ‘Lectura :’(I)
1280 014T VFLECTURA (AD=IRO ) /.01D006 N06,0.
1290 023T VRECORRIDO (013) (AD=IRO ) /.01D005 N05,0.
1300 033T VLNUMERO (013) (AD=IRO ) /.01D009 N09,0.
1310 047T VESTADO (1+012) (AD=IRMFHW’’ ) /*.99U007 N07,0.
1320 061T VCODAVE (013) (AD=YRMFHT’’ CV=CONTROL2(013) ) /.99D002 N02,0.
1330 070T VNURECORRIDO (013) (AD=YRMT’_’ CV=CONTROL3(013) ) /.99D005 N05,0.
1340 /
1350 023T VRECORRIDO (014) (AD=IRO ) /.01D005 N05,0.
1360 033T VLNUMERO (014) (AD=IRO ) /.01D009 N09,0.
1370 047T VESTADO (1+013) (AD=IRMFHW’’ ) /*.99U007 N07,0.
1380 061T VCODAVE (014) (AD=YRMFHT’’ CV=CONTROL2(014) ) /.99D002 N02,0.
1390 070T VNURECORRIDO (014) (AD=YRMT’_’ CV=CONTROL3(014) ) /.99D005 N05,0.
1400 /
1410 023T VRECORRIDO (015) (AD=IRO ) /.01D005 N05,0.
1420 033T VLNUMERO (015) (AD=IRO ) /.01D009 N09,0.
1430 047T VESTADO (1+014) (AD=IRMFHW’’ ) /*.99U007 N07,0.
1440 061T VCODAVE (015) (AD=YRMFHT’’ CV=CONTROL2(015) ) /.99D002 N02,0.
1450 070T VNURECORRIDO (015) (AD=YRMT’_’ CV=CONTROL3(015) ) /.99D005 N05,0.
1460 /
1470 023T VRECORRIDO (016) (AD=IRO ) /.01D005 N05,0.
1480 033T VLNUMERO (016) (AD=IRO ) /.01D009 N09,0.
1490 047T VESTADO (1+015) (AD=IRMFHW’’ ) /*.99U007 N07,0.
1500 061T VCODAVE (016) (AD=YRMFHT’’ CV=CONTROL2(016) ) /.99D002 N02,0.
1510 070T VNURECORRIDO (016) (AD=YRMT’_’ CV=CONTROL3(016) ) /.99D005 N05,0.
1520 /
1530 023T VRECORRIDO (017) (AD=IRO ) /.01D005 N05,0.
1540 033T VLNUMERO (017) (AD=IRO ) /.01D009 N09,0.
1550 047T VESTADO (1+016) (AD=IRMFHW’’ ) /*.99U007 N07,0.
1560 061T VCODAVE (017) (AD=YRMFHT’’ CV=CONTROL2(017) ) /.99D002 N02,0.
1570 070T VNURECORRIDO (017) (AD=YRMT’_’ CV=CONTROL3(017) ) /.99D005 N05,0.
1580 /
1590 001T ‘----------------------------------------------------------’-
1600 ‘--------------------’
1610 /
1620 /
1630 005T 'Enter: Continua PF3 : Retornar PF9 ‘-
1640 ’ : Confirmar’(I)
1650 * MAP2: VALIDATION *****************************************************
1660 * MAP2: END OF MAP *****************************************************
1670 END
Works on Solaris like my own testing-map… But I got no natural for Linux to test your environment.
Question: What’s are your OS and your Natural-Versions? BTW: The mask-code itself says something about WNT ???