Versions Compared

Old Version 9

changes.mady.by.user Fabiola Arias Navia

Saved on

compared with

New Version 10

changes.mady.by.user Fabiola Arias Navia

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

The following sample RDML function (which can be copied and pasted in the CS/400 free form function editor) queries and displays all possible drive/path combinations:

FUNCTION OPTIONS(*DIRECT)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(SYS_DRIV)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(SYS_DIR)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(SYS_DIR_EXECUTE)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(SYS_DIR_OBJECT)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(SYS_DIR_SOURCE)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(PART_DRIV)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(PART_DIR)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(PART_DIR_EXECUTE)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(PART_DIR_OBJECT)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(PART_DIR_SOURCE)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(TEMP_DRIV)

EXECUTE SUBROUTINE(SHOW_INFO) WITH_PARMS(TEMP_DIR)

********** COMMENT(Display subroutine)

SUBROUTINE NAME(SHOW_INFO) PARMS(  OV_QUERY)

DEFINE FIELD(#OV_QUERY) TYPE(*CHAR) LENGTH(50)

DEFINE FIELD(#OV_RESULT) TYPE(*CHAR) LENGTH(50)

USE BUILTIN(OV_QUERY_SYS_INFO) WITH_ARGS(#OV_QUERY) TO_GET(#OV_RESULT)

DISPLAY FIELDS(#OV_QUERY #OV_RESULT)

ENDROUTINE