fstdoubl.cbl

IDENTIFICATION DIVISION.

PROGRAM-ID. DOUBLE.

DATA DIVISION.

FILE SECTION.

WORKING-STORAGE SECTION.

01 INPUT-AREA.

05 INPUT-NUM PIC 99.

01 WORK-AREAS.

05 DOUBLE-NUM PIC 999.

01 USER-RESPONSE.

05 ANS-WS PIC X.

PROCEDURE DIVISION.

PROCESS.

DISPLAY "ENTER INPUT NUMBER".

ACCEPT INPUT-NUM.

PERFORM UNTIL INPUT-NUM = 99

COMPUTE DOUBLE-NUM = INPUT-NUM * 2

DISPLAY INPUT-NUM " " DOUBLE-NUM

ACCEPT ANS-WS

DISPLAY "ENTER INPUT NUMBER"

ACCEPT INPUT-NUM

END-PERFORM.

STOP RUN.

fstdblfl.cbl

IDENTIFICATION DIVISION.

PROGRAM-ID. DOUBLE.

ENVIRONMENT DIVISION.

SELECT NUMBER-FILE

ASSIGN TO "E:\CIS17\COBOL\DOUBLE.TXT".

DATA DIVISION.

FILE SECTION.

FD NUMBER-FILE

DATA RECORD IS NUMBER-RECORD.

01 NUMBER-RECORD.

05 INPUT-NUM PIC 99.

WORKING-STORAGE SECTION.

01 WORK-AREAS.

05 DOUBLE-NUM PIC 999.

01 EOF-CHECK-AREA.

05 EOF-IND PIC X VALUE "N".

01 USER-RESPONSE.

05 ANS-WS PIC X.

PROCEDURE DIVISION.

PROCESS.

OPEN INPUT NUMBER-FILE.

READ NUMBER-FILE

AT END

MOVE "Y" TO EOF-IND.

PERFORM UNTIL EOF-IND = "Y"

COMPUTE DOUBLE-NUM = INPUT-NUM * 2

DISPLAY INPUT-NUM " " DOUBLE-NUM

ACCEPT ANS-WS

READ NUMBER-FILE

AT END

MOVE "Y" TO EOF-IND

END-READ

END-PERFORM.

STOP RUN.

frmDblUseLoop.frm

Option Explicit

Dim wkDoubleNum As Integer

Private Sub cmdDoubleFile_Click()

wkDoubleNum = txtInputNum.Text * 2

picDoubleNum.Print "#: "; txtInputNum.Text; " Double: "; wkDoubleNum

End Sub

Private Sub cmdEnd_Click()

End

End Sub

frmDoubleLoop.frm

Option Explicit

Dim wkDoubleNum As Integer

Dim wkInputNum As Integer

Private Sub cmdDoubleFile_Click()

Do While Not EOF(1)

Input #1, wkInputNum

wkDoubleNum = wkInputNum * 2

picDoubleNum.Print "#: "; wkInputNum; "Double: "; wkDoubleNum

Loop

MsgBox "Processing Complete"

Close #1

End

End Sub

Private Sub Form_Load()

Open App.Path & "\doublevb.txt" For Input As #1

End Sub