[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference iosg::all-in-1_v30

Title:*OLD* ALL-IN-1 (tm) Support Conference
Notice:Closed - See Note 4331.l to move to IOSG::ALL-IN-1
Moderator:IOSG::PYE
Created:Thu Jan 30 1992
Last Modified:Tue Jan 23 1996
Last Successful Update:Fri Jun 06 1997
Number of topics:4343
Total number of notes:18308

2523.0. "Importing to FAX Distribution Lists" by SUBWAY::MONASCH (I wrote the DECmate games) Sat Apr 03 1993 16:23

    I've got a text file which contains a list of names and fax numbers
    which looks like this:
    
    	First_name	Last_name	FAX_#
    
    Now the question...
    
    Is there a way to create a FAX distribution list from my file?  There
    are about 400 names in the file so I really don't want to key it in
    by hand.
    
    Thanks,
    
    Jeff
T.RTitleUserPersonal
Name		DateLines
2523.1Simple DCL/FN$ programming...IOSG::PYEGraham - ALL-IN-1 Sorcerer's ApprenticeMon Apr 05 1993 10:4010
    What does a FAX address look like on your system? I ask this because
    FAX addressing is a customisation, and hence I don't know what yours
    will look like.
    
    With this information, and your list, it would be a few minutes of DCL
    lexicals and some file writes to create a distribution list. If you
    have ALL-IN-1 V3.0, you could use the FN$mumble lexicals and TEXT_FILE
    functions to do it all in a script.
    
    Graham
2523.2the actual lineSUBWAY::MONASCHI wrote the DECmate gamesWed Apr 07 1993 16:2012
    This is what the line looks like...it is actually one line.
    
    
    Jeff Monasch 
    ( Jeff Monasch@1=US@2=MCI@*EMS\FAX@*MBX1\PHONE:212-856-2500@MRX_MCI@OGO )
    
    Now, any ideas on how to format my file and get it to be recognized
    as a distribution list?
    
    Jeff
2523.3Try this....IOSG::PYEGraham - ALL-IN-1 Sorcerer's ApprenticeWed Apr 07 1993 18:3937
    OK, here's a horrible hack, assuming you aren't going to be doing this
    too often, and it's a personal distribution list...
    
    Get the addresses in a file called names.lst, or edit code below
    appropriately.
    
    Go to EM DL C, and make a list called @TEMP for example. Just put one
    address in it "I" will do.
    
    GO back to EM, and select the document called "@TEMP" in the folder
    called "DISTRIBUTION LISTS". Do SH (show header) to find its VMS file
    name. It will be something like "[.MSG]ZUPXQ96XF.DIS". Edit this file
    name into the command procedure below, and execute it.
    
    Graham
    
    PS No guarantees, no warranties, and that's a beer you owe me!
    
    PPS No smart remarks from anyone else about how bad the code is!
    
$ Spaces = "                                             "
$ open/write DL <**FILENAME HERE**>
$ open/read Names names.lst
$Loop:
$ read/end=Done Names Buff
$ First = f$edit( f$element( 0," ",Buff ),"TRIM" )
$ Last = f$edit( f$element( 1," ",Buff ),"TRIM" )
$ Fax = f$edit( f$element( 2," ",Buff ),"TRIM" )
$ write DL First," ",Last, -
    f$extract( 0,36-f$length( First )-f$length( Last ),Spaces ), -
    "( ",First," ",Last,"@1=US@2=MCI@*EMS\FAX@*MBX1\PHONE:",Fax, -
    "@MRX_MCI@OGO )"
$ goto Loop
$Done:
$ close DL
$ close Names
$ exit