[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| 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 |
2111.0. "Underscore converts PS to TXT file." by KAOFS::R_OBAS () Mon Jan 18 1993 19:21
Hello,
I posted a 26 block of my trace. (I cut as much as I can Mr. Mod)
I have a customer who wants to change the TXT$LIST,FILE: C.TXT
to be a C.PS. But we cannot find where the TXT$LIST,FILE: C.TXT
is being generated. The file C.TXT is created when at the TO: in EM
you put an underscore before the username.
The C.txt file is then deleted once the message is sent.THis is a V3.0
system and they want to change the .txt to .ps to be able to send
Postscript file.
If a PS file is sent using the addressing TO:USERNAME@A1@NODENAME,
the PS file is sent without being converted to a text file.
But if the addressing is TO: _nodename::username, the PS file is then
converted to a text file.
Any one know a workaround/solution ?
thanks,
ricardo
![IO] Getting field MAIL_STATUS from DOCDB, Value: SENT
![IO] Opening TXT$LIST, File: C.TXT, Class: TEXT, Mode: OUTPUT
^^^^^^^^^^^^^^^^^^^^^^
![FUNC] Function: MERGE, Cmd line: MAILMEMO1
![A1LOG] Entry: %OA-I-LOGFUN, Function: MERGE MAILMEMO1
![BLP] Merging boilerplate MAILMEMO1
![IO] Putting record in TXT$LIST, Key:
![FUNC] Function: GET, Cmd line: oa$formatting_header="1"
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET oa$formatting_header="1
! "
![SYMBOL] Symbol: oa$formatting_header="1", Value: 1
![FUNC] Function: GET, Cmd line: oa$page_length="0"
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET oa$page_length="0"
![SYMBOL] Symbol: oa$page_length="0", Value: 0
![IO] Putting record in TXT$LIST, Key:
![IO] Putting record in TXT$LIST, Key:
![IO] Putting record in TXT$LIST, Key:
![SYMBOL] Symbol: oa$curdoc_created, Value: 18-Jan-1993 12:54pm
![SYMBOL] Symbol: #zone, Value: GMT
![IO] Putting record in TXT$LIST, Key:
![SYMBOL] Symbol: oa$curdoc_author, Value: Ricardo Obas
![IO] Putting record in TXT$LIST, Key:
![SYMBOL] Symbol: oa$curdoc, Value: OUTBOX 001646
![SYMBOL] Symbol: cab$.from_address[oa$curdoc], Value: R_OBAS
![IO] Putting record in TXT$LIST, Key:
![SYMBOL] Symbol: oa$curdoc, Value: OUTBOX 001646
![SYMBOL] Symbol: cab$.from_dept[oa$curdoc], Value:
![IO] Putting record in TXT$LIST, Key:
![SYMBOL] Symbol: oa$curdoc, Value: OUTBOX 001646
![SYMBOL] Symbol: cab$.from_tel_no[oa$curdoc], Value:
![IO] Putting record in TXT$LIST, Key:
![FUNC] Function: GET, Cmd line: #cab$sender = cab$.dauthor[oa$curdoc]
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET #cab$sender = cab$.daut
! hor[oa$curdoc]
![SYMBOL] Symbol: oa$curdoc, Value: OUTBOX 001646
![SYMBOL] Symbol: #cab$sender = cab$.dauthor[oa$curdoc], Value: Ricardo Obas
![FUNC] Function: ., Cmd line: .IF #cab$sender:1:32 = "[" THEN MERGE_LINE\GET
! OA$MERGE_LINE = "<&TAB 40><&BOLD>" EM$_SENT_BY "<&CLEAR>"
! "<&TAB 50>" fn$left(#cab$sende
! r::33,fn$length(#cab$sender::34))
![A1LOG] Entry: %OA-I-LOGFUN, Function: . .IF #cab$sender:1:32 =
! "[" THEN MERGE_LINE\GET OA$MERGE_LINE = "<&TAB 40><&BOLD>" EM$_S
! ENT_BY "<&CLEAR>" "<&TAB 50>"
! fn$left(#cab$sender::33,fn$length(#cab$sender::34))
![SCRIPT] Form: EMC, Statement: .IF #cab$sender:1:32 = "[" THEN MERGE_LINE\GET O
! A$MERGE_LINE = "<&TAB 40><&BOLD>" EM$_SENT_BY "<&CLEAR>"
! "<&TAB 50>" fn$left(#cab$sender
! ::33,fn$length(#cab$sender::34))
![SYMBOL] Symbol: #CAB$SENDER:1:32, Value:
![SYMBOL] Symbol: "[", Value: [
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition #CAB$SENDER:1:32 = "[" is FALSE
![SCRIPT] Null ELSE clause detected
![IO] Putting record in TXT$LIST, Key:
![FUNC] Function: FOR, Cmd line: cab$attributes:TO DO MERGE_LINE <&BOLD>TO:<&C
! LEAR> <.value>
![A1LOG] Entry: %OA-I-LOGFUN, Function: FOR cab$attributes:TO DO ME
! RGE_LINE <&BOLD>TO:<&CLEAR> <.value>
![FUNC] Function: MERGE_LINE, Cmd line: <&BOLD>TO:<&CLEAR> <.value>
![A1LOG] Entry: %OA-I-LOGFUN, Function: MERGE_LINE <&BOLD>TO:<&CLEAR> <.v
! alue>
![SYMBOL] Symbol: .value, Value: Remote Addressee ( _kaorsc:
! :r_obas )
![IO] Putting record in TXT$LIST, Key:
![IO] Putting record in TXT$LIST, Key:
![FUNC] Function: FOR, Cmd line: cab$attributes:CC DO MERGE_LINE <&BOLD>CC:<&C
! LEAR> <.value>
![A1LOG] Entry: %OA-I-LOGFUN, Function: FOR cab$attributes:CC DO ME
! RGE_LINE <&BOLD>CC:<&CLEAR> <.value>
![IO] Putting record in TXT$LIST, Key:
![SYMBOL] Symbol: oa$curdoc, Value: OUTBOX 001646
![SYMBOL] Symbol: cab$.subject[oa$curdoc], Value: test for guy
![IO] Putting record in TXT$LIST, Key:
![IO] Putting record in TXT$LIST, Key:
![FUNC] Function: GET, Cmd line: oa$formatting_header="0"
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET oa$formatting_header="0
! "
![SYMBOL] Symbol: oa$formatting_header="0", Value: 0
![FUNC] Function: ., Cmd line: .IF #PRINT_BODY_IS_PS nes "1" then get OA$MERGE
! _LINE = "<&INCLUDE oa$curdoc_filename>"
![A1LOG] Entry: %OA-I-LOGFUN, Function: . .IF #PRINT_BODY_IS_PS n
! es "1" then get OA$MERGE_LINE = "<&INCLUDE oa$curdoc_filename>"
![SCRIPT] Form: EMC, Statement: .IF #PRINT_BODY_IS_PS nes "1" then get OA$MERGE_
! LINE = "<&INCLUDE oa$curdoc_filename>"
![SYMBOL] Symbol: #PRINT_BODY_IS_PS, Value:
![SYMBOL] Symbol: "1", Value: 1
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition #PRINT_BODY_IS_PS NES "1" is TRUE
![SCRIPT] THEN Operation starting
![SCRIPT] Form: EMC, Statement: get OA$MERGE_LINE = "<&INCLUDE oa$curdoc_filenam
! e>"
![FUNC] Function: GET, Cmd line: OA$MERGE_LINE = "<&INCLUDE oa$curdoc_filename
! >"
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET OA$MERGE_LINE = "<&INCL
! UDE oa$curdoc_filename>"
![SYMBOL] Symbol: oa$curdoc_filename, Value: OA$SHARE1:ZUMWIGFRR.WPL
![SYMBOL] Symbol: , Value:
![IO] Putting record in TXT$LIST, Key:
![IO] Putting record in TXT$LIST, Key:
![IO] Putting record in TXT$LIST, Key:
![SYMBOL] Symbol: OA$MERGE_LINE = "<&INCLUDE oa$curdoc_filename>", Value: <&INCL
! UDE oa$curdoc_filename>
![IO] Closing TXT$LIST, File: C.TXT
![MAIL] Command file delivery, File: SPECIAL.COM
![FUNC] Function: COMMAND, Cmd line: SPECIAL.COM
![A1LOG] Entry: %OA-I-LOGFUN, Function: COMMAND SPECIAL.COM
![COM] Command: $ @A1DISK:[ALLIN1.LIB_SHARE]SPECIAL.COM;
![COM] Command: $ @A1DISK:[ALLIN1.LIB_SHARE]SPECIAL.COM;
![FUNC] Function: GET, Cmd line: PROFIL.DIRECT[OA$USER]
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET PROFIL.DIRECT[OA$USER]
![SYMBOL] Symbol: OA$USER, Value: R_OBAS
![IO] Getting record from PROFIL, Key: R_OBAS, Key-of-ref: USER/0
![IO] Getting field DIRECT from PROFIL, Value: DISK$LAYERED:[R_OBAS.A1]
![SYMBOL] Symbol: PROFIL.DIRECT[OA$USER], Value: DISK$LAYERED:[R_OBAS.A1]
![FUNC] Function: GET, Cmd line: #MAILSUBJ
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET #MAILSUBJ
![SYMBOL] Symbol: #MAILSUBJ, Value: test for guy
![FUNC] Function: GET, Cmd line: #MAILFILE
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET #MAILFILE
![SYMBOL] Symbol: #MAILFILE, Value: C.TXT
![FUNC] Function: GET, Cmd line: #MAILNODE
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET #MAILNODE
![SYMBOL] Symbol: #MAILNODE, Value:
![FUNC] Function: GET, Cmd line: #MAILADDR
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET #MAILADDR
![SYMBOL] Symbol: #MAILADDR, Value: _kaorsc::r_obas
![IO] Deleting file C.TXT
![IO] Getting record from CAB$SDAF_E, Key: OA$SHARE1:ZUMWIGFRR.WPL, Key-of-r
! ef: DAF_KEY/0
![FUNC] Function: OA$SCP_DISPATCH, Cmd line: .FX IFNOTMAILDRAWER\ XOP "
! ~~TEST_FOR_UNSENT~~"\ IFSTATUS\ GET #MAILOP="SEND"
! \ GET #MAILMETER="SEND_MEMO"\ DO EM_COPY_MAILDWR.S
! CP
![A1LOG] Entry: %OA-I-LOGFUN, Function: OA$SCP_DISPATCH .FX IFNOTMAILDRAWER\
! XOP "~~TEST_FOR_UNSENT~~"\ IFSTATUS\ GET #MAI
! LOP="SEND"\ GET #MAILMETER="SEND_MEMO"\ DO EM_COPY
! _MAILDWR.SCP
![SCRIPT] Form: EMC, Statement: .FX IFNOTMAILDRAWER\ XOP "~~TEST_FOR_UNSE
! NT~~"\ IFSTATUS\ GET #MAILOP="SEND"\ GET #M
! AILMETER="SEND_MEMO"\ DO EM_COPY_MAILDWR.SCP
![FUNC] Function: IFNOTMAILDRAWER, Cmd line:
![A1LOG] Entry: %OA-I-LOGFUN, Function: IFNOTMAILDRAWER
![FUNC] Function: GET, Cmd line: $EM_DRAWER = OA$CURDWR
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET $EM_DRAWER = OA$CURDWR
![SYMBOL] Symbol: $EM_DRAWER = OA$CURDWR, Value: MAIN
![FUNC] Function: ., Cmd line: .IF $EM_DRAWER NES OA$CURDWR THEN CAB SET_DRA
! WER $EM_DRAWER\GET $EM_DRAWER = OA$CURDWR
![A1LOG] Entry: %OA-I-LOGFUN, Function: . .IF $EM_DRAWER NES OA$C
! URDWR THEN CAB SET_DRAWER $EM_DRAWER\GET $EM_DRAWER = OA$CURDW
! R
![SCRIPT] Form: EMC, Statement: .IF $EM_DRAWER NES OA$CURDWR THEN CAB SET_DRAW
! ER $EM_DRAWER\GET $EM_DRAWER = OA$CURDWR
![SYMBOL] Symbol: $EM_DRAWER, Value: MAIN
![SYMBOL] Symbol: OA$CURDWR, Value: MAIN
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition $EM_DRAWER NES OA$CURDWR is FALSE
![SCRIPT] Null ELSE clause detected
![FUNC] Function: ., Cmd line: .IF #CURDOC NES "OA$CURMES" THEN XOP "~~EM_INIT
! ~~"
![A1LOG] Entry: %OA-I-LOGFUN, Function: . .IF #CURDOC NES "OA$CUR
! MES" THEN XOP "~~EM_INIT~~"
![SCRIPT] Form: EMC, Statement: .IF #CURDOC NES "OA$CURMES" THEN XOP "~~EM_INIT~
! ~"
![SYMBOL] Symbol: #CURDOC, Value: OA$CURMES
![SYMBOL] Symbol: "OA$CURMES", Value: OA$CURMES
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition #CURDOC NES "OA$CURMES" is FALSE
![SCRIPT] Null ELSE clause detected
![FUNC] Function: ., Cmd line: .IF OA$MAIL_USER NES OA$USER THEN XOP "~~SMU_IN
! IT~~"
![A1LOG] Entry: %OA-I-LOGFUN, Function: . .IF OA$MAIL_USER NES OA
! $USER THEN XOP "~~SMU_INIT~~"
![SCRIPT] Form: EMC, Statement: .IF OA$MAIL_USER NES OA$USER THEN XOP "~~SMU_INI
! T~~"
![SYMBOL] Symbol: OA$MAIL_USER, Value: R_OBAS
![SYMBOL] Symbol: OA$USER, Value: R_OBAS
![SCRIPT] IF Operation starting
![SCRIPT] .IF condition OA$MAIL_USER NES OA$USER is FALSE
![SCRIPT] Null ELSE clause detected
![FUNC] Function: CAB, Cmd line: CURRENT/FORCE OA$CURMES
![A1LOG] Entry: %OA-I-LOGFUN, Function: CAB CURRENT/FORCE OA$CURMES
![SYMBOL] Symbol: OA$CURMES, Value: OUTBOX 001646
![FUNC] Function: GET, Cmd line: OA$CURMES = OA$CURDOC
![A1LOG] Entry: %OA-I-LOGFUN, Function: GET OA$CURMES = OA$CURDOC
![SYMBOL] Symbol: OA$CURMES = OA$CURDOC, Value: OUTBOX 00
! 1646
![SYMBOL] Symbol: OA$FULL_NAME, Value: Ricardo Obas
![PUT] Field: USER/0, Page: 1, Text: Ricardo Obas
![SYMBOL] Symbol: OA$TITLE, Value:
![SYMBOL] Symbol: OA$DAY, Value: Monday
![PUT] Field: DAY/2, Page: 1, Text: Mon
![SYMBOL] Symbol: OA$DATE_FULL, Value: 18-Jan-1993
![PUT] Field: DATE/3, Page: 1, Text: 18-Jan-1993
![IO] Getting record from CAB$PENDING, Key: MAIL R_OBAS, Key-of-ref: PENDING
! _KEY/0
![SYMBOL] Symbol: OA$MAIL_COUNT_DISPLAY, Value: ( 1 new mail message )
![PUT] Field: MAIL/4, Page: 1, Text: ( 1 new mail message )
![SYMBOL] Symbol: OA$CURDWR_DISPLAY, Value: MAIN
![PUT] Field: DRAWER/5, Page: 1, Text: MAIN
![SYMBOL] Symbol: OA$CURDOC_FOLDER, Value: OUTBOX
![PUT] Field: FOLDER/7, Page: 1, Text: OUTBOX
![SYMBOL] Symbol: OA$CURDOC_TITLE, Value: test for guy
![PUT] Field: DOCTITLE/8, Page: 1, Text: test for guy
![SYMBOL] Symbol: OA$CURDOC_AUTHOR, Value: Ricardo Obas
![PUT] Field: AUTHOR/9, Page: 1, Text: Ricardo Obas
![SYMBOL] Symbol: OA$CURDOC_MODIFIED, Value: 18-Jan-1993 12:54pm
![PUT] Field: MOD_DATE/10, Page: 1, Text: 18-Jan-1993 12:54pm
![SYMBOL] Symbol: OA$CURDOC_DOCNUM, Value: 001646
![PUT] Field: DOCNUM/11, Page: 1, Text: 001646
![SYMBOL] Symbol: OA$CURDOC_MAIL_STATUS, Value: SENT
![PUT] Field: STATUS/12, Page: 1, Text: SENT
![FIELD] Field STATUS being pre-processed. Workspace: 0000061E
![FIELD] Current Field: CHOICE/6
![FORM] Form: EMC, Field: CHOICE/6, Page: 1. Getting user input
![MESS] Message: The message has been sent
![INPUT] Terminal input follows:
ex {CR}
![FORM] Form: EMC, Field: CHOICE/6, Page: 1, Key Value: {CR}
![FUNC] Function: OA$FLD_DONE, Cmd line:
![A1LOG] Entry: %OA-I-LOGFUN, Function: OA$FLD_DONE
![FIELD] Field: CHOICE/6. All fields checked
![FIELD] Field CHOICE being post-processed. Workspace: 0000061E
![FIELD] Field: CHOICE. Returning field contents
![FORM] Form: EMC, Field: CHOICE/6, Page: 1, Input: ex
![SYMBOL] Symbol: EMC1, Value:
![SYMBOL] Symbol: EMC2, Value:
![SYMBOL] Symbol: EMC3, Value:
![SYMBOL] Symbol: FC1, Value:
![SYMBOL] Symbol: FC2, Value:
![SYMBOL] Symbol: FC3, Value:
![FUNC] Function: EXIT, Cmd line:
![A1LOG] Entry: %OA-I-LOGFUN, Function: EXIT
![MESS] Message:
R_OBAS finished using ALL-IN-1 at 18-Jan-1993 12:5
! 5pm
![FLOW] Undisplaying all workspaces
![A1LOG] Entry: %OA-I-LOGSTOP, Ending ALL-IN-1
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 2111.1 | BLISS is Ignorance | AIMTEC::WICKS_A | A year behind in more ways than one | Mon Jan 18 1993 21:23 | 7 |
| Ricardo,
C.TXT is hard-coded in OAMTIDLV.B32 - so without a BLISS compiler!
Regards,
Andrew.D.Wicks
|
| 2111.2 | The file extension isn't the important bit | SCOTTC::MARSHALL | Spitfire Drivers Do It Topless | Mon Jan 18 1993 23:29 | 22 |
| Hi,
Postscript files are just plain text files. The thing that makes them
"magic" is their contents. You can print Postscript to an ASCII
printer - and you'll get the Postscript text. Print it to a Postscript
printer, and the text is "interpreted".
So, whether the file is called C.TXT or C.PS makes no difference
whatsoever - its contents are the same. If C.TXT is printed to a
Postscript printer, it still works properly. The only problem arises
if something using the file takes different actions depending on the
file extension. I don't think VMSmail (the thing that SPECIAL.COM runs
by default when you use underscore addressing) does anything fancy, so
the file should still be sent properly.
On the other hand, if you have a different SPECIAL.COM that does care
about the file extension, it should be trivial to customise it.
If you need more info/help, just ask!
Scott
|
| 2111.3 | Logical, Mr Spock | IOSG::TALLETT | Gimmee an Alpha colour notebook... | Tue Jan 19 1993 07:55 | 10 |
|
I don't know why you would want to (see previous reply) but
possibly a:
$ define c.txt c.ps
or some such would do the trick.
Regards,
Paul
|