|
Do you have source some source that you want to share? Is there some source that you want to see posted here? If so, Contact Us and we'll be more than happy to help. |
FCLRTXTDFCF E WORKSTN
F RRN KSFILE SFLRCD
F KINFDS INFDS
FTXTFILE UF F 210 DISK
E COLR 1 27 2
E HX 26 1
E HC 26 1
E CLR 26 2
E DTA 198 1
E FLD 26 3
ITXTFILE AA 01
I 13 210 DTA
I DS
I 1 78 FLDDS
I 1 3 FLD01
I 4 6 FLD02
I 7 9 FLD03
I 10 12 FLD04
I 13 15 FLD05
I 16 18 FLD06
I 19 21 FLD07
I 22 24 FLD08
I 25 27 FLD09
I 28 30 FLD10
I 31 33 FLD11
I 34 36 FLD12
I 37 39 FLD13
I 40 42 FLD14
I 43 45 FLD15
I 46 48 FLD16
I 49 51 FLD17
I 52 54 FLD18
I 55 57 FLD19
I 58 60 FLD20
I 61 63 FLD21
I 64 66 FLD22
I 67 69 FLD23
I 70 72 FLD24
I 73 75 FLD25
I 76 78 FLD26
I DS
I 1 26 HX
I 1 1 HX001
I 2 2 HX002
I 3 3 HX003
I 4 4 HX004
I 5 5 HX005
I 6 6 HX006
I 7 7 HX007
I 8 8 HX008
I 9 9 HX009
I 10 10 HX010
I 11 11 HX011
I 12 12 HX012
I 13 13 HX013
I 14 14 HX014
I 15 15 HX015
I 16 16 HX016
I 17 17 HX017
I 18 18 HX018
I 19 19 HX019
I 20 20 HX020
I 21 21 HX021
I 22 22 HX022
I 23 23 HX023
I 24 24 HX024
I 25 25 HX025
I 26 26 HX026
I DS
I 1 3 FIELD
I 1 1 HEX
I 2 3 CHAR
I******PGMSDS ESDS@PGMSDS
IINFDS DS
I 369 369 KEY
I B 370 3710CURSOR
I B 378 3790PAGRRN
*
C *IN03 DOWEQ*OFF
C Z-ADDW WW
C WRITEBOTTOM
C EXFMTSFLCTL
C CURSOR DIV 256 ROW
C MVR COL
C MOVEA'000000' *IN,80 80 - 85
* -------------
* F1 OR F3=EXIT
* -------------
C *IN03 IFEQ *ON
C MOVE *ON *INLR
C LEAVE
C ENDIF
* ---------
* F9=COLOR
* ---------
C *IN09 IFEQ *ON
* CHECK FOR VALID COLUMN RANGE
C COL IFLT 2
C COL ORGT 78
C ROW ORLT 4
C ROW ORGT 19
C MOVE *ON *IN85
C ITER
C ENDIF
*
C CRRN IFNE 0
C CRRN CHAINSFLRCD 95
C *IN95 IFEQ *OFF
C EXSR @COLOR
C MOVEADTA,W SCTXT
C UPDATSFLRCD
C ITER
C ENDIF
C ENDIF
C ENDIF
* -------------------
* F10=POSITION TO TOP
* -------------------
C *IN10 IFEQ *ON
C CRRN IFNE 0
C CRRN CHAINSFLRCD 95
C *IN95 IFEQ *OFF
C MOVE *OFF *IN63
C Z-ADDPOSRRN RRNUM
C EXSR @UPRTN
C ENDIF
C ENDIF
C ITER
C ENDIF
* -------------
* F19=LEFT
* -------------
C *IN19 IFEQ *ON
C MOVE *OFF *IN25
C MOVE *OFF *IN63
*
C SUB 78 W
C W IFLT 1
C Z-ADD1 W
C MOVE *ON *IN82
C ENDIF
*
C ENDIF
* --------------
* F20=RIGHT
* --------------
C *IN20 IFEQ *ON
C MOVE *OFF *IN25
C MOVE *OFF *IN63
*
C ADD 78 W
C W IFGT 198
C Z-ADD120 W
C MOVE *ON *IN83
C ENDIF
*
C ENDIF
* --------------
* ROLLUP/PAGEDWN
* --------------
C *IN50 IFEQ *ON
C *IN80 ANDEQ*OFF
C EXSR @UPRTN
C ITER
C ENDIF
* ---------------
* ROLLDOWN/PAGEUP
* ---------------
C *IN51 IFEQ *ON
C *IN80 ANDEQ*OFF
C EXSR @DWRTN
C ITER
C ENDIF
* ----------------------------
* VALID COMMAND KEY NOT PRESED
* ----------------------------
C *IN25 IFEQ *OFF
C *IN61 IFEQ *ON
C 1 CHAINSFLRCD 95
C Z-ADDPOSRRN RRNUM
C ENDIF
C EXSR @UPRTN
C ENDIF
*
C ENDDO
*---------------------------------------------------------------*
* CLEAR SUBFILE
*---------------------------------------------------------------*
C @CLEAR BEGSR
C MOVEA'001' *IN,60 60 - 62
C WRITESFLCTL
C MOVEA'100' *IN,60
C MOVE *OFF *IN69
C ENDSR
*---------------------------------------------------------------*
* ROLL UP SUBFILE
*---------------------------------------------------------------*
C @UPRTN BEGSR
C *IN63 IFEQ *ON
C MOVE *ON *IN80
C ELSE
*
C EXSR @CLEAR
C Z-ADD0 RRN
C Z-ADD0 X
*
C X DOUEQSFSIZE
C *IN69 IFEQ *OFF
C RRNUM CHAINTXTFILE 69
C *IN69 IFEQ *ON
C MOVE *ON *IN63
C LEAVE
C ENDIF
*
C MOVEADTA,W SCTXT
C Z-ADDRRNUM POSRRN
C ADD 1 RRN 61
C ADD 1 X
C WRITESFLRCD
C ADD 1 RRNUM
C ENDIF
C ENDDO
C *IN69 IFNE *ON
*
* END OF FILE AND NOT A MSG AT TOP, SHOW MSG BOTTOM OF LIST
C RRNUM CHAINTXTFILE 69
C *IN69 IFEQ *ON
C *IN81 ANDNE*ON
C MOVE *ON *IN80
C ENDIF
C ENDIF
*
C ENDIF
C ENDSR
*---------------------------------------------------------------*
* ROLL DOWN SUBFILE
*---------------------------------------------------------------*
C @DWRTN BEGSR
C MOVE *OFF *IN63
C *IN61 IFEQ *ON
C 1 CHAINSFLRCD 95
C POSRRN SUB SFSIZE RRNUM
C ENDIF
C RRNUM IFLT 1
C Z-ADD1 RRNUM
* END OF FILE, SHOW MSG TOP OF LIST
C MOVE *ON *IN81
C ENDIF
C EXSR @UPRTN
C ENDSR
*---------------------------------------------------------------*
* COLOR SELECTION
*---------------------------------------------------------------*
C @COLOR BEGSR
*
C POSRRN CHAINTXTFILE 95
C *IN95 IFEQ *OFF
C COL SUB 2 O 30
C ADD WW O
* CURSOR MUST BE AT A BLANK POSITION
C DTA,O IFNE ' '
C Z-ADD1 X
C DTA,O LOKUPHC,X 99
C ELSE
C MOVE *ON *IN99
C ENDIF DTA,C NE ' '
C ENDIF *IN95
*
C *IN99 IFEQ *ON
C EXFMTCOLORW
C *IN15 IFEQ *ON
C MOVE *BLANK HX
C Z-ADD1 C 30
C ELSE
C Z-ADD1 C
C 'X' LOKUPHX,C 15
C ENDIF *IN15
*
C *IN15 IFEQ *ON
C MOVELHC,C SEL 1
C MOVE SEL DTA,O
C EXCPTUPDTXT
C ENDIF *IN15
*
C ELSE
C MOVE *ON *IN84
C ENDIF *IN99
C ENDSR
*---------------------------------------------------------------*
* FIRST TIME SUBROUTINE
*---------------------------------------------------------------*
C *INZSR BEGSR
* ACCEPT FILE MEMBER NAME ...
C *ENTRY PLIST
C PARM SCLIB
C PARM SCFILE
C PARM SCMBR
C *LIKE DEFN W WW
* INITIALIZE FIELDS ...
C Z-ADD1 W
C Z-ADD0 X 30
C Z-ADD16 SFSIZE 30
C Z-ADD0 RRN 30
C Z-ADD1 RRNUM 60
C MOVEACOLR CLR
C*** MOVELCOLR HC
C MOVELX'20' HC,1
C MOVELX'21' HC,2
C MOVELX'24' HC,3
C MOVELX'25' HC,4
C MOVELX'22' HC,5
C MOVELX'23' HC,6
C MOVELX'26' HC,7
C MOVELX'2A' HC,8
C MOVELX'2B' HC,9
C MOVELX'2C' HC,10
C MOVELX'2D' HC,11
C MOVELX'2E' HC,12
C MOVELX'30' HC,13
C MOVELX'31' HC,14
C MOVELX'34' HC,15
C MOVELX'35' HC,16
C MOVELX'3A' HC,17
C MOVELX'3B' HC,18
C MOVELX'3E' HC,19
C MOVELX'32' HC,20
C MOVELX'33' HC,21
C MOVELX'36' HC,22
C MOVELX'38' HC,23
C MOVELX'39' HC,24
C MOVELX'3C' HC,25
C MOVELX'3D' HC,26
C*
C Z-ADD1 LP 20
C LP DOWLE26
C MOVE HC,LP HEX
C MOVE COLR,LP CHAR
C MOVE FIELD FLD,LP
C ADD 1 LP
C ENDDO LP
C MOVEAFLD FLDDS
C*
C EXSR @UPRTN
C ENDSR
*---------------------------------------------------------------*
OTXTFILE E UPDTXT
O DTA 210
**
20
21
24
25
22
23
26
2A
2B
2C
2D
2E
30
31
34
35
3A
3B
3E
32
33
36
38
39
3C
3D
|