midrange.com code scratchpad |
Name:
Michael Schutte
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
08/02/2012 07:25:27 pm
|
IP:
Logged
|
|
Description:
Information to help others to help me.
|
Code:
- A R CTL01 SFLCTL(SFL01)
- A SFLSIZ(0012)
- A SFLPAG(0004)
- A CF03
- A CF05
- A CF12
- A 34 PAGEUP(81)
- A HOME(27)
- A N33 PAGEDOWN(83)
- A OVERLAY
- A SFLCSRRRN(&LOCATE)
- A SFLMODE(&FOLD)
- A 30 SFLDSP
- A 31 SFLDSPCTL
- A 32 SFLCLR
- A 88 SFLDROP(CF11)
- A N88 SFLFOLD(CF11)
- A FOLD 1A H
- A RRN 4S 0H SFLRCDNBR(CURSOR)
- A LOCATE 5S 0H
- ...
-
- FMMTWW001D CF E WORKSTN INDDS(Indicators)
- F INFDS(Information)
- F SFILE(SFL01:RRN)
- ...
-
- D Indicators DS
- D AnyErrors N OverLay(Indicators:99)
- D SubfileFold N OverLay(Indicators:88)
- D HomeKey N OverLay(Indicators:27)
- D AddingRec N OverLay(Indicators:57)
- D ChangeRec N OverLay(Indicators:58)
- D DeleteRec N OverLay(Indicators:59)
- D SubFDisplay N OverLay(Indicators:30)
- D SubFDisplayControl...
- D N OverLay(Indicators:31)
- D SubFClear N OverLay(Indicators:32)
- D SubFEnd N OverLay(Indicators:33)
- D SubFPrev N OverLay(Indicators:34)
-
- DoW KeyPressed <> F03_Key;
- If Refresh = *On;
- ExSr SubfileLoad#;
- EndIf;
- ExSr CheckPaging#;
- Write CMD01;
- // should the subfile be shown?
- SubFDisplay = S1MAX > 0;
- If not SubFDisplay;
- // If not then give message saying not records exist.
- Write EMPTY;
- EndIf;
- RRN = PositionSFRRN;
- SubfileFold = Fold = '1';
- HomeKey = Save_homeKey;
- ExFmt CTL01;
- Save_HomeKey = HomeKey;
- Reset Indicators;
- Refresh = *Off;
- Clear ErrMsg;
- PositionSFRRN = 1;
- If KeyPressed = F03_Key;
- Leave;
- ElseIf KeyPressed = F12_Key;
- Leave;
- ElseIf KeyPressed = F05_Key;
- Chain 1 SFL01;
- If not %Found();
- SetLL *End MMTLOADP;
- Else;
- SetGT (SFLOAD) MMTLOADP;
- EndIf;
- Refresh = *On;
- ElseIf KeyPressed = PageUp;
- ExSr PageUp#;
- ElseIf KeyPressed = PageDown;
- Refresh = *On;
- ElseIf KeyPressed = EnterKey;
- ExSr CheckS1Options#;
- If SCLOAD <> 0;
- SetGT (SCLOAD) MMTLOADP;
- SCLOAD = 0;
- Refresh = *On;
- EndIf;
- EndIf;
- EndDo;
|
|
|