As400 subdirectory

350 pts.
Tags:
AS/400
AS/400 Directory
WRKLNK
in as/400 we are using directory

now i create one directory like ABC, later i create one more sub directory like XYZ

It is looking Like ABC/XYZ

i want to find XYZ sub directory is there are not , is there any comands to find subdirectory

i use WRKLNK OBJ(ABC/XYZ)  but i will open the path, now i want to find out that subdirectory exiting or not

Can you give examples



Software/Hardware used:
software

Answer Wiki

Thanks. We'll let you know when a new response is added.

If you the DIR /ABC/XYZ exists on your system and you run command
WRKLNK OBJ(ABC/XYZ) the directory will display on your screen. If you want to know the contends of /XYZ, you just need to use option 5=Display.

I think I may not be understaning the question properly.
Can you be more specific on what you want to accomplish.

Discuss This Question: 2  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • TomLiotta
    There are various ways. One fairly easy way is the access() API. It can be used in any ILE language. Here's a trivial example in CL:
    pgm
    
       dcl   &fname       *char  512
       dcl   &amode       *int
    
       dcl   &F_OK        *int           value( 0 )
       dcl   &x00         *char    1     value( x'00' )
    
       dcl   &rc          *int           value( 0 )
    
       chgvar      &amode               &F_OK
       chgvar      &fname             ( +
                                        'ABC/XYZ'            *cat  +
                                        &x00                       +
                                      )
    
       callprc     'access'           ( +
                                        &fname       +
                                      ( &amode   *byval ) +
                                      ) +
                                rtnval( &rc )
    
    /* Note: &rc *eq x'00000000'=0 on success; x'FFFFFFFF'=-1 on fail... */
    
       if ( &rc *eq 0 )  +
          sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                       msgdta( 'The IFS object exists' )
       else  +
          sndpgmmsg  msgid( CPF9898 ) msgf( QCPFMSG ) +
                       msgdta( 'The IFS object does NOT exist' )
    
       return
    
    endpgm
    
    But it might not be quite as easy as getting an indication of existence. What do you need it for? How will you need to use it? Other steps might be necessary. Tom
    125,585 pointsBadges:
    report
  • madhuchowdary
    Thank you for u r good suggisations
    350 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following