[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]
Conference ilbbak::ibi_focus

Title:	FOCUS, from INFORMATION BUILDERS

Moderator:	ZAYIUS::BROUILLETTE

Created:	Thu Feb 19 1987
Last Modified:	Mon May 05 1997
Last Successful Update:	Fri Jun 06 1997
Number of topics:	615
Total number of notes:	1779
355.0. "SET HOST trashes screen" by GIDDAY::MUNN (Slothy Dogs Rule the Earth) Sat Jul 28 1990 08:54

    I am experiencing a problem with FOCUS when using SET HOST.
    I have a couple of procedures that put up some update screens. Under
    some circumstances (particularly if the screen image is 23 lines long)
    and you are SET HOST to another machine (or even set host 0) most of
    the screen is lost from the display. No amount of refreshing will show
    the whole screen. However on the same machine(s) if you run from a
    local terminal everything is just fine.
    
    Below is the contents of ther .FEX files for the test.
    Note that the second one, has the last line cut out and it NEVER gets
    garbeled by SET HOST. It looks like RTPAD or REMACP can't handle the
    volume of data and trashes some of it. However I haven't be able to
    reproduce the problem by throwing large amounts of screen data out of a
    program, it seems quite specific to FOCUS.
    
    Any ideas ?
    Richard
    
    =-=-=
    

-*# WSAGM001.FEX    ADD/CHANGE/DELETE PROGRAM FOR AGENCIES
-***********************************************************************
-*         DEPARTMENT OF PERSONNEL & INDUSTRIAL RELATIONS              *
-*                WAGES & SALARIES SYSTEM  S W A G                     *
-***********************************************************************
-*.PROGRAM NAME   -  WSAGM001.FEX                                      *
-*. PROGRAM USE   -  Modify Procedure (ADD/CHANGE/DELETE)              *
-*.                  for AGENCY.        Executed from WSDMAG01.FEX     *
-*.                                                                    *
-* MASTERFILE DESC  - AWARD   .MAS                                     *
-* DATABASE         - AWARD   .FOC  Main File                          *
-*                                                                     *
-* ADDITIONAL FILES - WSLOGON.DAT   User ID etc                        *
-*                  - WSLOG001.DAT  Transaction Log                    *
-*                                                                     *
-* AUTHOR         -  STATE COMPUTING                                   *
-* DATE CREATED    - 31 MAY 1990                                       *
-***********************************************************************
-*                      ALTERATIONS                                    *
-* DATE   BY WHOM   REASON                                             *
-*                                                                     *
-***********************************************************************
-*
SET PF10 = BACKWARD
SET PF11 = FORWARD
SET PF07 = RETURN
SET PF08 = RETURN
MODIFY FILE AWARDF
COMPUTE  
ADATE/A8    = ;
LINE/A74    = ;
PFKEY/A4    = ;
WSDATE/DMY  = ;
WSOP/A8     = ;
WSPROG/A8   = 'WSAGM001' ;
WSTIME/A8   = ;
XDATE/A6DMY = ;
XDEL/A1     = ;
XID/A3      = ;
XREPLY/A1   = 'N';
XWSDATE/A8  = ;
GOTO MAIN
-******************** END OF TOP
CASE MAIN
COMPUTE WASS = '1';
MATCH WASS
  ON NOMATCH TYPE "No record exists for WASS segment - see DBA"
  ON MATCH GOTO SETUP
ENDCASE
-******************** END OF MAIN
CASE SETUP
COMPUTE
ADATE    = TODAY(ADATE);
XDATE    = EDIT(ADATE,'$$$99') | EDIT(ADATE,'99') |
           EDIT(ADATE,'$$$$$$99');
XWSDATE  = EDIT(ADATE,'$$$99') |'/'| EDIT(ADATE,'99') |'/'|
           EDIT(ADATE,'$$$$$$99');
WSDATE   = XDATE;
-*IF XID NE '   ' THEN GOTO COLLECT;
-*FIXFORM ON WSLOGON XID/A3 X3 LINE/A74
COMPUTE
WSOP = XID ;
-* XID NE '   ' THEN GOTO TYPEON ;
GOTO REPOSAG
ENDCASE
-******************** END OF SETUP
CASE TYPEON
TYPE ON WSLOG001 "NO RECORD **************"
GOTO REPOSAG
ENDCASE
-******************** END OF TYPEON
CASE REPOSAG
REPOSITION AGENCY
GOTO COLLECT
ENDCASE
-******************** END OF REPOSAG
CASE COLLECT
REPEAT 12 TIMES
NEXT AGENCY
  ON NONEXT GOTO EXITREPEAT
  ON NEXT HOLD AGENCY AGENCYDESC
  ON NEXT GOTO ENDREPEAT
ENDREPEAT
GOTO SHOW
ENDCASE
-******************** END OF COLLECT
CASE SHOW
CRTFORM LINE 1 TYPE 1
-* TEMPORARY FIELD DEFINITION XDEL        A1
-* TEMPORARY FIELD DEFINITION XWSDATE     A8
-* TEMPORARY FIELD DEFINITION WSOP        A8
"<2>Date:<D.XWSDATE<16><35>S W A G <67> WSAGM001-1
<78>"
" User:<D.WSOP<16><27>Agency Code Update Screen "
"�����������������������������������������������������������������������������
<78>� "
"  Agency<72>Delete "
"   Code<30>Description<73>(*) "
"  <.HWBT.AGENCY(1)><9><.HWBT.AGENCYDESC(1)><71>  <.HWB.XDEL(1)><76> "
"  <.HWBT.AGENCY(2)><9><.HWBT.AGENCYDESC(2)><71>  <.HWB.XDEL(2)><76> "
"  <.HWBT.AGENCY(3)><9><.HWBT.AGENCYDESC(3)><71>  <.HWB.XDEL(3)><76> "
"  <.HWBT.AGENCY(4)><9><.HWBT.AGENCYDESC(4)><71>  <.HWB.XDEL(4)><76> "
"  <.HWBT.AGENCY(5)><9><.HWBT.AGENCYDESC(5)><71>  <.HWB.XDEL(5)><76> "
"  <.HWBT.AGENCY(6)><9><.HWBT.AGENCYDESC(6)><71>  <.HWB.XDEL(6)><76> "
"  <.HWBT.AGENCY(7)><9><.HWBT.AGENCYDESC(7)><71>  <.HWB.XDEL(7)><76> "
"  <.HWBT.AGENCY(8)><9><.HWBT.AGENCYDESC(8)><71>  <.HWB.XDEL(8)><76> "
"  <.HWBT.AGENCY(9)><9><.HWBT.AGENCYDESC(9)><71>  <.HWB.XDEL(9)><76> "
"  <.HWBT.AGENCY(10)><9><.HWBT.AGENCYDESC(10)><71>  <.HWB.XDEL(10)><76> "
"  <.HWBT.AGENCY(11)><9><.HWBT.AGENCYDESC(11)><71>  <.HWB.XDEL(11)><76> "
"  <.HWBT.AGENCY(12)><9><.HWBT.AGENCYDESC(12)><71>  <.HWB.XDEL(12)><76> "
" "
"<5>Press ENTER to Update and Scoll Forward "
"�����������������������������������������������������������������������������
<78>� "
"� F1  �  F2  �  F3  �  F4  �  F5  �  F6  � F7  � F8  � F9  � F10 � F11 � F12 
<78>� "
"�Help �<14>� Exit �<28>�<35>� Top<42>�<48>�<54>�<60>�<66>�<72>�<78>� "
-*����������������������������������������������������������������������������
-*8>� "
IF PFKEY EQ 'PF06' GOTO REPOSAG ;
IF PFKEY EQ 'PF01' GOTO HSHOW ;
GOTO UPDATE
ENDCASE
-******************** END OF SHOW
CASE UPDATE
REPEAT HOLDCOUNT
ACTIVATE AGENCY
MATCH AGENCY
  ON NOMATCH VALIDATE
    VALTEST = AGENCY NE ' ' ;
  ON NOMATCH COMPUTE WSTIME   = HHMMSS(WSTIME) ;
                     AGMODOFF = EDIT(WSOP,'999') ;
                     AGLCDATE = WSDATE ;
  ON NOMATCH TYPE ON WSLOG001
     "<WSPROG><+0 A <WSDATE><WSTIME><WSOP><AGENCY><AGENCYDESC> "
  ON NOMATCH INCLUDE
  ON NOMATCH GOTO ENDREPEAT
  ON MATCH IF XDEL EQ '*' PERFORM DELCASE ;
  ON MATCH IF AGENCYDESC NE D.AGENCYDESC PERFORM LOGCHANGE ;
  ON MATCH GOTO ENDREPEAT
ENDREPEAT
GOTO COLLECT
ENDCASE
-******************** END OF UPDATE
CASE LOGCHANGE
MATCH AGENCY
  ON NOMATCH TYPE "FATAL ERROR - SEE DBA"
  ON MATCH COMPUTE WSTIME   = HHMMSS(WSTIME) ;
                   AGMODOFF = EDIT(WSOP,'999') ;
                   AGLCDATE = WSDATE ;
  ON MATCH TYPE ON WSLOG001
     "<WSPROG><+0 C <WSDATE><WSTIME><WSOP><AGENCY><AGENCYDESC> "
  ON MATCH UPDATE AGENCYDESC AGMODOFF AGLCDATE
ENDCASE
-******************** END OF LOGCHANGE
CASE DELCASE
COMPUTE 
XREPLY = 'N' ;
MATCH AGENCY
ON MATCH CRTFORM LINE 1 TYPE 1
-* TEMPORARY FIELD DEFINITION XWSDATE     A8
-* TEMPORARY FIELD DEFINITION XREPLY      A1
-* TEMPORARY FIELD DEFINITION WSOP        A8
"<2>Date:<D.XWSDATE<16><35>S W A G <67> WSAGM001-2 "
" User:<D.WSOP<16><28>Agency Deletion Screen "
"�����������������������������������������������������������������������������
<78>� "
" "
"<27>Confirmation of Deletion "
" "
" "
"  Code selected for Deletion is: "
" "
" <.HWD.AGENCY<7>  <.HWD.AGENCYDESC<70> "
" "
" "
" DO YOU WISH TO DELETE IT  ? (Y/N)<.HWBT.XREPLY><38> "
" "
"<.FW. <26>* * *  WARNING * * * <.W. "
" "
"<6>Deletion of an Agency will result in all Awards, Classifications, "
"<15>Steps etc. to be deleted for that Agency "
" "
"�����������������������������������������������������������������������������
<78>� "
"� F1  �  F2  �  F3  �  F4  �  F5  �  F6  � F7  � F8  � F9  � F10 � F11 � F12 
<78>� "
"�Help<7>�<14>� Exit �<28>�<35>�<42>�<48>�<54>�Back<60>�<66>�<72>�<78>� "
"�����������������������������������������������������������������������������
<78>� "
  ON MATCH IF PFKEY EQ 'PF01' GOTO HDELCASE;
  ON MATCH IF PFKEY EQ 'PF09' GOTO SHOW;
  ON MATCH IF XREPLY NE 'Y' GOTO ENDCASE ;
  ON MATCH COMPUTE WSTIME = HHMMSS(WSTIME) ;
  ON MATCH TYPE ON WSLOG001
     "<WSPROG><+0 D <WSDATE><WSTIME><WSOP><AGENCY><AGENCYDESC> "
  ON MATCH TYPE "<.BW. Agency: <AGENCY has been deleted <83"
  ON MATCH DELETE
ENDCASE
-******************** END OF DELCASE
CASE HSHOW
CRTFORM LINE 1 TYPE 1                                                           

-* TEMPORARY FIELD DEFINITION XWSDATE     A8
-* TEMPORARY FIELD DEFINITION WSOP        A8
"<.W. Date:<D.XWSDATE><.W. <35>S W A G<68>WSAGM001-3"
" User:<D.WSOP<.W. <33>Help Screen"
"�����������������������������������������������������������������������������
<78>�"
"<6>This screen lists agency codes and descriptions"
" "
"<6>To ADD an Agency - Enter a new unique Agency code on a blank line or"
"<6>type over an existing code (the existing code will not be affected)"
"<6>To CHANGE Descriptions -  Type over an existing description"
"<6>To CHANGE an Agency Code - The code must be deleted and new code added."
"<6>To DELETE an Agency - Place a * in Del column against the appropriate"
"<6>agency and press Enter."
" "
"<6>The following Function Keys are available:"
"<6>Press F3  to exit the system."
"<6>Press F6  to goto the top of the classification list"
"<6>"
" "
"<.FW. <26>* * *  WARNING * * * <.W. "
"<6>Deletion of an Agency will result in all Awards, Classifications,"
"<12>Increments etc. to be deleted for that Agency"
" "
"<26>Press ENTER to exit Help"
"�����������������������������������������������������������������������������"
GOTO SHOW
ENDCASE
******************** END OF HSHOW
-*
CASE HDELCASE
CRTFORM LINE 1 TYPE 1 UPPER                                                     

-* TEMPORARY FIELD DEFINITION XWSDATE     A6
-* TEMPORARY FIELD DEFINITION WSOP        A8
"<.W. Date:<D.XWSDATE><.W. <35>S W A G<68>WSAGM001-4"
" User:<D.WSOP<.W. <33>Help Screen"
"�����������������������������������������������������������������������������"
" "
"<6>This screen is a confirmation of deletion of an agency."
" "
"<6>Deleting an agency will also delete all awards classifications"
"<6>and increments associated with that agency."
" "
"<6>If you wish to delete the agency respond 'Y' to the prompt"
" "
"<6>To cancel a deletion request respond 'N' and press Enter"
" "
"<6>The following Function Keys are available:"
" "
"<6>Press F3  to exit the system."
"<6>press F9  to return through previous screens"
" "
" "
" "
" "
"<26>Press ENTER to exit Help"
"�����������������������������������������������������������������������������"
GOTO DELCASE
ENDCASE
-*********************** END OF HDELCASE
-*
CHECK 1
LOG INVALID MSG OFF
DATA VIA FIDEL
END
SET PF07 = BACKWARD
SET PF08 = FORWARD
SET PF10 = RETURN
SET PF11 = RETURN

$ 
    
    
    =-=-=-=-=-=-=-=-=-=-=-

SET PF10 = BACKWARD
SET PF11 = FORWARD
SET PF07 = RETURN
SET PF08 = RETURN
MODIFY FILE AWARDF
COMPUTE  
ADATE/A8    = ;
LINE/A74    = ;
PFKEY/A4    = ;
WSDATE/DMY  = ;
WSOP/A8     = ;
WSPROG/A8   = 'WSAGM001' ;
WSTIME/A8   = ;
XDATE/A6DMY = ;
XDEL/A1     = ;
XID/A3      = ;
XREPLY/A1   = 'N';
XWSDATE/A8  = ;
GOTO MAIN
-******************** END OF TOP
CASE MAIN
COMPUTE WASS = '1';
MATCH WASS
  ON NOMATCH TYPE "No record exists for WASS segment - see DBA"
  ON MATCH GOTO SETUP
ENDCASE
-******************** END OF MAIN
CASE SETUP
COMPUTE
ADATE    = TODAY(ADATE);
XDATE    = EDIT(ADATE,'$$$99') | EDIT(ADATE,'99') |
           EDIT(ADATE,'$$$$$$99');
XWSDATE  = EDIT(ADATE,'$$$99') |'/'| EDIT(ADATE,'99') |'/'|
           EDIT(ADATE,'$$$$$$99');
WSDATE   = XDATE;
-*IF XID NE '   ' THEN GOTO COLLECT;
-*FIXFORM ON WSLOGON XID/A3 X3 LINE/A74
COMPUTE
WSOP = XID ;
-* XID NE '   ' THEN GOTO TYPEON ;
GOTO REPOSAG
ENDCASE
-******************** END OF SETUP
CASE TYPEON
TYPE ON WSLOG001 "NO RECORD **************"
GOTO REPOSAG
ENDCASE
-******************** END OF TYPEON
CASE REPOSAG
REPOSITION AGENCY
GOTO COLLECT
ENDCASE
-******************** END OF REPOSAG
CASE COLLECT
REPEAT 12 TIMES
NEXT AGENCY
  ON NONEXT GOTO EXITREPEAT
  ON NEXT HOLD AGENCY AGENCYDESC
  ON NEXT GOTO ENDREPEAT
ENDREPEAT
GOTO SHOW
ENDCASE
-******************** END OF COLLECT
CASE SHOW
CRTFORM LINE 1 TYPE 1
-* TEMPORARY FIELD DEFINITION XDEL        A1
-* TEMPORARY FIELD DEFINITION XWSDATE     A8
-* TEMPORARY FIELD DEFINITION WSOP        A8
"<2>Date:<D.XWSDATE<16><35>S W A G <67> WSAGM001-1
<78>"
" User:<D.WSOP<16><27>Agency Code Update Screen "
"�����������������������������������������������������������������������������
<78>� "
"  Agency<72>Delete "
"   Code<30>Description<73>(*) "
"  <.HWBT.AGENCY(1)><9><.HWBT.AGENCYDESC(1)><71>  <.HWB.XDEL(1)><76> "
"  <.HWBT.AGENCY(2)><9><.HWBT.AGENCYDESC(2)><71>  <.HWB.XDEL(2)><76> "
"  <.HWBT.AGENCY(3)><9><.HWBT.AGENCYDESC(3)><71>  <.HWB.XDEL(3)><76> "
"  <.HWBT.AGENCY(4)><9><.HWBT.AGENCYDESC(4)><71>  <.HWB.XDEL(4)><76> "
"  <.HWBT.AGENCY(5)><9><.HWBT.AGENCYDESC(5)><71>  <.HWB.XDEL(5)><76> "
"  <.HWBT.AGENCY(6)><9><.HWBT.AGENCYDESC(6)><71>  <.HWB.XDEL(6)><76> "
"  <.HWBT.AGENCY(7)><9><.HWBT.AGENCYDESC(7)><71>  <.HWB.XDEL(7)><76> "
-* <.HWBT.AGENCY(8)><9><.HWBT.AGENCYDESC(8)><71>  <.HWB.XDEL(8)><76> "
"  <.HWBT.AGENCY(9)><9><.HWBT.AGENCYDESC(9)><71>  <.HWB.XDEL(9)><76> "
"  <.HWBT.AGENCY(10)><9><.HWBT.AGENCYDESC(10)><71>  <.HWB.XDEL(10)><76> "
"  <.HWBT.AGENCY(11)><9><.HWBT.AGENCYDESC(11)><71>  <.HWB.XDEL(11)><76> "
"  <.HWBT.AGENCY(12)><9><.HWBT.AGENCYDESC(12)><71>  <.HWB.XDEL(12)><76> "
" "
" Press ENTER to Update and Scoll Forward "
"�����������������������������������������������������������������������������
<78>� "
"� F1  �  F2  �  F3  �  F4  �  F5  �  F6  � F7  � F8  � F9  � F10 � F11 � F12 
<78>� "
"�Help �<14>� Exit �<28>�<35>� Top<42>�<48>�<54>�<60>�<66>�<72>�<78>� "
"�����������������������������������������������������������������������������
<78>� "
IF PFKEY EQ 'PF06' GOTO REPOSAG ;
IF PFKEY EQ 'PF01' GOTO HSHOW ;
GOTO UPDATE
ENDCASE
-******************** END OF SHOW
CASE UPDATE
REPEAT HOLDCOUNT
ACTIVATE AGENCY
MATCH AGENCY
  ON NOMATCH VALIDATE
    VALTEST = AGENCY NE ' ' ;
  ON NOMATCH COMPUTE WSTIME   = HHMMSS(WSTIME) ;
                     AGMODOFF = EDIT(WSOP,'999') ;
                     AGLCDATE = WSDATE ;
  ON NOMATCH TYPE ON WSLOG001
     "<WSPROG><+0 A <WSDATE><WSTIME><WSOP><AGENCY><AGENCYDESC> "
  ON NOMATCH INCLUDE
  ON NOMATCH GOTO ENDREPEAT
  ON MATCH IF XDEL EQ '*' PERFORM DELCASE ;
  ON MATCH IF AGENCYDESC NE D.AGENCYDESC PERFORM LOGCHANGE ;
  ON MATCH GOTO ENDREPEAT
ENDREPEAT
GOTO COLLECT
ENDCASE
-******************** END OF UPDATE
CASE LOGCHANGE
MATCH AGENCY
  ON NOMATCH TYPE "FATAL ERROR - SEE DBA"
  ON MATCH COMPUTE WSTIME   = HHMMSS(WSTIME) ;
                   AGMODOFF = EDIT(WSOP,'999') ;
                   AGLCDATE = WSDATE ;
  ON MATCH TYPE ON WSLOG001
     "<WSPROG><+0 C <WSDATE><WSTIME><WSOP><AGENCY><AGENCYDESC> "
  ON MATCH UPDATE AGENCYDESC AGMODOFF AGLCDATE
ENDCASE
-******************** END OF LOGCHANGE
CASE DELCASE
COMPUTE 
XREPLY = 'N' ;
MATCH AGENCY
ON MATCH CRTFORM LINE 1 TYPE 1
-* TEMPORARY FIELD DEFINITION XWSDATE     A8
-* TEMPORARY FIELD DEFINITION XREPLY      A1
-* TEMPORARY FIELD DEFINITION WSOP        A8
"<2>Date:<D.XWSDATE<16><35>S W A G <67> WSAGM001-2 "
" User:<D.WSOP<16><28>Agency Deletion Screen "
"�����������������������������������������������������������������������������
<78>� "
" "
"<27>Confirmation of Deletion "
" "
" "
"  Code selected for Deletion is: "
" "
" <.HWD.AGENCY<7>  <.HWD.AGENCYDESC<70> "
" "
" "
" DO YOU WISH TO DELETE IT  ? (Y/N)<.HWBT.XREPLY><38> "
" "
"<.FW. <26>* * *  WARNING * * * <.W. "
" "
"<6>Deletion of an Agency will result in all Awards, Classifications, "
"<15>Steps etc. to be deleted for that Agency "
" "
"�����������������������������������������������������������������������������
<78>� "
"� F1  �  F2  �  F3  �  F4  �  F5  �  F6  � F7  � F8  � F9  � F10 � F11 � F12 
<78>� "
"�Help<7>�<14>� Exit �<28>�<35>�<42>�<48>�<54>�Back<60>�<66>�<72>�<78>� "
"�����������������������������������������������������������������������������
<78>� "
  ON MATCH IF PFKEY EQ 'PF01' GOTO HDELCASE;
  ON MATCH IF PFKEY EQ 'PF09' GOTO SHOW;
  ON MATCH IF XREPLY NE 'Y' GOTO ENDCASE ;
  ON MATCH COMPUTE WSTIME = HHMMSS(WSTIME) ;
  ON MATCH TYPE ON WSLOG001
     "<WSPROG><+0 D <WSDATE><WSTIME><WSOP><AGENCY><AGENCYDESC> "
  ON MATCH TYPE "<.BW. Agency: <AGENCY has been deleted <83"
  ON MATCH DELETE
ENDCASE
-******************** END OF DELCASE
CASE HSHOW
CRTFORM LINE 1 TYPE 1                                                           

-* TEMPORARY FIELD DEFINITION XWSDATE     A8
-* TEMPORARY FIELD DEFINITION WSOP        A8
"<.W. Date:<D.XWSDATE><.W. <35>S W A G<68>WSAGM001-3"
" User:<D.WSOP<.W. <33>Help Screen"
"�����������������������������������������������������������������������������
<78>�"
"<6>This screen lists agency codes and descriptions"
" "
"<6>To ADD an Agency - Enter a new unique Agency code on a blank line or"
"<6>type over an existing code (the existing code will not be affected)"
"<6>To CHANGE Descriptions -  Type over an existing description"
"<6>To CHANGE an Agency Code - The code must be deleted and new code added."
"<6>To DELETE an Agency - Place a * in Del column against the appropriate"
"<6>agency and press Enter."
" "
"<6>The following Function Keys are available:"
"<6>Press F3  to exit the system."
"<6>Press F6  to goto the top of the classification list"
"<6>"
" "
"<.FW. <26>* * *  WARNING * * * <.W. "
"<6>Deletion of an Agency will result in all Awards, Classifications,"
"<12>Increments etc. to be deleted for that Agency"
" "
"<26>Press ENTER to exit Help"
"�����������������������������������������������������������������������������"
GOTO SHOW
ENDCASE
******************** END OF HSHOW
-*
CASE HDELCASE
CRTFORM LINE 1 TYPE 1 UPPER                                                     

-* TEMPORARY FIELD DEFINITION XWSDATE     A6
-* TEMPORARY FIELD DEFINITION WSOP        A8
"<.W. Date:<D.XWSDATE><.W. <35>S W A G<68>WSAGM001-4"
" User:<D.WSOP<.W. <33>Help Screen"
"�����������������������������������������������������������������������������"
" "
"<6>This screen is a confirmation of deletion of an agency."
" "
"<6>Deleting an agency will also delete all awards classifications"
"<6>and increments associated with that agency."
" "
"<6>If you wish to delete the agency respond 'Y' to the prompt"
" "
"<6>To cancel a deletion request respond 'N' and press Enter"
" "
"<6>The following Function Keys are available:"
" "
"<6>Press F3  to exit the system."
"<6>press F9  to return through previous screens"
" "
" "
" "
" "
"<26>Press ENTER to exit Help"
"�����������������������������������������������������������������������������"
GOTO DELCASE
ENDCASE
-*********************** END OF HDELCASE
-*
CHECK 1
LOG INVALID MSG OFF
DATA VIA FIDEL
END
SET PF07 = BACKWARD
SET PF08 = FORWARD
SET PF10 = RETURN
SET PF11 = RETURN

$
T.R	Title	User	Personal Name	Date	Lines