Example of Specifying a Fileshare Client User ID and Password

This example shows how to code your program to supply a user-ID and password to a Fileshare Server:

 working-storage section.
 01 function-code pic x comp-x.
 01 user-name  pic x(20).
 01 user-password pic x(20).
 procedure division.
     move 1 to function-code
     move "UserID" to user-name
     move "Password" to user-password
     call "fhrdrpwd" using function-code, user-name, user-password
     open output testfile