DB로부터 날짜 추출 프로그램 - DeciamalBASIC

DIM admNu(60), admName$(60), admTag$(60), admDate$(60), admDay$(60), dbNu(60), dbName$(60), dbTag$(60), dbDATE$(60), dbDay$(60)

OPEN #1: NAME "C:\ghc\adm.csv", ACCESS INPUT

LET i = 1

DO

INPUT #1, IF MISSING THEN EXIT DO: admNu(i), admName$(i), admTag$(i), admDate$(i)

LET i = i + 1

LOOP

CLOSE #1

OPEN #1: NAME "C:\ghc\ptDB.csv", ACCESS INPUT, RECTYPE INTERNAL

LET j = 1

DO

READ #1, IF MISSING THEN EXIT DO: dbNu(j), dbName$(j), dbTag$(j), dbDATE$(j), dbDay$(j)

LET j = j + 1

LOOP

CLOSE #1

FOR m = 1 TO i

FOR n = 1 TO j

IF admNu(m) = dbNu(n) THEN

LET admDay$(m) = dbDay$(n)

END IF

NEXT n

NEXT m

OPEN #1: NAME "C:\ghc\admDATA.csv", ACCESS OUTPUT, RECTYPE INTERNAL

FOR k = 1 TO i

WRITE #1: admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k)

NEXT k

CLOSE #1

END

!------------------------------------------------------------

!OPEN #1: NAME "C:\ghc\admDATA.csv", ACCESS OUTPUT, RECTYPE INTERNAL

!FOR k = 1 TO i

! WRITE #1: admNu(k), admName$(k), admTag$(k), admDate$(k), admDay$(k)

!NEXT k

!CLOSE #1

!----------첫 줄에서 ACCESS OUTPUT은 기입하지 않아도 되는 듯... 이것이 없는 샘플코드가 꽤 있음. 공식 메뉴얼과에서는 ACCESS OUTPUT만으로도 csv 형식으로 write되는 것처럼 설명하고 있으나, csv 형식으로 되지는 않았으며(multi-SPACE로 나뉘어짐), RECTYPE INTERNAL을 기입함으로서 csv 형식으로 기입됨.