Yet another chit chat.

September 27, 2013

After installing Cobol on the Nslu2 running Debian, still had to load some libraries after and update to Debian. A learning experience.

One of the test programs I played with to relearn cobol. Cobol is so self documenting.

~$ ./readtest
6543218 Mend ed 1234 1957
1234567 Corona ra 5555 1958
:~$ cat STUDENTS.DAT
6543218Mend ed 195707141234m
1234567Corona ra195806135555f
~$

~$ cat readtest.cob
IDENTIFICATION DIVISION.
PROGRAM-ID.  SeqReadNo88.
AUTHOR.  Michael Coughlan.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT StudentFile ASSIGN TO "STUDENTS.DAT"
  ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD StudentFile.
01 StudentDetails.
   02  StudentId       PIC 9(7).
   02  StudentName.
       03 Surname      PIC X(8).
       03 Initials     PIC XX.
   02  DateOfBirth.
       03 YOBirth      PIC 9(4).
       03 MOBirth      PIC 9(2).
       03 DOBirth      PIC 9(2).
   02  CourseCode      PIC X(4).
   02  Gender          PIC X.

PROCEDURE DIVISION.
Begin.
   OPEN INPUT StudentFile
   READ StudentFile
      AT END MOVE HIGH-VALUES TO StudentDetails
   END-READ
   PERFORM UNTIL StudentDetails = HIGH-VALUES
      DISPLAY StudentId SPACE StudentName SPACE CourseCode SPACE YOBirth
      READ StudentFile
         AT END MOVE HIGH-VALUES TO StudentDetails
      END-READ
   END-PERFORM
   CLOSE StudentFile
   STOP RUN.

-----------------------------------------

Got some write ups on various sites,;

Hackaday.

http://hackaday.com/2011/01/26/stepper-directed-hdtv-antenna/

Freetronics.

http://www.freetronics.com/blogs/news/8495111-using-android-tablets-as-arduino-interfaces

Electronics-lab

http://www.electronics-lab.com/blog/?p=10978

Airy08.com

http://airy08.com/id/Crossword-or-Scrabble-helper/

ocotewa01

http://ocotewa01.blogspot.com/2011/05/home-made-cannoli-forms.html