! Create A.A files in each PPn of a logical disk if not found.
!
! 6/17/85 - Created & donated by: SAN DIEGO BUSINESS RESPONSE
! 4248 Adams Ave S.D, CA 92116
! (619) 283-7326
!
! The following DO file can be used in conjunction with MAKEAA.BAS:
!! $D DSK0:
!! ; MAKEAA.DO - Uses MAKEAA.RUN to create A.A files in each PPn on a disk
!! ; for use by MUFDIT to recover lost UFDs 6/17/85 /kfj.
!! :T
!! ; (Press extra RETURN if no password on OPR: account)
!! LOG OPR:
!! :K
!! DIR =$0[]/K/W:8
!! RUN MAKEAA
!! DIRSEQ $0[]/E
!! DIR $0[]A.A
! Variables used in getting system date:
MAP1 DATE'MASK ,S,2, "##" ! Date mask
MAP1 BDATE ,B,4 ! Binary system date
MAP1 BBDATE,@BDATE ! Parts of BDATE
MAP2 MONTH ,B,1
MAP2 DAY ,B,1
MAP2 YEAR ,B,1
MAP1 DAT$ ! String date
MAP2 MONTH$ ,S,2 ! Parts of DAT$
MAP2 D'SL1 ,S,1, "/"
MAP2 DAY$ ,S,2
MAP2 D'SL2 ,S,1, D'SL1
MAP2 YEAR$ ,S,2
! ! ! ! ! ! ! ! ! !
! Get system date:
BDATE=DATE ! Get system date
MONTH$=MONTH USING DATE'MASK ! Extract month
DAY$=DAY USING DATE'MASK ! Extract day
YEAR$=YEAR USING DATE'MASK ! Extract year
?TAB(-1,0);
?"MAKEAA - Create A.A files in each PPn of logical disk if not found."
LOOKUP DIRECT'FILE,TEMP1
IF TEMP1=0 ?DIRECT'FILE" is missing." : END
OPEN #1,DIRECT'FILE,INPUT
GET'PPN:
INPUT LINE #1, INLINE : IF EOF(1) GOTO END'FILE
LEFT'BRACK=INSTR(1,INLINE,"[") ! Locate PPn
IF LEFT'BRACK=0 GOTO GET'PPN ! None on this line
RIGHT'BRACK=INSTR(LEFT'BRACK,INLINE,"]")
IF RIGHT'BRACK=0 GOTO GET'PPN
TEMP1=INSTR(1,INLINE,":") ! Locate device spec
DEVICE=INLINE[TEMP1-4,TEMP1]
LOOKUP DEVICE+"A.A"+INLINE[LEFT'BRACK,RIGHT'BRACK],TEMP1
IF TEMP1#0 GOTO GET'PPN ! Skip existing A.A
? "Working on account "DEVICE+INLINE[LEFT'BRACK,RIGHT'BRACK]
OPEN #2, DEVICE+"A.A"+INLINE[LEFT'BRACK,RIGHT'BRACK], OUTPUT
?#2 "; "INLINE[LEFT'BRACK,RIGHT'BRACK]" created "DAT$
?#2 "; Every account should have an A.A file to recover UFDs using MUFDIT."
?#2 "; If MFD is ever damaged, UFD blocks will be identified by A.A files."
CLOSE #2
GOTO GET'PPN
