!          FMS Form Description Application Aid 
!                     Version V2.2
 
FORM NAME='MODPHONE'
    AREA_TO_CLEAR=1:23
    WIDTH=80
    BACKGROUND=CURRENT
    ;


TEXT (1,18) 'Corporate Telephone Directory'
    ;
TEXT (3,3) 'Entry Key:'
    ;
TEXT (3,58) 'Telephone Numbers'
    ;
TEXT (5,8) 'Name:'
    ;
TEXT (5,48) 'Business:'
    ;
TEXT (6,7) 'Title:'
    ;
TEXT (6,48) 'Personal:'
    ;
TEXT (7,51) 'Other:'
    ;
TEXT (8,2) 'Department:'
    ;
TEXT (9,5) 'Company:'
    ;
TEXT (10,3) 'Mail Stop:'
    ;
TEXT (11,6) 'Street:'
    ;
TEXT (11,46) 'State   Zip Code'
    ;
TEXT (12,8) 'City:'
    ;
TEXT (14,8) 'Node:'
    ;
TEXT (16,4) 'Comments:'
    ;
TEXT (21,1) 'TAB to next field, BS (F12) to previous field, PAGE (PF2) fo'
    &'r help,'
    ;
TEXT (22,1) 'RETURN when done.'
    ;

ATTRIBUTE_DEFAULTS FIELD
    CLEAR_CHARACTER=' '
    NOAUTOTAB BLANK_FILL NOBLINKING NOBOLD NOREVERSE
    NOUNDERLINE NODISPLAY_ONLY ECHO NOFIXED_DECIMAL
    LEFT_JUSTIFIED NOSUPERVISOR_ONLY NOSUPPRESS NOUPPERCASE
    ;

FIELD NAME='CKEY'  (3,14)
    PICTURE=30'X'
    DISPLAY_ONLY 
    ;
FIELD NAME='NAME'  (5,14)
    PICTURE=32'X'
    HELP='Company or person. Examples: Limelight Assoc., John H. Watso'
    &'n, etc.'
    RESPONSE_REQUIRED 
    ;
FIELD NAME='TITLE'  (6,14)
    PICTURE=29'X'
    HELP='Examples: President, Sales Person, etc. (May be blank.)'
    ;
FIELD NAME='BUSINESS'  (5,58)
    PICTURE=20'X'
    HELP='Business telephone number (if any), Example: (212) 213-0900'
    ;
FIELD NAME='PERSONAL'  (6,58)
    PICTURE=20'X'
    HELP='Personal telephone number, in the form (212) 555-1212'
    ;
FIELD NAME='OTHER'  (7,58)
    PICTURE=20'X'
    HELP='Other telephone number, as (212) 555-1212'
    ;
FIELD NAME='DEPARTMENT'  (8,14)
    PICTURE=20'X'
    HELP='Examples: Sales, Shipping, Promotions, etc.'
    ;
FIELD NAME='COMPANY'  (9,14)
    PICTURE=30'X'
    HELP='Example: Greenberg Brothers Partnerships  (May be left blank'
    &'.)'
    ;
FIELD NAME='MAIL_STOP'  (10,14)
    PICTURE=30'X'
    HELP='Floor, room, building, etc. Example: 11th Floor Room 1101'
    ;
FIELD NAME='STREET'  (11,14)
    PICTURE=30'X'
    HELP='Example: 60 Madison Ave.'
    ;
FIELD NAME='CITY'  (12,14)
    PICTURE=27'X'
    HELP='City, such as New York, Los Angeles, London.'
    ;
FIELD NAME='STATE'  (12,47)
    PICTURE=3'X'
    HELP='The State, such as NY, CA, CT, NJ'
    ;
FIELD NAME='ZIP'  (12,54)
    PICTURE=9'X'
    HELP='Examples: 10010, 10010-1234, E4Y5B7 (Canada)'
    ;
FIELD NAME='NODE'  (14,14)
    PICTURE=10'X'
    HELP='No help available for this item, May be left blank.'
    ;
FIELD NAME='COMMENTS'  (16,14)
    PICTURE=60'X'
    HELP='May be past performance, services rendered, special consider'
    &'ations, etc.'
    ;
FIELD NAME='PROMPT'  (18,1)
    PICTURE=40'X'
    RIGHT_JUSTIFIED DISPLAY_ONLY 
    ;
FIELD NAME='REPLY'  (18,42)
    PICTURE=32'X'
    HELP='Please supply the answer requested.'
    UPPERCASE 
    ;

ORDER BEGIN_WITH = 1
    NAME='CKEY' 
    NAME='NAME' 
    NAME='TITLE' 
    NAME='BUSINESS' 
    NAME='PERSONAL' 
    NAME='OTHER' 
    NAME='DEPARTMENT' 
    NAME='COMPANY' 
    NAME='MAIL_STOP' 
    NAME='STREET' 
    NAME='CITY' 
    NAME='STATE' 
    NAME='ZIP' 
    NAME='NODE' 
    NAME='COMMENTS' 
    NAME='PROMPT' 
    NAME='REPLY' 
    ;

 
END_OF_FORM NAME='MODPHONE' ;