Conference iosg::all-in-1_v30

    Hi,
    
    Sorry, I've no description about NOECHO fields. But to search for them
    just use $FMS /DESC libr /FORM=form /OUT=t.t' and
    '$SEARCH /WIN=4 t.t NOECHO'. It gave me (slightly edited):
    
FIELD NAME='OPER'  (10,2)
    PICTURE=45'X'
    NOECHO DISPLAY_ONLY 
***************
FIELD NAME='DDSID'  (11,48)
    PICTURE=32'X'
    NOECHO DISPLAY_ONLY 
    ;
FIELD NAME='EXTRA1'  (12,2)
    PICTURE=43'X'
    NOECHO DISPLAY_ONLY 
    ;
***************
FIELD NAME='EXTRA2'  (18,2)
    PICTURE=50'X'
    NOECHO DISPLAY_ONLY 
    ;
***************
FIELD NAME='UTILITY'  (20,49)
    PICTURE='X'
    NOECHO DISPLAY_ONLY 
    ;
    
    FWIW,
    Regards,
    Sjaak.

    Ooops, that's only PROFIL5, check the others the same way.

Excerpted from a memo of mine (note that the example output was for an early 
base-level of v3, so may not be exactly up-to-date):

=====
.
.
.

You can now get field info from ALL-IN-1 (v3).

Of course, this isn't much use for working with v2.4, but it might help in the 
future at least.

D.

The following script works:

! writes a text file containing field info for PROFIL

text_file open/write out 'profil.lis'
for oa$form_info:'profil' do get #a = .field_name ":" .pos ":" .len -
\\text_file write out #a
text_file close out

It produces a file looking like:

USER:0:30
TEMPLATE:30:20
DIRECT:50:68
FRMLIB:118:68
NOT$IN$USE:186:1
CREATE$FAIL:187:1
VMSUSR:188:12
DELETE_FROM:200:70
RESERVED:270:15
RSVD_FOR_TCS:285:1
SURNAME1:286:40
FORENAME1:326:16
INITIALS1:342:5
FULNAM:347:64
COMPANY:411:64
DEPART:475:32
LOCATION:507:20
INT_LOCATION:527:20
GENERATION:547:3
TITLE:550:40
PHONE:590:32
INTERNAL_PHONE:622:32
ADDR1:654:40
ADDR2:694:40
ADDR3:734:40
ADDR4:774:40
ADDR5:814:40
ADDR6:854:40
COUNTRY_NAME:894:40
ZIPCOD:934:40
FORENAME2:974:16
FORENAME3:990:16
FORENAME4:1006:16
FORENAME5:1022:16
SURNAME2:1038:40
SURNAME3:1078:40
INITIALS2:1118:5
INITIALS3:1123:5
INITIALS4:1128:5
INITIALS5:1133:5
STATUS:1138:68
MAIL_REPLY:1206:31
MAIL_FORWARD:1237:78
NOTIFY:1315:1
QPNOT:1316:1
QBNOT:1317:1
TICKLER:1318:1
ACTITEM:1319:1
MAIL_FORWARD2:1320:78
MAIL_FORWARD3:1398:78
MAIL_FORWARD4:1476:78
MAIDES:1554:10
MAIL_MENU:1564:10
MAIL_READ_RECEIPT:1574:1
START:1575:30
TM$MENU:1605:10
PASWRD:1615:31
EDITOR:1646:10
ENFORCED_ARCHIVE:1656:1
MAIL$AREA:1657:8
AD$MIN:1665:1
DATE$FORMAT:1666:1
PRINT:1667:15
PRINTER_PORT:1682:1
PRVDCL:1683:1
PRVCMD:1684:1
PRVUDP:1685:1
PRVNCMP:1686:1
PRVXOWN:1687:1
PRVVIEW:1688:1
PRVSUP:1689:1
PRVERR:1690:1
PRVSRC:1691:1
CORP_PHONE:1692:1
PRVLOG:1693:1
PRVAPP:1694:1
MDFLAG:1695:1
MULTI_NODE:1696:1
SET_MODE:1697:1
KEY$BOARD:1698:25
NODE:1723:13
STARTD:1736:1
STARTH:1737:7
MEALS:1744:7
NODAYS:1751:1
ENDH:1752:7
MEALE:1759:7
TIMEFMT:1766:1
CALTIMEINC:1767:5
SETUSR:1772:1
OPER:1773:45
CALDAY:1818:1
DDSID:1819:32
EXTRA1:1851:43
CLASS:1894:10
UFLAG1:1904:1
UFLAG2:1905:1
UFLAG3:1906:1
UFLAG4:1907:1
UFLAG5:1908:1
UFLAG6:1909:1
UFLAG7:1910:1
UFLAG8:1911:1
UFLAG9:1912:1
UFLAG10:1913:1
LANGUAGE:1914:20
EXTRA2:1934:50
QUOTA:1984:10
OVERDRAFT:1994:10
DOCCOUNT:2004:10
LOGINCHK:2014:1
UTILITY:2015:1
STATUS$LINE:2016:1
READ$WIDE:2017:1
CONFIRM$SEL:2018:1
DELETE$UNREAD:2019:1
NEW$FOLDER$PROMPT:2020:1
COVER$NOTE:2021:1
DELETE$PROMPT:2022:1
DELETE_JOB:2023:1
CDA_STORAGE:2024:1
CDA_HANDLING:2025:1
CLASSIFICATION:2026:3
CATEGORIES:2029:16
CREATE_GRP:2045:1
ORGUNIT1:2046:32
ORGUNIT2:2078:32
ORGUNIT3:2110:32
ORGUNIT4:2142:32

    Or better yet:
    
    	<for oa$form_info:'PROFIL' with .display_only == 'Y' do prompt .%key
    
    Gives:
    
      NOT$IN$USE, CREATE$FAIL, RESERVED, RSVD_FOR_TCS, MAIL_REPLY,
      MAIL_FORWARD, MAIL_FORWARD2, MAIL_FORWARD3, MAIL_FORWARD4, MDFLAG,
      OPER, DDSID, EXTRA1, EXTRA2, UTILITY and TIME_STAMP
    
    Graham

    
    Here's a modified version of Dave's script (.3) that I use. It will
    prompt for a form name, but if you don't enter one it will default 
    to OA$FORM_NAME.  It will also list the output to the terminal.
    
    - Larry
    
.label begin

! writes a text file containing field info for PROFIL
Get #under="-"
Get #filnam = "field_info.lis"
text_file open/write out #filnam
prompt "Name of form to search: "
.if oa$prompt_text eqs "" Then get #form=oa$form_name else -
 get #form=oa$prompt_text
Get #title = "Field data for form " #form
Get #under = fn$fill(#under,fn$length(#title)-1,"-")
Text_file write out #title
Text_file write out #under
Get oa$function='for oa$form_info:' #form ' do -
get #a = .field_name -
\\Get #b="Position:" .pos  -
\\Get #c="Length:" .len -
\\Get #d="Display only:" .display_only -
\\Get #e = fn$fill(#a,25,".") fn$fill(#b,17,".") fn$fill(#c,15,".") #d -
\\text_file write out #e'

text_file close out
get oa$function="LIST " #filnam
get oa$function="delete " #filnam
.exit

    

    G'day,          
    
    Thanks for all your replies.  One thing to note the PROFIL form is not
    the same as the PROFILE form.  There is an interaction between the two
    forms can someone tell me how these forms interact.
    
    Sunil
    
    PS - I like the TS Text search option from the read menu. 3.0 is a much
    improved product.

    The PROFIL form is the absolute definition of *all* the fields in the
    file.
    
    The PROFILE form contains a subset of the fields which non privileged
    users are allowed to change (only in their own record of course!)
    
    Graham
    
    PS
    
    <<< PS - I like the TS Text search option from the read menu. 3.0 is a much
    <<< improved product.
    
    Well thankyou!!

    
    Hi,
    
    Another way to get it (but there are no selection criteria prosible
    here) and you have access to CM is:
    
    	Edit a document (WPS-PLUS asvised to see the nice 'graphics')
    	Use GOLD GET
    	Select option CM
    	Select:
    
    
                   Get Element From Customization Management
    
             Site or Base (S/B)? B
    
             Name:   PROFIL
             Type:   FRM
             Area:   ENGLISH
    
    	From the next menu, select option FV (Field view)
    
    	and voil�, check the result.
    
    Ciao,
    
    	Simon