|
Last change
on this file since 641 was 641, checked in by Sam Habiel, 14 years ago |
|
Initial commit of XB, move away from sf.net.
Includes kids file and documentation.
|
|
File size:
831 bytes
|
| Line | |
|---|
| 1 | XBCDICD ; IHS/ADC/GTH - DELETE BAD FILES ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; Part of XBCDIC
|
|---|
| 5 | ;
|
|---|
| 6 | START ;
|
|---|
| 7 | S XBCDDEL=0,XBCDFILE=""
|
|---|
| 8 | F XBCDL=0:0 S XBCDFILE=$O(^UTILITY("XBDSET",$J,XBCDFILE)) Q:XBCDFILE="" S XBCDGOOD=1 D:$D(^(XBCDFILE,"ERR"))\10 ERRORS K:XBCDGOOD ^UTILITY("XBDSET",$J,XBCDFILE)
|
|---|
| 9 | I XBCDDEL W !!,"Executing ^XBKD to delete specified files!" D EN2^XBKD
|
|---|
| 10 | KILL XBCDDEL,XBCDFILE,XBCDGOOD,XBCDX,XBCDNDIC
|
|---|
| 11 | Q
|
|---|
| 12 | ;
|
|---|
| 13 | ERRORS ; RESOLVE ERRORS SET BY ^XBCDIC2 OR ^XBCDIC3
|
|---|
| 14 | W !
|
|---|
| 15 | S XBCDX=""
|
|---|
| 16 | F XBCDL=0:0 S XBCDX=$O(^UTILITY("XBDSET",$J,XBCDFILE,"ERR",XBCDX)) Q:XBCDX="" W !,^(XBCDX)
|
|---|
| 17 | ACTR ;
|
|---|
| 18 | R !!," Delete file? (Y/N) ",XBCDX:$G(DTIME,999)
|
|---|
| 19 | I XBCDX'="Y"&(XBCDX'="N") W *7," ??" G ACTR
|
|---|
| 20 | S:XBCDX="Y" XBCDDEL=1,XBCDGOOD=0,^UTILITY("XBDSET",$J,XBCDFILE)="A^A"
|
|---|
| 21 | KILL ^UTILITY("XBDSET",$J,XBCDFILE,"ERR")
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
