Skip to main content

[archive] Directory information

  • September 19, 2008
  • 2 replies
  • 0 views
D

[Migrated content. Thread originally posted on 18 September 2008]

I know I've seen it somewhere in the documentation, but I can't seem to find it now.

Isn't there a command to check if a directory exists? I thought it was
one of the C$ commands. Anyone remember?

    2 replies

    D

    [Migrated content. Thread originally posted on 18 September 2008]

    I know I've seen it somewhere in the documentation, but I can't seem to find it now.

    Isn't there a command to check if a directory exists? I thought it was
    one of the C$ commands. Anyone remember?

    [SIZE=3][FONT=Consolas]     IDENTIFICATION               DIVISION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     PROGRAM-ID.                  TEMPLATE.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     ENVIRONMENT                  DIVISION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     CONFIGURATION                SECTION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     SPECIAL-NAMES.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     WORKING-STORAGE SECTION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     copy "..\\sample\\def\\acucobol.def".[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     01  pattern       pic x(5) value ".". [/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     01  directory     pic x(20) value ".\\ADirectoryThatExist". [/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     01  filename      pic x(128). [/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     01  mydir         usage handle. [/FONT][/SIZE]


    [SIZE=3][FONT=Consolas]     PROCEDURE DIVISION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     MAIN-LOGIC.[/FONT][/SIZE]

    [SIZE=3][FONT=Consolas]         perform check-dir[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         move "doesnotexist" to directory[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         perform check-dir[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         stop run.                                             [/FONT][/SIZE]


    [SIZE=3][FONT=Consolas]     check-dir.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         call "C$LIST-DIRECTORY"[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]           using listdir-open, directory, pattern[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         move return-code to mydir[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         if mydir = 0[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]            display directory " does not exist"[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         else[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]            display directory " does exist"[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]            call "C$LIST-DIRECTORY" using listdir-close, mydir[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         end-if[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         EXIT    PARAGRAPH.[/FONT][/SIZE]
    D

    [Migrated content. Thread originally posted on 18 September 2008]

    I know I've seen it somewhere in the documentation, but I can't seem to find it now.

    Isn't there a command to check if a directory exists? I thought it was
    one of the C$ commands. Anyone remember?

    [SIZE=3][FONT=Consolas]     IDENTIFICATION               DIVISION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     PROGRAM-ID.                  TEMPLATE.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     ENVIRONMENT                  DIVISION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     CONFIGURATION                SECTION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     SPECIAL-NAMES.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     WORKING-STORAGE SECTION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     copy "..\\sample\\def\\acucobol.def".[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     01  pattern       pic x(5) value ".". [/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     01  directory     pic x(20) value ".\\ADirectoryThatExist". [/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     01  filename      pic x(128). [/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     01  mydir         usage handle. [/FONT][/SIZE]


    [SIZE=3][FONT=Consolas]     PROCEDURE DIVISION.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]     MAIN-LOGIC.[/FONT][/SIZE]

    [SIZE=3][FONT=Consolas]         perform check-dir[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         move "doesnotexist" to directory[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         perform check-dir[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         stop run.                                             [/FONT][/SIZE]


    [SIZE=3][FONT=Consolas]     check-dir.[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         call "C$LIST-DIRECTORY"[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]           using listdir-open, directory, pattern[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         move return-code to mydir[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         if mydir = 0[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]            display directory " does not exist"[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         else[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]            display directory " does exist"[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]            call "C$LIST-DIRECTORY" using listdir-close, mydir[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         end-if[/FONT][/SIZE]
    [SIZE=3][FONT=Consolas]         EXIT    PARAGRAPH.[/FONT][/SIZE]

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement