source: IHS-VA_UTILITIES-XB/trunk/XBCDICD.m@ 1745

Last change on this file since 1745 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 831 bytes
RevLine 
[641]1XBCDICD ; 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 ;
6START ;
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 ;
13ERRORS ; 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)
17ACTR ;
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.