Re: [SYS21] Re: [SYS21] Company Deletion

This has potential to be disasterous if the job fails for some reason.  The
GL Archiving routines in V2 used a similar approach, and I know of one
instance where a company "lost" their GL data as it had copied the live
file to QTEMP, cleared the live file and then crashed.  As this was a batch
job, the contents of QTEMP are lost forever, including the live data!!!  Be
extremely careful.

Regards

Geoff Boreland
Information Technology Manager
Thorn Australia Pty Ltd

(02) 9423 3230




                      Gary.Brown@appliedch
                      emicals.com                 To:       
jbausers-l@midrange.com
                      Sent by:                    cc:
                      jbausers-l-admin@mid        Subject:  [SYS21]   Re: 
[SYS21] Company Deletion
                      range.com


                      10/10/2002 09:19
                      Please respond to
                      jbausers-l








I have found the best way to 'getting rid of' a company is to write a CL as
follows.

Create a disc file of all files in the libruary using DSPOBJD

Use the RCVF command to read a record from this file, if the object
attribute =
PF then

Use the CPYF command to copy all records from the file to a tempory file
but
exclude the company you are wanting to delete (using the IF function on the
CPYF
command)

CLRPFM the file

Copy the temp file back to live file using CPYF

Loop back and read the next record.

Email me off list if you would like a copy of the CL.

Regards,
Gary.


_______________________________________________
This is the GEAC/JBA System 21 Users (JBAUSERS-L) mailing list
To post a message email: JBAUSERS-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/jbausers-l
or email: JBAUSERS-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/jbausers-l.







--------------------------------------------------------------------------------------------------------------------
*******************Confidentiality and Privilege Notice*******************

This email is intended only to be read or used by the addressee. It is
confidential and may contain legally privileged information. If you are not the
addressee indicated in this message (or responsible for delivery of the message
to such person), you may not copy or deliver this message to anyone, and you
should destroy this message and kindly notify the sender by reply email.
Confidentiality and legal privilege are not waived or lost by reason of mistaken
delivery to you.

Thorn Australia Pty Ltd has implemented anti-virus software and whilst all care
is taken, it is the recipients responsibility to ensure that any attachments are
scanned for viruses prior to use.