[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

2775.0. "Modify create/modified dates in CAB$ and DOCDB" by ANGLIN::HARRISA (user vicious) Fri May 28 1993 16:58

    ALL-IN-1 2.4, VMS 5.5-2
    
    hi again....
    
    i need to change the modified,created dates on quite a few messages for
    some users.  i have some scripts here that i'm testing on my account
    and am running into a small problem...
    
    the folder name (wastebasket) is being put into the modified date
    field. when this runs "for real" #new_date will be obtained from
    cab$.delivered[oa$curmes] (in the form of mm/dd/yy)
    
    the write change lines all work fine if i call them interactivly, one
    at a time.
    
    thanks - ann
    ______________________________________________________________________
    script 1	change_date1_test
    
    get #user = oa$user
    get #cur_dir = profil.direct[#user]
    !
    for profil with .user eqs "harris, ann" do -
            .if .direct NES " " then get oa$function = "NEWDIR " .user \\ -
            do appl$disk:[allin1]CHANGE_DATE2_TEST.SCP \\ -
            get #cur_dir = #dir
    
    get oa$display = "Processing... " profil.user[oa$user] \force
    
    get oa$function = "NEWDIR " #user
    
    ___________________________________________________________
    
    script 2  	change_date2_test
    
    for cab$ with .created = "21-may-1993" and .folder eqs "wastebasket" do -
            get #new_date="04-may-1993 08:52am" \\ -
            get #doc=cab$.folder:30[oa$curmes] cab$.docnum[oa$curmes] \\ -
            get #ff=cab$.folder:30[#doc] cab$.fixer[#doc] \\ -
     do appl$disk:[allin1]change_date3_test.scp
    .exit
    _____________________________________________________________
    
    script 3 	change_date3_test
    
    date_convert #new_date_nbs,#new_date,7
    date_convert #new_date_moddat,#new_date,1
            write change docdb %key=#ff,modified=#new_date 
            write change docdb %key=#ff,created=#new_date 
            write change docdb %key=#ff,moddat=#new_date_moddat  	
            write change cab$ %key=#doc,modified_nbs=#new_date_nbs
    get #doc = #ff = ""

T.R	Title	User	Personal Name	Date	Lines
2775.1	MAIL INIT there somewhere?	IOSG::VOWLES	Raphael VOWLES DTN 830 4162 REO2 G/M2	`Tue Jun 01 1993 14:03`	4
	Hi, Do you have MAIL INIT as your first line somewhere. This always messes me up when comparing interactive to doing it in a script. Just a thought.. tta rv Tuesday 1-JUN-1993 13:02
2775.2		ANGLIN::HARRISA	user vicious	`Tue Jun 01 1993 16:38`	5
	no - i don't have MAIL INIT. i'll add it and give my sripts another try. Thanks - ann
2775.3	going for the loop	ANGLIN::HARRISA	user vicious	`Tue Jun 08 1993 23:06`	8
	ok, i've added MAIL INIT as the 1st line of script 2, but the procedure isn't looping thru the file cabinet. i've found that if i have a message in the curent item box, then that 1 alone is processed. maybe its a backslash problem? ann
2775.4	Try a BIND, perhaps?	IOSG::SHOVE	Dave Shove -- REO2-G/M6	`Wed Jun 09 1993 16:44`	12
	This might be something to do with the fact that you're changing the value of one of the fields (.CREATED) which is in your RSE. ALL-IN-1 does get upset when you change things "under its feet" in cases like this. It might work better if you changed the FOR to a BIND, thus: BINDW FRED to CAB$ WITH ... FOR FRED DO ... Dave.