Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. The Lounge
  3. Oy! Griff!

Oy! Griff!

Scheduled Pinned Locked Moved The Lounge
workspace
32 Posts 15 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • N Nagy Vilmos

    You said Tuesday was good for COBOL:

    000010 IDENTIFICATION DIVISION.
    000020 PROGRAM-ID. SLEEVE.
    000030 AUTHOR. NAGY VILMOS.
    000040 DATE-WRITTEN. 2014-03-25
    000050 ENVIRONMENT DIVISION.
    000060 INPUT-OUTPUT SECTION.
    000070 FILE-CONTROL.
    000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
    000090 ORGANIZATION IS LINE SEQUENTIAL.
    000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
    000110 ORGANIZATION IS LINE SEQUENTIAL.
    000120
    000130 DATA DIVISION.
    000140 FILE SECTION.
    000150 FD GRIFF-FILE
    000160 RECORD CONTAINS 80 CHARACTERS
    000170 DATA RECORD IS GRIFF-IN.
    000180 01 GRIFF-IN
    000181 05 SOURCE PIC X(11).
    000182 05 FILLER PIC X(69).
    000190
    000200 FD VILMOS-FILE
    000210 RECORD CONTAINS 80 CHARACTERS
    000220 DATA RECORD IS VILMOS-OUT.
    000230 01 VILMOS-OUT PIC X(80).
    000240
    000250 WORKING-STORAGE SECTION.
    000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
    000261 01 RECORDS-WRITTEN PIC 99.
    000270
    000320 PROCEDURE DIVISION.
    000321
    000330 TRANSFER-LAPTOP-SLEEVE.
    000340 OPEN INPUT GRIFF-FILE
    000350 OUTPUT VILMOS-FILE.
    000351 MOVE ZERO TO RECORDS-WRITTEN.
    000360 READ GRIFF-FILE
    000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
    000380 END-READ.
    000390 PERFORM TRANSFER-LAPTOP-SLEEVE
    000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
    000420 CLOSE GRIFF-FILE
    000430 VILMOS-FILE.
    000440 STOP RUN.
    000450
    000460 TRANSFER-LAPTOP-SLEEVE.
    000470 MOVE GRIFF-IN TO VILMOS-OUT.
    000480 IF SOURCE = 'CODEPROJECT'
    000490 WRITE VILMOS-OUT.
    000500 READ GRIFF-FILE
    000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
    000520 END-READ.

    OriginalGriffO Offline
    OriginalGriffO Offline
    OriginalGriff
    wrote on last edited by
    #2

    Tomorrow should be interesting : "Nxgy Vilmos" anyone? :laugh:

    Those who fail to learn history are doomed to repeat it. --- George Santayana (December 16, 1863 – September 26, 1952) Those who fail to clear history are doomed to explain it. --- OriginalGriff (February 24, 1959 – ∞)

    "I have no idea what I did, but I'm taking full credit for it." - ThisOldTony
    "Common sense is so rare these days, it should be classified as a super power" - Random T-shirt

    1 Reply Last reply
    0
    • N Nagy Vilmos

      You said Tuesday was good for COBOL:

      000010 IDENTIFICATION DIVISION.
      000020 PROGRAM-ID. SLEEVE.
      000030 AUTHOR. NAGY VILMOS.
      000040 DATE-WRITTEN. 2014-03-25
      000050 ENVIRONMENT DIVISION.
      000060 INPUT-OUTPUT SECTION.
      000070 FILE-CONTROL.
      000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
      000090 ORGANIZATION IS LINE SEQUENTIAL.
      000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
      000110 ORGANIZATION IS LINE SEQUENTIAL.
      000120
      000130 DATA DIVISION.
      000140 FILE SECTION.
      000150 FD GRIFF-FILE
      000160 RECORD CONTAINS 80 CHARACTERS
      000170 DATA RECORD IS GRIFF-IN.
      000180 01 GRIFF-IN
      000181 05 SOURCE PIC X(11).
      000182 05 FILLER PIC X(69).
      000190
      000200 FD VILMOS-FILE
      000210 RECORD CONTAINS 80 CHARACTERS
      000220 DATA RECORD IS VILMOS-OUT.
      000230 01 VILMOS-OUT PIC X(80).
      000240
      000250 WORKING-STORAGE SECTION.
      000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
      000261 01 RECORDS-WRITTEN PIC 99.
      000270
      000320 PROCEDURE DIVISION.
      000321
      000330 TRANSFER-LAPTOP-SLEEVE.
      000340 OPEN INPUT GRIFF-FILE
      000350 OUTPUT VILMOS-FILE.
      000351 MOVE ZERO TO RECORDS-WRITTEN.
      000360 READ GRIFF-FILE
      000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
      000380 END-READ.
      000390 PERFORM TRANSFER-LAPTOP-SLEEVE
      000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
      000420 CLOSE GRIFF-FILE
      000430 VILMOS-FILE.
      000440 STOP RUN.
      000450
      000460 TRANSFER-LAPTOP-SLEEVE.
      000470 MOVE GRIFF-IN TO VILMOS-OUT.
      000480 IF SOURCE = 'CODEPROJECT'
      000490 WRITE VILMOS-OUT.
      000500 READ GRIFF-FILE
      000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
      000520 END-READ.

      R Offline
      R Offline
      Rage
      wrote on last edited by
      #3

      :omg: :cool: Definitely the coolest thing I've seen in a long time.

      ~RaGE();

      I think words like 'destiny' are a way of trying to find order where none exists. - Christian Graus Entropy isn't what it used to.

      N 1 Reply Last reply
      0
      • N Nagy Vilmos

        You said Tuesday was good for COBOL:

        000010 IDENTIFICATION DIVISION.
        000020 PROGRAM-ID. SLEEVE.
        000030 AUTHOR. NAGY VILMOS.
        000040 DATE-WRITTEN. 2014-03-25
        000050 ENVIRONMENT DIVISION.
        000060 INPUT-OUTPUT SECTION.
        000070 FILE-CONTROL.
        000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
        000090 ORGANIZATION IS LINE SEQUENTIAL.
        000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
        000110 ORGANIZATION IS LINE SEQUENTIAL.
        000120
        000130 DATA DIVISION.
        000140 FILE SECTION.
        000150 FD GRIFF-FILE
        000160 RECORD CONTAINS 80 CHARACTERS
        000170 DATA RECORD IS GRIFF-IN.
        000180 01 GRIFF-IN
        000181 05 SOURCE PIC X(11).
        000182 05 FILLER PIC X(69).
        000190
        000200 FD VILMOS-FILE
        000210 RECORD CONTAINS 80 CHARACTERS
        000220 DATA RECORD IS VILMOS-OUT.
        000230 01 VILMOS-OUT PIC X(80).
        000240
        000250 WORKING-STORAGE SECTION.
        000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
        000261 01 RECORDS-WRITTEN PIC 99.
        000270
        000320 PROCEDURE DIVISION.
        000321
        000330 TRANSFER-LAPTOP-SLEEVE.
        000340 OPEN INPUT GRIFF-FILE
        000350 OUTPUT VILMOS-FILE.
        000351 MOVE ZERO TO RECORDS-WRITTEN.
        000360 READ GRIFF-FILE
        000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
        000380 END-READ.
        000390 PERFORM TRANSFER-LAPTOP-SLEEVE
        000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
        000420 CLOSE GRIFF-FILE
        000430 VILMOS-FILE.
        000440 STOP RUN.
        000450
        000460 TRANSFER-LAPTOP-SLEEVE.
        000470 MOVE GRIFF-IN TO VILMOS-OUT.
        000480 IF SOURCE = 'CODEPROJECT'
        000490 WRITE VILMOS-OUT.
        000500 READ GRIFF-FILE
        000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
        000520 END-READ.

        J Offline
        J Offline
        Johnny J
        wrote on last edited by
        #4

        No programming questions in the Lounge!!!!! :mad:

        Anything that is unrelated to elephants is irrelephant
        Anonymous
        -----
        The problem with quotes on the internet is that you can never tell if they're genuine
        Winston Churchill, 1944
        -----
        I'd just like a chance to prove that money can't make me happy.
        Me, all the time

        1 Reply Last reply
        0
        • N Nagy Vilmos

          You said Tuesday was good for COBOL:

          000010 IDENTIFICATION DIVISION.
          000020 PROGRAM-ID. SLEEVE.
          000030 AUTHOR. NAGY VILMOS.
          000040 DATE-WRITTEN. 2014-03-25
          000050 ENVIRONMENT DIVISION.
          000060 INPUT-OUTPUT SECTION.
          000070 FILE-CONTROL.
          000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
          000090 ORGANIZATION IS LINE SEQUENTIAL.
          000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
          000110 ORGANIZATION IS LINE SEQUENTIAL.
          000120
          000130 DATA DIVISION.
          000140 FILE SECTION.
          000150 FD GRIFF-FILE
          000160 RECORD CONTAINS 80 CHARACTERS
          000170 DATA RECORD IS GRIFF-IN.
          000180 01 GRIFF-IN
          000181 05 SOURCE PIC X(11).
          000182 05 FILLER PIC X(69).
          000190
          000200 FD VILMOS-FILE
          000210 RECORD CONTAINS 80 CHARACTERS
          000220 DATA RECORD IS VILMOS-OUT.
          000230 01 VILMOS-OUT PIC X(80).
          000240
          000250 WORKING-STORAGE SECTION.
          000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
          000261 01 RECORDS-WRITTEN PIC 99.
          000270
          000320 PROCEDURE DIVISION.
          000321
          000330 TRANSFER-LAPTOP-SLEEVE.
          000340 OPEN INPUT GRIFF-FILE
          000350 OUTPUT VILMOS-FILE.
          000351 MOVE ZERO TO RECORDS-WRITTEN.
          000360 READ GRIFF-FILE
          000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
          000380 END-READ.
          000390 PERFORM TRANSFER-LAPTOP-SLEEVE
          000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
          000420 CLOSE GRIFF-FILE
          000430 VILMOS-FILE.
          000440 STOP RUN.
          000450
          000460 TRANSFER-LAPTOP-SLEEVE.
          000470 MOVE GRIFF-IN TO VILMOS-OUT.
          000480 IF SOURCE = 'CODEPROJECT'
          000490 WRITE VILMOS-OUT.
          000500 READ GRIFF-FILE
          000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
          000520 END-READ.

          C Offline
          C Offline
          Chris Maunder
          wrote on last edited by
          #5

          You know you could do that in one line of Lisp...

          cheers Chris Maunder

          OriginalGriffO N 2 Replies Last reply
          0
          • R Rage

            :omg: :cool: Definitely the coolest thing I've seen in a long time.

            ~RaGE();

            I think words like 'destiny' are a way of trying to find order where none exists. - Christian Graus Entropy isn't what it used to.

            N Offline
            N Offline
            Nagy Vilmos
            wrote on last edited by
            #6

            I'd forgotten why I moved away from COBOL, now I remember. X|

            R J 2 Replies Last reply
            0
            • N Nagy Vilmos

              I'd forgotten why I moved away from COBOL, now I remember. X|

              R Offline
              R Offline
              Rage
              wrote on last edited by
              #7

              YOu've actually forgotten because you decided that 30 years ago.

              ~RaGE();

              I think words like 'destiny' are a way of trying to find order where none exists. - Christian Graus Entropy isn't what it used to.

              1 Reply Last reply
              0
              • C Chris Maunder

                You know you could do that in one line of Lisp...

                cheers Chris Maunder

                OriginalGriffO Offline
                OriginalGriffO Offline
                OriginalGriff
                wrote on last edited by
                #8

                Tho thweet! Thounds like you thould thow us!

                Those who fail to learn history are doomed to repeat it. --- George Santayana (December 16, 1863 – September 26, 1952) Those who fail to clear history are doomed to explain it. --- OriginalGriff (February 24, 1959 – ∞)

                "I have no idea what I did, but I'm taking full credit for it." - ThisOldTony
                "Common sense is so rare these days, it should be classified as a super power" - Random T-shirt

                1 Reply Last reply
                0
                • C Chris Maunder

                  You know you could do that in one line of Lisp...

                  cheers Chris Maunder

                  N Offline
                  N Offline
                  Nagy Vilmos
                  wrote on last edited by
                  #9

                  Mandatory XKCD[^] link.

                  1 Reply Last reply
                  0
                  • N Nagy Vilmos

                    You said Tuesday was good for COBOL:

                    000010 IDENTIFICATION DIVISION.
                    000020 PROGRAM-ID. SLEEVE.
                    000030 AUTHOR. NAGY VILMOS.
                    000040 DATE-WRITTEN. 2014-03-25
                    000050 ENVIRONMENT DIVISION.
                    000060 INPUT-OUTPUT SECTION.
                    000070 FILE-CONTROL.
                    000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
                    000090 ORGANIZATION IS LINE SEQUENTIAL.
                    000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
                    000110 ORGANIZATION IS LINE SEQUENTIAL.
                    000120
                    000130 DATA DIVISION.
                    000140 FILE SECTION.
                    000150 FD GRIFF-FILE
                    000160 RECORD CONTAINS 80 CHARACTERS
                    000170 DATA RECORD IS GRIFF-IN.
                    000180 01 GRIFF-IN
                    000181 05 SOURCE PIC X(11).
                    000182 05 FILLER PIC X(69).
                    000190
                    000200 FD VILMOS-FILE
                    000210 RECORD CONTAINS 80 CHARACTERS
                    000220 DATA RECORD IS VILMOS-OUT.
                    000230 01 VILMOS-OUT PIC X(80).
                    000240
                    000250 WORKING-STORAGE SECTION.
                    000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
                    000261 01 RECORDS-WRITTEN PIC 99.
                    000270
                    000320 PROCEDURE DIVISION.
                    000321
                    000330 TRANSFER-LAPTOP-SLEEVE.
                    000340 OPEN INPUT GRIFF-FILE
                    000350 OUTPUT VILMOS-FILE.
                    000351 MOVE ZERO TO RECORDS-WRITTEN.
                    000360 READ GRIFF-FILE
                    000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                    000380 END-READ.
                    000390 PERFORM TRANSFER-LAPTOP-SLEEVE
                    000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
                    000420 CLOSE GRIFF-FILE
                    000430 VILMOS-FILE.
                    000440 STOP RUN.
                    000450
                    000460 TRANSFER-LAPTOP-SLEEVE.
                    000470 MOVE GRIFF-IN TO VILMOS-OUT.
                    000480 IF SOURCE = 'CODEPROJECT'
                    000490 WRITE VILMOS-OUT.
                    000500 READ GRIFF-FILE
                    000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                    000520 END-READ.

                    D Offline
                    D Offline
                    DeathByChocolate
                    wrote on last edited by
                    #10

                    Oh drat! .... that's my laptop cover gone! :mad: ... unless I can come up with an even better post to persuade Griff that I deserve it the most ... This is for you Griff!!![^]:rose::rose::rose: :-D

                    "State acheived after eating too many chocolate-covered coconut bars - bountiful" Chris C-B

                    Mike HankeyM N 2 Replies Last reply
                    0
                    • N Nagy Vilmos

                      I'd forgotten why I moved away from COBOL, now I remember. X|

                      J Offline
                      J Offline
                      Jorgen Andersson
                      wrote on last edited by
                      #11

                      You have moved up in the world now. :-D

                      Wrong is evil and must be defeated. - Jeff Ello[^]

                      N 1 Reply Last reply
                      0
                      • J Jorgen Andersson

                        You have moved up in the world now. :-D

                        Wrong is evil and must be defeated. - Jeff Ello[^]

                        N Offline
                        N Offline
                        Nagy Vilmos
                        wrote on last edited by
                        #12

                        In the balance, I'd lean towards COBOL over VB6 just for the novelty value.

                        J R 2 Replies Last reply
                        0
                        • D DeathByChocolate

                          Oh drat! .... that's my laptop cover gone! :mad: ... unless I can come up with an even better post to persuade Griff that I deserve it the most ... This is for you Griff!!![^]:rose::rose::rose: :-D

                          "State acheived after eating too many chocolate-covered coconut bars - bountiful" Chris C-B

                          Mike HankeyM Offline
                          Mike HankeyM Offline
                          Mike Hankey
                          wrote on last edited by
                          #13

                          Too funny! You must really want that sleeve?

                          Along with Antimatter and Dark Matter they've discovered the existence of Doesn't Matter which appears to have no effect on the universe whatsoever! Rich Tennant 5th Wave

                          D 1 Reply Last reply
                          0
                          • N Nagy Vilmos

                            You said Tuesday was good for COBOL:

                            000010 IDENTIFICATION DIVISION.
                            000020 PROGRAM-ID. SLEEVE.
                            000030 AUTHOR. NAGY VILMOS.
                            000040 DATE-WRITTEN. 2014-03-25
                            000050 ENVIRONMENT DIVISION.
                            000060 INPUT-OUTPUT SECTION.
                            000070 FILE-CONTROL.
                            000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
                            000090 ORGANIZATION IS LINE SEQUENTIAL.
                            000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
                            000110 ORGANIZATION IS LINE SEQUENTIAL.
                            000120
                            000130 DATA DIVISION.
                            000140 FILE SECTION.
                            000150 FD GRIFF-FILE
                            000160 RECORD CONTAINS 80 CHARACTERS
                            000170 DATA RECORD IS GRIFF-IN.
                            000180 01 GRIFF-IN
                            000181 05 SOURCE PIC X(11).
                            000182 05 FILLER PIC X(69).
                            000190
                            000200 FD VILMOS-FILE
                            000210 RECORD CONTAINS 80 CHARACTERS
                            000220 DATA RECORD IS VILMOS-OUT.
                            000230 01 VILMOS-OUT PIC X(80).
                            000240
                            000250 WORKING-STORAGE SECTION.
                            000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
                            000261 01 RECORDS-WRITTEN PIC 99.
                            000270
                            000320 PROCEDURE DIVISION.
                            000321
                            000330 TRANSFER-LAPTOP-SLEEVE.
                            000340 OPEN INPUT GRIFF-FILE
                            000350 OUTPUT VILMOS-FILE.
                            000351 MOVE ZERO TO RECORDS-WRITTEN.
                            000360 READ GRIFF-FILE
                            000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                            000380 END-READ.
                            000390 PERFORM TRANSFER-LAPTOP-SLEEVE
                            000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
                            000420 CLOSE GRIFF-FILE
                            000430 VILMOS-FILE.
                            000440 STOP RUN.
                            000450
                            000460 TRANSFER-LAPTOP-SLEEVE.
                            000470 MOVE GRIFF-IN TO VILMOS-OUT.
                            000480 IF SOURCE = 'CODEPROJECT'
                            000490 WRITE VILMOS-OUT.
                            000500 READ GRIFF-FILE
                            000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                            000520 END-READ.

                            N Offline
                            N Offline
                            Nueman
                            wrote on last edited by
                            #14

                            You forgot to put NSFW in the subject line.

                            What we got here is a failure to communicate

                            1 Reply Last reply
                            0
                            • N Nagy Vilmos

                              In the balance, I'd lean towards COBOL over VB6 just for the novelty value.

                              J Offline
                              J Offline
                              Jorgen Andersson
                              wrote on last edited by
                              #15

                              And you're also moving away from VB6, just not as far as you'd want to.

                              Wrong is evil and must be defeated. - Jeff Ello[^]

                              N 1 Reply Last reply
                              0
                              • D DeathByChocolate

                                Oh drat! .... that's my laptop cover gone! :mad: ... unless I can come up with an even better post to persuade Griff that I deserve it the most ... This is for you Griff!!![^]:rose::rose::rose: :-D

                                "State acheived after eating too many chocolate-covered coconut bars - bountiful" Chris C-B

                                N Offline
                                N Offline
                                Nagy Vilmos
                                wrote on last edited by
                                #16

                                I'll see you and raise you![^]

                                D 1 Reply Last reply
                                0
                                • N Nagy Vilmos

                                  You said Tuesday was good for COBOL:

                                  000010 IDENTIFICATION DIVISION.
                                  000020 PROGRAM-ID. SLEEVE.
                                  000030 AUTHOR. NAGY VILMOS.
                                  000040 DATE-WRITTEN. 2014-03-25
                                  000050 ENVIRONMENT DIVISION.
                                  000060 INPUT-OUTPUT SECTION.
                                  000070 FILE-CONTROL.
                                  000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
                                  000090 ORGANIZATION IS LINE SEQUENTIAL.
                                  000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
                                  000110 ORGANIZATION IS LINE SEQUENTIAL.
                                  000120
                                  000130 DATA DIVISION.
                                  000140 FILE SECTION.
                                  000150 FD GRIFF-FILE
                                  000160 RECORD CONTAINS 80 CHARACTERS
                                  000170 DATA RECORD IS GRIFF-IN.
                                  000180 01 GRIFF-IN
                                  000181 05 SOURCE PIC X(11).
                                  000182 05 FILLER PIC X(69).
                                  000190
                                  000200 FD VILMOS-FILE
                                  000210 RECORD CONTAINS 80 CHARACTERS
                                  000220 DATA RECORD IS VILMOS-OUT.
                                  000230 01 VILMOS-OUT PIC X(80).
                                  000240
                                  000250 WORKING-STORAGE SECTION.
                                  000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
                                  000261 01 RECORDS-WRITTEN PIC 99.
                                  000270
                                  000320 PROCEDURE DIVISION.
                                  000321
                                  000330 TRANSFER-LAPTOP-SLEEVE.
                                  000340 OPEN INPUT GRIFF-FILE
                                  000350 OUTPUT VILMOS-FILE.
                                  000351 MOVE ZERO TO RECORDS-WRITTEN.
                                  000360 READ GRIFF-FILE
                                  000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                                  000380 END-READ.
                                  000390 PERFORM TRANSFER-LAPTOP-SLEEVE
                                  000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
                                  000420 CLOSE GRIFF-FILE
                                  000430 VILMOS-FILE.
                                  000440 STOP RUN.
                                  000450
                                  000460 TRANSFER-LAPTOP-SLEEVE.
                                  000470 MOVE GRIFF-IN TO VILMOS-OUT.
                                  000480 IF SOURCE = 'CODEPROJECT'
                                  000490 WRITE VILMOS-OUT.
                                  000500 READ GRIFF-FILE
                                  000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                                  000520 END-READ.

                                  V Offline
                                  V Offline
                                  V 0
                                  wrote on last edited by
                                  #17

                                  Aaaaah my eyes X| No kidding, we had COBOL in uni. Two years in a row and two years in a row I woke up screaming of the nightmares I had the night before the exam. (true story actually :sigh: ) So griff, for all my suffering, I still deserve the laptop sleeve no ;P ?

                                  V.
                                  (MQOTD rules and previous solutions)

                                  OriginalGriff wrote:

                                  V is absolutely right

                                  1 Reply Last reply
                                  0
                                  • N Nagy Vilmos

                                    You said Tuesday was good for COBOL:

                                    000010 IDENTIFICATION DIVISION.
                                    000020 PROGRAM-ID. SLEEVE.
                                    000030 AUTHOR. NAGY VILMOS.
                                    000040 DATE-WRITTEN. 2014-03-25
                                    000050 ENVIRONMENT DIVISION.
                                    000060 INPUT-OUTPUT SECTION.
                                    000070 FILE-CONTROL.
                                    000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
                                    000090 ORGANIZATION IS LINE SEQUENTIAL.
                                    000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
                                    000110 ORGANIZATION IS LINE SEQUENTIAL.
                                    000120
                                    000130 DATA DIVISION.
                                    000140 FILE SECTION.
                                    000150 FD GRIFF-FILE
                                    000160 RECORD CONTAINS 80 CHARACTERS
                                    000170 DATA RECORD IS GRIFF-IN.
                                    000180 01 GRIFF-IN
                                    000181 05 SOURCE PIC X(11).
                                    000182 05 FILLER PIC X(69).
                                    000190
                                    000200 FD VILMOS-FILE
                                    000210 RECORD CONTAINS 80 CHARACTERS
                                    000220 DATA RECORD IS VILMOS-OUT.
                                    000230 01 VILMOS-OUT PIC X(80).
                                    000240
                                    000250 WORKING-STORAGE SECTION.
                                    000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
                                    000261 01 RECORDS-WRITTEN PIC 99.
                                    000270
                                    000320 PROCEDURE DIVISION.
                                    000321
                                    000330 TRANSFER-LAPTOP-SLEEVE.
                                    000340 OPEN INPUT GRIFF-FILE
                                    000350 OUTPUT VILMOS-FILE.
                                    000351 MOVE ZERO TO RECORDS-WRITTEN.
                                    000360 READ GRIFF-FILE
                                    000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                                    000380 END-READ.
                                    000390 PERFORM TRANSFER-LAPTOP-SLEEVE
                                    000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
                                    000420 CLOSE GRIFF-FILE
                                    000430 VILMOS-FILE.
                                    000440 STOP RUN.
                                    000450
                                    000460 TRANSFER-LAPTOP-SLEEVE.
                                    000470 MOVE GRIFF-IN TO VILMOS-OUT.
                                    000480 IF SOURCE = 'CODEPROJECT'
                                    000490 WRITE VILMOS-OUT.
                                    000500 READ GRIFF-FILE
                                    000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                                    000520 END-READ.

                                    Kornfeld Eliyahu PeterK Offline
                                    Kornfeld Eliyahu PeterK Offline
                                    Kornfeld Eliyahu Peter
                                    wrote on last edited by
                                    #18

                                    Now that was a real hit - I didn't saw COBOL for over 15 years...You made my day (or what left of it)!

                                    I'm not questioning your powers of observation; I'm merely remarking upon the paradox of asking a masked man who he is. (V)

                                    "It never ceases to amaze me that a spacecraft launched in 1977 can be fixed remotely from Earth." ― Brian Cox

                                    1 Reply Last reply
                                    0
                                    • J Jorgen Andersson

                                      And you're also moving away from VB6, just not as far as you'd want to.

                                      Wrong is evil and must be defeated. - Jeff Ello[^]

                                      N Offline
                                      N Offline
                                      Nagy Vilmos
                                      wrote on last edited by
                                      #19

                                      :sigh:

                                      1 Reply Last reply
                                      0
                                      • N Nagy Vilmos

                                        You said Tuesday was good for COBOL:

                                        000010 IDENTIFICATION DIVISION.
                                        000020 PROGRAM-ID. SLEEVE.
                                        000030 AUTHOR. NAGY VILMOS.
                                        000040 DATE-WRITTEN. 2014-03-25
                                        000050 ENVIRONMENT DIVISION.
                                        000060 INPUT-OUTPUT SECTION.
                                        000070 FILE-CONTROL.
                                        000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
                                        000090 ORGANIZATION IS LINE SEQUENTIAL.
                                        000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
                                        000110 ORGANIZATION IS LINE SEQUENTIAL.
                                        000120
                                        000130 DATA DIVISION.
                                        000140 FILE SECTION.
                                        000150 FD GRIFF-FILE
                                        000160 RECORD CONTAINS 80 CHARACTERS
                                        000170 DATA RECORD IS GRIFF-IN.
                                        000180 01 GRIFF-IN
                                        000181 05 SOURCE PIC X(11).
                                        000182 05 FILLER PIC X(69).
                                        000190
                                        000200 FD VILMOS-FILE
                                        000210 RECORD CONTAINS 80 CHARACTERS
                                        000220 DATA RECORD IS VILMOS-OUT.
                                        000230 01 VILMOS-OUT PIC X(80).
                                        000240
                                        000250 WORKING-STORAGE SECTION.
                                        000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
                                        000261 01 RECORDS-WRITTEN PIC 99.
                                        000270
                                        000320 PROCEDURE DIVISION.
                                        000321
                                        000330 TRANSFER-LAPTOP-SLEEVE.
                                        000340 OPEN INPUT GRIFF-FILE
                                        000350 OUTPUT VILMOS-FILE.
                                        000351 MOVE ZERO TO RECORDS-WRITTEN.
                                        000360 READ GRIFF-FILE
                                        000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                                        000380 END-READ.
                                        000390 PERFORM TRANSFER-LAPTOP-SLEEVE
                                        000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
                                        000420 CLOSE GRIFF-FILE
                                        000430 VILMOS-FILE.
                                        000440 STOP RUN.
                                        000450
                                        000460 TRANSFER-LAPTOP-SLEEVE.
                                        000470 MOVE GRIFF-IN TO VILMOS-OUT.
                                        000480 IF SOURCE = 'CODEPROJECT'
                                        000490 WRITE VILMOS-OUT.
                                        000500 READ GRIFF-FILE
                                        000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
                                        000520 END-READ.

                                        T Offline
                                        T Offline
                                        Tim Carmichael
                                        wrote on last edited by
                                        #20

                                        My eyes are burning... haven't had to look at COBOL since college...

                                        1 Reply Last reply
                                        0
                                        • Mike HankeyM Mike Hankey

                                          Too funny! You must really want that sleeve?

                                          Along with Antimatter and Dark Matter they've discovered the existence of Doesn't Matter which appears to have no effect on the universe whatsoever! Rich Tennant 5th Wave

                                          D Offline
                                          D Offline
                                          DeathByChocolate
                                          wrote on last edited by
                                          #21

                                          Well, I do like a challenge (and I know the way to Griff's heart)! :-D

                                          "State acheived after eating too many chocolate-covered coconut bars - bountiful" Chris C-B

                                          R 1 Reply Last reply
                                          0
                                          Reply
                                          • Reply as topic
                                          Log in to reply
                                          • Oldest to Newest
                                          • Newest to Oldest
                                          • Most Votes


                                          • Login

                                          • Don't have an account? Register

                                          • Login or register to search.
                                          • First post
                                            Last post
                                          0
                                          • Categories
                                          • Recent
                                          • Tags
                                          • Popular
                                          • World
                                          • Users
                                          • Groups