z/OS ISPF Dialog Developer's Guide and Reference
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


Command procedure function

z/OS ISPF Dialog Developer's Guide and Reference
SC19-3619-00

  1. CONTROL ERRORS CANCEL
  2. TBOPEN TAB1 WRITE
  3. DISPLAY PANEL(SER)
  4. if return code = 0, go to 6
  5. if return code = 8, go to 21
  6. TBGET TAB1
  7. if return code = 0, go to 9
  8. if return code = 8, go to 12
  9. DISPLAY PANEL(SER) MSG(EMPX210)
  10. if return code = 0, go to 6
  11. if return code = 8, go to 21
  12. Set dialog variables to blanks
  13. DISPLAY PANEL(DATA)
  14. if return code = 0, go to 16
  15. if return code = 8, go to 21
  16. TBADD TAB1
  17. if return code = 0, go to 18
  18. DISPLAY PANEL(SER) MSG(EMPX211)
  19. if return code = 0, go to 6
  20. if return code = 8, go to 21
  21. TBCLOSE TAB1
  22. End the function
Parent topic: Example: function using the DISPLAY, TBGET, and TBADD services

Go to the previous page Go to the next page

Notices | Terms of use | Support | Contact z/OS | zFavorites



Copyright IBM Corporation 1990, 2014