[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

317.0. "Accessing and understanding WPL format documents" by BODRUM::YEGEN () Wed Mar 25 1992 07:43

    I have written something like that in TRON::ALL-IN-1, too. But I can
    not access the topic due to the error message "Network partner exited"
    So I am writing it here, too. 
    
    My main problem is to convert 2 specific characters to 2 specific other
    characters in all documents in the shared area of an ALL-IN-1 system
    which was used more than 3 years. Since the documents are in WPL format 
    I can not manage it with three conversion programms for the above
    purpose. None of them work because of the WPL format. Can somebody
    suggest me a way of doing this with using any script programming.
    My knowledge in script programming is not sufficient good to handle
    such a case.
    
    
    Best regards,
    
    TANSU
T.RTitleUserPersonal
Name		DateLines
317.1TEXT_FILE?SIOG::T_REDMONDThoughts of an Idle MindWed Mar 25 1992 08:4216
    The first question that comes to mind is why anyone would want to
    convert 2 specific characters to 2 others in all documents that reside
    within the shared areas?  This sounds an unreasonable request. If it's
    for a customer, do they understand how long such an operation might
    take (to write, test, and then run), and how much it will cost?
    
    You'll have to be very careful when you scan for the characters and
    perform replacements. I can see lots of opportunities for replacements
    to occur when they aren't wanted.
    
    Anyway, have you tried the TEXT_FILE function?  That, with a
    combination of the lexical functions (on ALL-IN-1 V3.0), or GET_SYMBOL
    and GET_TOKEN (in ALL-IN-1 V2.3 or V2.4) might be able to do the job.
    But it will be slow going.
    
    Tony
317.2If you don't want to write scriptsSIOG::T_REDMONDThoughts of an Idle MindWed Mar 25 1992 08:4513
    Sorry, I forgot myself and the fact that you don't want to use script
    programming. 
    
    The only reasonable idea I can think of now is to convert the WPL 
    documents to DX and write a program that understands DX (it's a published
    format) to search for and replace the characters.  
    
    Another would be to try playing with text DSABs, but you don't really
    want to get into that....
    
    As far as I know, Digital doesn't explain the WPL format too well...
    
    Tony
317.3detailsBODRUM::YEGENWed Mar 25 1992 09:2234
    Thank you very much for your answers. I just did not want to write a
    long reason for the 2 characters conversion. Now that we have an
    ALL-IN-1 with Turkish forms I was asked to install this second language
    onto the system in our Ankara office. But ALL-IN-1 in Ankara supports
    MMCS character set and Turkish ALL-IN-1 supports ISOLATIN5 format. The
    two characters small i without dot and uppercase I with dot above had a
    different position in MMCS character set and in ISO. After installing
    (which I have already done on a test system) I saw that 2 specific
    strange characters appear instead of the above ones. 
    
    I have written a small script which can scan the user cabinets and do
    this for me by using search and replace which is called by means of an
    UDP. Of course this is successful only for the documents which the
    users can edit. But with mails I have problem.
    
    In my scripts I used something like that which was :
    
    <get #abc=oa$curdoc
    <get oa$function='write change cab$ key=#abc,modify=oa$y'
    
    My knowledge in programming is only 2 weeks old. I sometimes managed it
    with the above two lines and sometimes not. There is nobody who can give
    support to me.
    
    Can I convert the files in shared area to DX, make the conversion and
    convert them backup to WPL format. What is DX format. How can I make
    the conversion DX-->WPL and WPL--->DX
    
    Thank you,
    
    TANSU YEGEN @twi
317.4TECO time?\SIOG::T_REDMONDThoughts of an Idle MindWed Mar 25 1992 14:1319
    I hestitate to offer this advice, but a long time ago during the
    ALL-IN-1 V2.0 Field Test, I had the situation where WPS-PLUS V1.0
    didn't understand 8-bit space characters produced by the ALL-IN-1 V1.3
    editor in use then (DECtext-Plus). Our solution was to write a TECO
    command file that would convert all of the 8-bit space characters to
    7-bit space characters. This was done in a batch command procedure.
    Tacky, but effective.
    
    You should be able to deal with the files in the shared areas by
    running the procedure from a privileged account. However, you may not
    be able to convert from one character set to another using TEXT_FILE. I
    don't know how you'd specify the characters to be converted if another
    character set was active (ALL-IN-1 Turkish). I also don't know if this
    can be done at the DX level. Hopefully someone with more knowledge of
    these areas will help you.
    
    Sorry, Tony
317.5It is again me !!BODRUM::YEGENWed Mar 25 1992 14:2813
    Again thank you, but I think it's my fault not being able to expalin to
    you my main problem very clearly.
    
    I have already the scripts that will make the desired character
    conversion for me, but I don not how to access the files in shared
    area. It will take a lot of time for me until I can write correct
    scripts with my current knowledge and I thought maybe there might be an
    easier way to do this directly in the shared area. But it seems so far
    not easier than script programming, too.
    
    Best regards,
    
    TANSU
317.6LARVAE::JORDANChris Jordan, Digital Services - Office Consultant, LondonWed Mar 25 1992 14:338
    The easy way wwould be to do a sort of:
    
    	FOR OA$SDAF DO -
    		GET #FILE = .FILENAME \\ -
    		DO yourscript
    
    BUT.... I can't find an OA$SDAF!! is there a DSAB that a FOR statement
    can use for the Shared DAF??
317.7More non-helpSHALOT::TROTTAIntellectually challengedWed Mar 25 1992 16:1726
    TANSU,

    You said in .3:

�   In my scripts I used something like that which was :
�    
�   <get #abc=oa$curdoc
�   <get oa$function='write change cab$ key=#abc,modify=oa$y'
�    
�   My knowledge in programming is only 2 weeks old. I sometimes managed it
�   with the above two lines and sometimes not.

    I only meant to supply those two script lines as a suggestion of what
    you *might* do.  It should work for you all the time, assuming
    OA$CURDOC contains the correct FOLDER/DOCNUM of the document you want
    to manipulate.  Does it?  Maybe you need to issue a CAB CURRENT before
    those two lines somewhere (again, just a suggestion; there are other
    ways).  Maybe if you post the whole script one of the very knowledgable
    people who monitor this conference (i.e., not I) could see where it's
    going wrong.

    -- Paul

    ps  You don't need the angle bracket (<) in front of your functions if
        they're in a script.
317.8scriptsBODRUM::YEGENWed Mar 25 1992 17:5120
    Maybe I might be doing wrong. But I have tested the two lines of
    scripts through the ALL-IN-1 manager account. From the EM menu I send a
    mail to the person X and  as usual the mail went into the OUTBOX
    folder. I tried the two scripts but could not edit the document
    although the result of <get oa$curdoc_modify was Y. Then I changed to
    WP and selected the OUTBOX folder and this time I could edit it. The
    changes took effect on the recepient side, too. I thought that was
    great. Is there anybody to whom I can send my 4 scripts which are
    totally ca. 40 lines long. I am sure three of them works on each case
    The first is actually a command procedure which enters into ALL-IN-1
    managers account and runs the second one which consists only from the
    statement FOR CAB$ DO DO 3RDSCRIPT after a newdir to each users account.
     The 3rd script tests the modify field of the OA$CURDOC and if it can
    edit the document runs the 4thscript which does the conversion and if
    it is not modifiable it modifies the field to Y and then runs the
    conversion script.
    
    Can somebody maybe take a look at these scripts.
    
    Thank you
317.9MAIL_STATUSSHALOT::TROTTAIntellectually challengedWed Mar 25 1992 18:497
    Without getting into long explanations...
    
    If you're going to try to edit a mail message from the EM menu, you're
    gonna have to also change the document's MAIL_STATUS from SENT.  You
    don't have to worry about this from the WP menu.
    
    -- Paul
317.10Watch out for " and ' ...HYTIDE::CREAMERKeep a low profileWed Mar 25 1992 19:2313
    
    By the way, if you don't already know, GET_TOKEN will not 'see'
    anything that is enclosed within quotes or apostrophes, so your
    scripts (if that's what you use) will need to take that fact into
    consideration.
    
    It sounds like you're making progress...  Keep us informed about 
    how things are going...
    
    Jack
317.11"Please continue supporting me"KEMER::YEGENThu Mar 26 1992 13:58140
Thank you all at least I could go one step further. I put the scripts below I am
sure one of you can interpret the result of the log file. The script which 
creates the problem is the third one. Especially, I don not know why OA$CURDOC
does not get the filename which does not let me to use the suggestion of Paul 
whilst scanning the filecabinet. ?

Best regards,

Tansu

ps: The scripts were sent to me from a person in Germany who is now on a fifteen
days holiday. He could not test these scripts and I think, written in a hurry. I
corrected some problems using the suggestion of Paul and my little knowledge.

------------------------------------------------------------------------------

$! I run this command procedure from  oa$lib
$       user_start = "k"
$       user_end = "l"
$! I run the scripts for one user who is KIPER.TARCAN
$       set process/priv=(sysprv,bypass)
$       out_file = "sys$login:chsetcvt.log"
$       CVT     :== "run oa$lib:convert"
$!convert is an EXE file for the conversion of ASC-II characters
$       define/user sys$output 'out_file'
$       allin1 /noinit /user=MANAGER /reenter
oa$ini_init
decimal i
get #user_start = cli$user_start
get #user_end = cli$user_end
get #count_ok = 0
get #count_wrong = 0
get #count_error = 0
get #nbs_start = oa$date_nbs
!the next two lines are broken into for the display purpose
for profil with .user ges #user_start and .user les #user_end and .direct nes ""
 do do oa$lib:loop_thru_fc.scp 
get #count_total = oa$sel_count
get #nbs_end = oa$date_nbs
exit
$ !
$       exit

-------------------------------------------------------------------------------
!This script is called by the previous one
!LOOP_THRU_FC.SCP
.label start
        get #user = .user
        get #direct = .direct
        .if #direct eqs "" then .goto end
        .if #user eqs oa$user then .goto end
        .text #user:31 #direct
get oa$function="newdir " #user
get #count_ok = 0
for CAB$ do do check_and_convert
.label end
        .text ""
        .exit

--------------------------------------------------------------------------------

! CHECK_AND_CONVERT.SCP
! This is the one which creats problems
.label start
get oa$display=" filename : " oa$curdoc_filename
!Take a look at the log file at the end it gets the filename
.IF OA$CURDOC_TYPE NES "MAIL" AND OA$CURDOC_TYPE NES "DOCUMENT" then .goto skip
 
!*************************************************************************
!But it does not take the symbol  OA$CURDOC  why ??????
!*************************************************************************
get oa$display = " curdoc : " OA$CURDOC

get #abc = oa$curdoc

.if OA$CURDOC_MODIFY EQS "N" then -
get oa$function='write change cab$ key=#abc,modify=oa$y'\\#RESET_MOD="Y"

.if OA$CURDOC_DSAB EQS "WPSPLUS" then -
  script chsetcvt\edit oa$curdoc_filename,,,"WPSPLUS"\GET OA$DISPLAY="CHANGE1 " 

.if OA$CURDOC_DSAB EQS "ASCII" then -
  get oa$dcl="cvt oa$lib:dsupiso5.tab" oa$curdoc_filename " "oa$curdoc_filename 

!**************************************************************************
!Do you think that the next commands handle my conversion for the attachments
!****************************************************************************
for CAB$ATTACH do -
  .if OA$CURDOC_DSAB EQS "WPSPLUS" then -
    script chsetcvt\\\\edit .value,,,"WPSPLUS"
  .if OA$CURDOC_DSAB EQS "ASCII" then -
    get oa$dcl="cvt oa$lib:dsupiso5.tab" .value " ".value

.if #RESET_MOD="Y" then get oa$function='write change cab$ key=#abc,modify=oa$n'
get #RESET_MOD="N"

.label skip_it

.label end
        .exit


------------------------------------------------------------------------------
!CHSETCVT.SCP
{GOLD ;}�{CR} {CR}{UP}
{GOLD T}
{GOLD ;}�{CR}�{CR}{UP}
{gold T}
{GOLD ;}�{CR}�{CR}{UP}
-------------------------------------------------------------------------------
!***********************************************************************
!This is the log file it produced. Please heeeeelp  
!************************************************************************

KIPER.TARCAN                   SYS$SYSDEVICE:[KIPER.A1]

%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZZVD464.WPL
%OA-I-LASTLINE,  curdoc : 
%OA-I-LASTLINE, CHANGE1 
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZZVD464.WPL
%OA-I-LASTLINE,  curdoc : 
%OA-I-LASTLINE, CHANGE1 
%OA-I-LASTLINE,  filename : [.DOC3]ZTZZVC9AX.WPL
%OA-I-LASTLINE,  curdoc : 
%OA-I-LASTLINE, CHANGE1 
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZZVC9AW.WPL
%OA-I-LASTLINE,  curdoc : 
%OA-E-OAFE, Unknown, ambiguous, or invalid function "Y"
%OA-W-INVGET, Symbol "oa$function='write change cab$ key=#abc,modify=oa$y'\#RESET_MOD="Y"" not found
%OA-I-LASTLINE, CHANGE1 
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZZVBEFP.WPL
%OA-I-LASTLINE,  curdoc : 
%OA-E-OAFE, Unknown, ambiguous, or invalid function "Y"
%OA-W-INVGET, Symbol "oa$function='write change cab$ key=#abc,modify=oa$y'\#RESET_MOD="Y"" not found
%OA-I-LASTLINE, CHANGE1 
%OA-I-LASTLINE, OK/Wrong/Error = 0/0/0
%OA-I-LASTLINE, Of total: 1
%OA-I-LASTLINE, Users from: k  to: l
%OA-I-LASTLINE, Start: 1992032615110929  End: 1992032615113202
	KIPER.TARCAN finished using ALL-IN-1 at 26-Mar-1992 03:11pm
317.12At least one thing to change:SHALOT::TROTTAIntellectually challengedThu Mar 26 1992 14:5515
    Tansu,
    
    I really haven't looked at it very long, but right off I spotted a
    missing "get".  The line:
    
 get oa$function='write change cab$ key=#abc,modify=oa$y'\\#RESET_MOD="Y"
    
    should be:
    
 get oa$function='write change cab$ key=#abc,modify=oa$y'\\get #RESET_MOD="Y"
                                                           ^^^
    I don't know if this'll fix it or not, but you definitely need that flag 
    set, and it wasn't getting set the way you had it.
    
    -- Paul
317.13Some more suggestionsSHALOT::TROTTAIntellectually challengedThu Mar 26 1992 15:2626
    Tansu,
    
    I don't think that the value of OA$CURDOC is kept while looping
    through the cabinet with a "for cab$ do".  Instead of:
    
		get #abc = oa$curdoc
    
    try:
    
    		get #abc = oa$curdoc_folder:30 oa$curdoc_docnum
    
    Also, I think you're missing backslashes in the following line:
    
script chsetcvt\\edit oa$curdoc_filename,,,"WPSPLUS"\\GET OA$DISPLAY="CHANGE1 " 
               ^                                    ^
    
    And missing spaces in the following lines:
    
get oa$dcl="cvt oa$lib:dsupiso5.tab" oa$curdoc_filename " " oa$curdoc_filename 
                                                           ^
    
get oa$dcl="cvt oa$lib:dsupiso5.tab" .value " " .value
                                               ^
    
    
    -- Paul
317.14Looping down through CAB$?SIOG::T_REDMONDThoughts of an Idle MindThu Mar 26 1992 20:389
    I am confused by the scripts.
    
    You have a loop down through CAB$ yet you use OA$CURDOC and
    OA$CURDOC_FILENAME. I can't see any CABINET SELECT statements by which
    each document in the cabinet is selected and these symbols set
    correctly.  Perhaps this is the root of the problem?
    
    Cheers, Tony
317.15"Last problem ..."BODRUM::YEGENFri Mar 27 1992 09:20212
Thank you all again and especially thank you Paul, I implemented all of your 
suggestions and everything went OK. I have run my scripts for ZAVLAK.MELTEM
who has an account on my test system. Below you will see the last modifications
of the third script and the log file it had produced. Everything is SUPER. 
But I think I have still some problem ie. I can not handle the attachments of
the documents and I think the commands which start with for CAB$ATTACH DO
does not do what I except. Can you or somebody help me ?

In summary : The problem is access to the attachments in the file cabinets of
a user which I want to edit, too.

Thank you and best regards,

Tansu YEGEN 

-----------------------------------------------------------------------------
 



! CHECK_AND_CONVERT.SCP
.label start

get oa$display=" filename : " oa$curdoc_filename

.IF OA$CURDOC_TYPE NES "MAIL" AND OA$CURDOC_TYPE NES "DOCUMENT" then .goto skip_it


get #abc = oa$curdoc_folder:30 oa$curdoc_docnum

get oa$display = " curdoca ::: " #abc
get oa$display = " before modification :: " oa$curdoc_modify
get #RESET_MOD = "N"

.if OA$CURDOC_MODIFY EQS "N" then -
get oa$function='write change cab$ key=#abc,modify=oa$y'\get #RESET_MOD = "Y"\-
get oa$display = " after modification :: " oa$curdoc_modify

.if OA$CURDOC_DSAB EQS "WPSPLUS" then -
  script chsetcvt\edit oa$curdoc_filename,,,"WPSPLUS"

.if OA$CURDOC_DSAB EQS "ASCII" then -
  get oa$dcl="cvt oa$lib:dsupiso5.tab" oa$curdoc_filename " " oa$curdoc_filename

!**********************************************************************
!I think there must be some errors in the following 5 lines HELP
!*********************************************************************
for CAB$ATTACH do -
  .if OA$CURDOC_DSAB EQS "WPSPLUS" then -
    script chsetcvt\\\\edit .value,,,"WPSPLUS"
  .if OA$CURDOC_DSAB EQS "ASCII" then -
    get oa$dcl="cvt oa$lib:dsupiso5.tab" .value " " .value

get oa$display="reset mode before exiting :" #reset_mod
.if #RESET_MOD = "Y" then get oa$function='write change cab$ key=#abc,modify=oa$n'
!get #RESET_MOD="N"
get oa$display = " before exiting :: " oa$curdoc_modify
get oa$display = " =========================================================="
.label skip_it

.label end
        .exit

------------------------------------------------------------------------------
!************************************************************************
! This the log file
!************************************************************************

ZAVLAK.MELTEM                  SYS$SYSDEVICE:[ZAVLAK.A1]


%OA-I-LASTLINE,  filename : [.DOC8]ZTZY1CV9I.WPL
%OA-I-LASTLINE,  curdoca ::: AAAAAAAAAAAAAAAAAAAAA         000018
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.DOC6]ZTZS8B7LT.WPL
%OA-I-LASTLINE,  curdoca ::: OUTBOX                        000016
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.DOC5]ZTZS81S3M.WPL
%OA-I-LASTLINE,  curdoca ::: OUTBOX                        000015
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.DOC4]ZTZS7DRWH.WPL
%OA-I-LASTLINE,  curdoca ::: OUTBOX                        000014
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.DOC3]ZTZS6H729.WPL
%OA-I-LASTLINE,  curdoca ::: OUTBOX                        000013
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZJ1C0EK.WPL
%OA-I-LASTLINE,  curdoca ::: OUTBOX                        000001
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZUBKLC6BN.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000021
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZZVBEFP.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000020
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZZB7T1R.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000019
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZUX74OY.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000017
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZJ1C0EK.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000006
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZJ19FT6.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000005
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZJ18KY0.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000004
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZJ160CM.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000003
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : OA$SHARE1:ZTZJ155HG.WPL
%OA-I-LASTLINE,  curdoca ::: READ                          000002
%OA-I-LASTLINE,  before modification :: N
%OA-I-LASTLINE,  after modification :: Y
%OA-I-LASTLINE, reset mode before exiting :Y
%OA-I-LASTLINE,  before exiting :: N
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.MSG]ZTZJ1CV9U.WPL
%OA-I-LASTLINE,  curdoca ::: WP                            000012
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.MSG]ZTZJ1CV9T.WPL
%OA-I-LASTLINE,  curdoca ::: WP                            000011
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.MSG]ZTZJ1CV9R.WPL
%OA-I-LASTLINE,  curdoca ::: WP                            000009
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.MSG]ZTZJ1CV9Q.WPL
%OA-I-LASTLINE,  curdoca ::: WP                            000008
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.MSG]ZTZJ1C0EL.WPL
%OA-I-LASTLINE,  curdoca ::: WP                            000007
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE,  filename : [.MSG]ZTZJ1CV9S.WPL
%OA-I-LASTLINE,  curdoca ::: WPO                           000010
%OA-I-LASTLINE,  before modification :: Y
%OA-I-LASTLINE, reset mode before exiting :N
%OA-I-LASTLINE,  before exiting :: Y
%OA-I-LASTLINE,  ==========================================================
%OA-I-LASTLINE, OK/Wrong/Error = 0/0/0
%OA-I-LASTLINE, Of total: 1
%OA-I-LASTLINE, Users from: z  to: zzzzzzzzzzzzzzzzzzz
%OA-I-LASTLINE, Start: 1992032711022643  End: 1992032711032784
	ZAVLAK.MELTEM finished using ALL-IN-1 at 27-Mar-1992 11:03am
317.16.DDSAB for attachmentsHYTIDE::CREAMERKeep a low profileFri Mar 27 1992 14:2230
	Tansu,

	The third line of the following FOR statement seems to be 
	missing backslashes and the continuation character.
	Also, OA$CURDOC is the document to which the attachments are
	attached, so you'll need to use the .DDSAB field to reference 
	the DSAB of the attachment.

	Hope this helps,

	Jack

> !**********************************************************************
> !I think there must be some errors in the following 5 lines HELP
> !*********************************************************************
> for CAB$ATTACH do -
>   .if OA$CURDOC_DSAB EQS "WPSPLUS" then -
>     script chsetcvt\\\\edit .value,,,"WPSPLUS"
>   .if OA$CURDOC_DSAB EQS "ASCII" then -
>     get oa$dcl="cvt oa$lib:dsupiso5.tab" .value " " .value

	Looks like it should be:

for CAB$ATTACH do -
  .if .DDSAB EQS "WPSPLUS" then -
    script chsetcvt\\\\edit .value,,,"WPSPLUS"\\-
  .if .DDSAB EQS "ASCII" then -
    get oa$dcl="cvt oa$lib:dsupiso5.tab" .value " " .value
317.17Still S.O.SBODRUM::YEGENFri Mar 27 1992 14:5819
    I tried your suggestion and replaced the previous for loop with the
    following per your instruction as follows :
    
    for CAB$ATTACH do -
       GET OA$DISPLAY = "I AM IN LOOP THAT HANDLES ATTACHMENTS"\\ -
      .if .DDSAB EQS "WPSPLUS" then -
        script chsetcvt\\\\edit .value,,,"WPSPLUS"\\-
      .if .DDSAB EQS "ASCII" then -
        get oa$dcl="cvt oa$lib:dsupiso5.tab" .value " " .value
    
    The account for which I run this script has 3 mails with attachments,
    but there was no line in the log file where it writes "I AM IN LOOP
    THAT HANDLES ATTACHMENTS". So I think I have the problem with 
    FOR CAB$ATTACH DO - . Can you still help me or am I doing something
    wrong?
    
    Best regards,
    
    Tansu
317.18Another attempt...HYTIDE::CREAMERKeep a low profileFri Mar 27 1992 18:2034
    
    Tansu,
    
    I just tried the following scripts to be sure that I was getting to the
    attachments.  If these will find the attachments, you can then
    substitute your "magic substitution" in and run them again.
    
    Keep trying,
    
    Jack
    
    !  TEST.SCP
    .LABEL START
	GET #TOT=#ASC=#WPS=0
    	DECIMAL I
    	FOR CAB$ DO -
	  CAB SELECT .%KEY:30,.%KEY:6:30 -
	\\DO TEST1
    .EXIT
    
    ! TEST1.SCP
    .LABEL START
	FOR CAB$ATTACH DO -
	  .IF .DDSAB EQS "WPSPLUS" -
	   THEN COMPUTE #WPS = #WPS + 1 -
	    \\\\COMPUTE #TOT = #TOT + 1 -
	\\.IF .DDSAB EQS "ASCII" -
	   THEN COMPUTE #ASC = #ASC + 1 -
	    \\\\COMPUTE #TOT = #TOT + 1 
	GET #TEXT = "Total = !AS,  WPS = !AS,  ASC = !AS"
	OA$FAO #TEXT,"OA$DISPLAY",#TOT,#WPS,#ASC
    .EXIT
317.19I have no more problems..BODRUM::YEGENFri Mar 27 1992 20:4414
    Jack, I immediately tried your scripts and they did what I wanted and
    put the changes into my scripts and they run, too. 
    
    I think this the end of this topic. I really do not know how can I
    thank for the prompt and effective support you given me (especially 
    Jack and Paul). You have done a great favour for me. 
    
    Lots of thanks and best regards,
    
    Tansu YEGEN