home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv4.zip / VACPP / IBMCPP / HELP / EVFELLSH.HLP (.txt) < prev    next >
OS/2 Help File  |  1995-05-11  |  537KB  |  20,517 lines
  1.  
  2. ΓòÉΓòÉΓòÉ 1. LE/370 Quick Reference Tables ΓòÉΓòÉΓòÉ
  3.  
  4. These quick reference tables can either be inserted directly before Chapter 1 
  5. or they can be used as a separate document. 
  6.  
  7. The tables are a quick reference of the run-time options, callable services, 
  8. and math services. They list the syntax of the options and services and briefly 
  9. state their function. 
  10.  
  11. This section contains the following quick reference of the run-time options, 
  12. callable services, and math services: 
  13.  
  14. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15. Γöé Run-Time Options                                         Γöé
  16. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17. Γöé Condition Handling Callable Services                               Γöé
  18. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19. Γöé Date and Time Callable Services                                  Γöé
  20. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  21. Γöé Dynamic Storage Callable Services                                 Γöé
  22. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  23. Γöé General Callable Services                                     Γöé
  24. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  25. Γöé Initialization and Termination Services                              Γöé
  26. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  27. Γöé Math Services                                           Γöé
  28. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  29. Γöé Message Handling Callable Services                                Γöé
  30. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  31. Γöé National Language Support Callable Services                            Γöé
  32. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  33.  
  34.  
  35. ΓòÉΓòÉΓòÉ 1.1. Run-Time Options ΓòÉΓòÉΓòÉ
  36.  
  37. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  38. Γöé Table 1. Run-Time Options Quick Reference                                       Γöé
  39. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  40. Γöé RUN-TIME OPTIONS                                 Γöé FUNCTION              Γöé
  41. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  42. Γöé                                          Γöé Percolates a specified abend.   Γöé
  43. Γöé         .-NONEΓöÇΓöÇΓöÇ.                             Γöé                  Γöé
  44. Γöé >>ΓöÇΓöÇABPercΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  45. Γöé         '-abcode-'                             Γöé                  Γöé
  46. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  47. Γöé                                          Γöé Sets the enclave termination    Γöé
  48. Γöé          .-RETCODE-.                           Γöé behavior for an enclave ending   Γöé
  49. Γöé >>ΓöÇΓöÇABTermencΓöÇΓöÇ(ΓöÇΓöÇ'-ABENDΓöÇΓöÇΓöÇ'ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé with an unhandled condition of   Γöé
  50. Γöé                                          Γöé severity 2 or greater.       Γöé
  51. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  52. Γöé                                          Γöé Invokes the access method ser-   Γöé
  53. Γöé   .-NOAIXBLD-.                                 Γöé vices (AMS) for VSAM indexed and  Γöé
  54. Γöé >>ΓöÇΓöÇΓö¼ΓöÇAIXBLDΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé relative data sets to complete   Γöé
  55. Γöé   Γöé-AIXΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöé                                 Γöé the file and index definition   Γöé
  56. Γöé   '-NOAIXΓöÇΓöÇΓöÇΓöÇ'                                 Γöé procedures for COBOL routines.   Γöé
  57. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  58. Γöé                                          Γöé Indicates whether an application  Γöé
  59. Γöé        .-OFF-.                               Γöé does or does not run entirely in  Γöé
  60. Γöé >>ΓöÇΓöÇALl31ΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé AMODE(31)             Γöé
  61. Γöé        '-ONΓöÇΓöÇ'                               Γöé                  Γöé
  62. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  63. Γöé                                          Γöé Controls allocation of library   Γöé
  64. Γöé                           .-ANYwhere-.         Γöé heap storage not restricted to   Γöé
  65. Γöé >>ΓöÇΓöÇANyheapΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé below the 16M line.        Γöé
  66. Γöé         '-init_size-'   '-incr_size-'   '-BELOWΓöÇΓöÇΓöÇΓöÇ'         Γöé                  Γöé
  67. Γöé                                          Γöé                  Γöé
  68. Γöé   .-FREE-.                                    Γöé                  Γöé
  69. Γöé >ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  70. Γöé   '-KEEP-'                                    Γöé                  Γöé
  71. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  72. Γöé                                          Γöé Specifies whether arguments on   Γöé
  73. Γöé   .-ARGPARSEΓöÇΓöÇΓöÇ.                                Γöé the command line are to be parsed Γöé
  74. Γöé >>ΓöÇΓöÇ'-NOARGPARSE-'ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé in the usual C/370 format.     Γöé
  75. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  76. Γöé                                          Γöé Controls allocation of library   Γöé
  77. Γöé                            .-FREE-.          Γöé heap storage below the 16M line.  Γöé
  78. Γöé >>ΓöÇΓöÇBElowheapΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  79. Γöé          '-init_size-'   '-incr_size-'   '-KEEP-'          Γöé                  Γöé
  80. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  81. Γöé                                          Γöé Specifies the format of the argu- Γöé
  82. Γöé         .-ONΓöÇΓöÇ.                              Γöé ment string on application invo-  Γöé
  83. Γöé >>ΓöÇΓöÇCBLOptsΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé cation when the main routine is  Γöé
  84. Γöé         '-OFF-'                              Γöé COBOL.               Γöé
  85. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  86. Γöé                                          Γöé Controls whether CICS* PUSH    Γöé
  87. Γöé          .-ONΓöÇΓöÇ.                             Γöé HANDLE and CICS POP HANDLE com-  Γöé
  88. Γöé >>ΓöÇΓöÇCBLPshpopΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé mands are issued when a COBOL   Γöé
  89. Γöé          '-OFF-'                             Γöé subprogram is called.       Γöé
  90. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  91. Γöé                                          Γöé Controls COBOL QSAM dynamic allo- Γöé
  92. Γöé         .-ONΓöÇΓöÇ.                              Γöé cation.              Γöé
  93. Γöé >>ΓöÇΓöÇCBLQdaΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  94. Γöé         '-OFF-'                              Γöé                  Γöé
  95. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  96. Γöé                                          Γöé Indicates whether "checking    Γöé
  97. Γöé        .-ONΓöÇΓöÇ.                               Γöé errors" within an application   Γöé
  98. Γöé >>ΓöÇΓöÇCHeckΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé should be detected.        Γöé
  99. Γöé        '-OFF-'                               Γöé                  Γöé
  100. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  101. Γöé                                          Γöé Specifies the default formats for Γöé
  102. Γöé >>ΓöÇΓöÇCOUNTRyΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé date, time, currency symbol,    Γöé
  103. Γöé         '-country_code-'                         Γöé decimal separator, and the thou-  Γöé
  104. Γöé                                          Γöé sands separator based on a     Γöé
  105. Γöé                                          Γöé country.              Γöé
  106. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  107. Γöé                                          Γöé Activates the COBOL batch debug-  Γöé
  108. Γöé   .-DEBUGΓöÇΓöÇΓöÇ.                                  Γöé ging features specified by the   Γöé
  109. Γöé >>ΓöÇΓöÇ'-NODEBUG-'ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé "debugging lines" or the USE FOR  Γöé
  110. Γöé                                          Γöé DEBUGGING declarative.       Γöé
  111. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  112. Γöé                                          Γöé Limits the extent to which condi- Γöé
  113. Γöé >>ΓöÇΓöÇDEPthcondlmtΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé tions can be nested.        Γöé
  114. Γöé            '-limit-'                          Γöé                  Γöé
  115. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  116. Γöé                                          Γöé Specifies the operating system   Γöé
  117. Γöé >>ΓöÇΓöÇENVΓöÇΓöÇ(ΓöÇΓöÇ.-CMS-.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé that your C/370 application runs  Γöé
  118. Γöé       |-IMS-|                                Γöé under.               Γöé
  119. Γöé       '-MVS-'                                Γöé                  Γöé
  120. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  121. Γöé                                          Γöé Sets the initial values for the  Γöé
  122. Γöé        <-,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ<                            Γöé environment variables specified  Γöé
  123. Γöé >>ΓöÇΓöÇENVARΓöÇΓöÇ(ΓöÇΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé in string.             Γöé
  124. Γöé         '-string-'                             Γöé                  Γöé
  125. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  126. Γöé                                          Γöé Specifies how many severity 2, 3, Γöé
  127. Γöé >>ΓöÇΓöÇERrcountΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé or 4 errors are allowed before an Γöé
  128. Γöé          '-number-'                            Γöé application is abnormally termi-  Γöé
  129. Γöé                                          Γöé nated.               Γöé
  130. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  131. Γöé                                          Γöé Specifies whether run-time     Γöé
  132. Γöé   .-EXECOPSΓöÇΓöÇΓöÇ.                                 Γöé options can be specified on the  Γöé
  133. Γöé >>ΓöÇΓöÇ'-NOEXECOPS-'ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé command line.           Γöé
  134. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  135. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  136. Γöé Table 1. Run-Time Options Quick Reference                                       Γöé
  137. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  138. Γöé RUN-TIME OPTIONS                                 Γöé FUNCTION              Γöé
  139. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  140. Γöé                                          Γöé Controls the FLOW output produced Γöé
  141. Γöé   .-NOFLOWΓöÇΓöÇ.                                  Γöé by OS/VS COBOL programs.      Γöé
  142. Γöé >>ΓöÇΓöÇΓö¼ΓöÇFLOWΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  143. Γöé   Γöé-FLOW(n)-Γöé                                  Γöé                  Γöé
  144. Γöé   Γöé-FLOW=nΓöÇΓöÇΓöé                                  Γöé                  Γöé
  145. Γöé   '-FLOWnΓöÇΓöÇΓöÇ'                                  Γöé                  Γöé
  146. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  147. Γöé                                          Γöé Controls allocation of the heaps. Γöé
  148. Γöé                          .-ANYwhere-.   .-KEEP-.    Γöé                  Γöé
  149. Γöé >>ΓöÇΓöÇHeapΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ,ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé                  Γöé
  150. Γöé        '-init_size-'   '-incr_size-'   '-BELOWΓöÇΓöÇΓöÇΓöÇ'   '-FREE-'    Γöé                  Γöé
  151. Γöé                                          Γöé                  Γöé
  152. Γöé >ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  153. Γöé    '-.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.-'   '-.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.-'                    Γöé                  Γöé
  154. Γöé     '-initsz24-'     '-incrsz24-'                     Γöé                  Γöé
  155. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  156. Γöé                                          Γöé Causes attentions recognized by  Γöé
  157. Γöé          .-OFF-.                             Γöé the host operating system to be  Γöé
  158. Γöé >>ΓöÇΓöÇINTerruptΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé recognized by LE/370.       Γöé
  159. Γöé          '-ONΓöÇΓöÇ'                             Γöé                  Γöé
  160. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  161. Γöé                                          Γöé Controls the allocation of the   Γöé
  162. Γöé                            .-FREE-.           Γöé thread's library stack storage.  Γöé
  163. Γöé >>ΓöÇΓöÇLIBStackΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  164. Γöé          '-init_size-'   '-incr_size-'   '-KEEP-'           Γöé                  Γöé
  165. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  166. Γöé                                          Γöé Specifies the ddname of the run-  Γöé
  167. Γöé >>ΓöÇΓöÇMSGFileΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé time diagnostics file.       Γöé
  168. Γöé         '-ddname-'                            Γöé                  Γöé
  169. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  170. Γöé                                          Γöé Specifies the number of ISI    Γöé
  171. Γöé >>ΓöÇΓöÇMSGQΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé blocks allocated on a per-thread  Γöé
  172. Γöé        '-number-'                              Γöé basis during execution.      Γöé
  173. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  174. Γöé                                          Γöé Specifies the national language  Γöé
  175. Γöé         .-ENU-.                              Γöé to use for the run-time environ-  Γöé
  176. Γöé >>ΓöÇΓöÇNATlangΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé ment.               Γöé
  177. Γöé         Γöé-UEN-Γöé                              Γöé                  Γöé
  178. Γöé         '-JPN-'                              Γöé                  Γöé
  179. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  180. Γöé                                          Γöé Specifies the format of the invo- Γöé
  181. Γöé        .-HOST-.                              Γöé cation arguments received by your Γöé
  182. Γöé >>ΓöÇΓöÇPLISTΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇCICSΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé C/370 application when it is    Γöé
  183. Γöé        Γöé-CMSΓöÇΓöÇΓöé                              Γöé invoked.              Γöé
  184. Γöé        Γöé-IMSΓöÇΓöÇΓöé                              Γöé                  Γöé
  185. Γöé        Γöé-MVSΓöÇΓöÇΓöé                              Γöé                  Γöé
  186. Γöé        Γöé-OSΓöÇΓöÇΓöÇΓöé                              Γöé                  Γöé
  187. Γöé        '-TSOΓöÇΓöÇ'                              Γöé                  Γöé
  188. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  189. Γöé                                          Γöé Specifies whether the enclave can Γöé
  190. Γöé        .-OFF-.                               Γöé run with the POSIX semantics.   Γöé
  191. Γöé >>ΓöÇΓöÇPOSixΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  192. Γöé        '-ONΓöÇΓöÇ'                               Γöé                  Γöé
  193. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  194. Γöé                                          Γöé Specifies whether redirections   Γöé
  195. Γöé   .-REDIRΓöÇΓöÇΓöÇ.                                  Γöé for "stdin", "stderr", and     Γöé
  196. Γöé >>ΓöÇΓöÇ'-NOREDIR-'ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé "stdout" are allowed from the   Γöé
  197. Γöé                                          Γöé command line.           Γöé
  198. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  199. Γöé                                          Γöé Specifies that a report of the   Γöé
  200. Γöé         .-OFF-.                              Γöé run-time options in use by the   Γöé
  201. Γöé >>ΓöÇΓöÇRPTOptsΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé application be generated.     Γöé
  202. Γöé         '-ONΓöÇΓöÇ'                              Γöé                  Γöé
  203. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  204. Γöé                                          Γöé Specifies that a report of the   Γöé
  205. Γöé         .-OFF-.                              Γöé storage used by the application  Γöé
  206. Γöé >>ΓöÇΓöÇRPTStgΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé be generated at the end of exe-  Γöé
  207. Γöé         '-ONΓöÇΓöÇ'                              Γöé cution.              Γöé
  208. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  209. Γöé                                          Γöé Initializes the run-time environ- Γöé
  210. Γöé   .-NORTEREUS-.                                 Γöé ment to be reusable when the    Γöé
  211. Γöé >>ΓöÇΓöÇ'-RTEREUSΓöÇΓöÇΓöÇ'ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé first COBOL routine is invoked.  Γöé
  212. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  213. Γöé                                          Γöé Specifies whether your COBOL rou- Γöé
  214. Γöé   .-NOSIMVRD-.                                 Γöé tines use a VSAM KSDS to simulate Γöé
  215. Γöé >>ΓöÇΓöÇ'-SIMVRDΓöÇΓöÇΓöÇ'ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé variable length relative organ-  Γöé
  216. Γöé                                          Γöé ization data sets.         Γöé
  217. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  218. Γöé                                          Γöé Controls allocation of the     Γöé
  219. Γöé                          .-BELOWΓöÇΓöÇΓöÇΓöÇ.   .-KEEP-.    Γöé thread's stack storage.      Γöé
  220. Γöé >>ΓöÇΓöÇSTACkΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ,ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇ> Γöé                  Γöé
  221. Γöé        '-init_size-'   '-incr_size-'   '-ANYwhere-'   '-FREE-'    Γöé                  Γöé
  222. Γöé                                          Γöé                  Γöé
  223. Γöé >ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  224. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  225. Γöé                                          Γöé Controls the value of storage   Γöé
  226. Γöé >>ΓöÇΓöÇSTOrageΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé that is allocated and freed.    Γöé
  227. Γöé         '-heap_alloc_value-'   '-heap_free_value-'           Γöé                  Γöé
  228. Γöé                                          Γöé                  Γöé
  229. Γöé >ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  230. Γöé   '-dsa_alloc_value-'   '-reserve_size-'                    Γöé                  Γöé
  231. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  232. Γöé                                          Γöé Sets the level of information   Γöé
  233. Γöé           .-TRACE-.                           Γöé produced due to an unhandled    Γöé
  234. Γöé >>ΓöÇΓöÇTERmthdactΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé error of severity 2 or greater.  Γöé
  235. Γöé           Γöé-QUIET-Γöé                           Γöé                  Γöé
  236. Γöé           Γöé-MSGΓöÇΓöÇΓöÇΓöé                           Γöé                  Γöé
  237. Γöé           '-DUMPΓöÇΓöÇ'                           Γöé                  Γöé
  238. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  239. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  240. Γöé Table 1. Run-Time Options Quick Reference                                       Γöé
  241. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  242. Γöé RUN-TIME OPTIONS                                 Γöé FUNCTION              Γöé
  243. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  244. Γöé                                          Γöé Specifies that a debug tool is to Γöé
  245. Γöé   .-NOTest-.   .-ALLΓöÇΓöÇΓöÇ.              .-PROMPTΓöÇΓöÇΓöÇ.        Γöé be given control according to the Γöé
  246. Γöé >>ΓöÇΓöÇ'-TESTΓöÇΓöÇΓöÇ'ΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé suboptions specified.       Γöé
  247. Γöé           Γöé-ERROR-Γöé   |-commands_file-|   Γöé-NOPROMPT-Γöé        Γöé                  Γöé
  248. Γöé           '-NONEΓöÇΓöÇ'   '-*ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ'   Γöé-*ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöé        Γöé                  Γöé
  249. Γöé                             Γöé-;ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöé        Γöé                  Γöé
  250. Γöé                             '-commandΓöÇΓöÇ'        Γöé                  Γöé
  251. Γöé                                          Γöé                  Γöé
  252. Γöé >ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  253. Γöé   |-preference_file-|                              Γöé                  Γöé
  254. Γöé   '-*ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ'                              Γöé                  Γöé
  255. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  256. Γöé                                          Γöé Determines whether LE/370 run-   Γöé
  257. Γöé        .-OFF-.          .-DUMPΓöÇΓöÇΓöÇ.                 Γöé time library tracing is active.  Γöé
  258. Γöé >>ΓöÇΓöÇTRACEΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                  Γöé
  259. Γöé        '-ONΓöÇΓöÇ'  '-table_size-'  '-NODUMP-'  '-LE=-'            Γöé                  Γöé
  260. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  261. Γöé                                          Γöé Specifies how LE/370 routines   Γöé
  262. Γöé        .-ONΓöÇΓöÇ.                               Γöé handle abends and program inter-  Γöé
  263. Γöé >>ΓöÇΓöÇTRapΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé rupts.               Γöé
  264. Γöé        '-OFF-'                               Γöé                  Γöé
  265. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  266. Γöé                                          Γöé Sets the eight UPSI switches on  Γöé
  267. Γöé >>ΓöÇΓöÇUPSIΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé or off.  Affects only COBOL rou-  Γöé
  268. Γöé        '-nnnnnnnn-'                             Γöé tines.               Γöé
  269. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  270. Γöé                                          Γöé Specifies whether any language in Γöé
  271. Γöé          .-OFF-.                             Γöé an application uses the vector   Γöé
  272. Γöé >>ΓöÇΓöÇVctrsaveΓöÇΓöÇ(ΓöÇΓöÇ+ΓöÇΓöÇΓöÇΓöÇΓöÇ+ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé facility when user-written condi- Γöé
  273. Γöé          '-ONΓöÇΓöÇ'                             Γöé tion handlers are called.     Γöé
  274. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  275. Γöé                                          Γöé Specifies whether an exponent   Γöé
  276. Γöé         .-AUTO-.                              Γöé underflow causes a program inter- Γöé
  277. Γöé >>ΓöÇΓöÇXuflowΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé rupt.               Γöé
  278. Γöé         Γöé-ONΓöÇΓöÇΓöÇΓöé                              Γöé                  Γöé
  279. Γöé         '-OFFΓöÇΓöÇ'                              Γöé                  Γöé
  280. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  281.  
  282.  
  283. ΓòÉΓòÉΓòÉ 1.2. Condition Handling Callable Services ΓòÉΓòÉΓòÉ
  284.  
  285. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  286. Γöé Table 2. Condition Handling Callable Services                                     Γöé
  287. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  288. Γöé CALLABLE SERVICE                                  Γöé FUNCTION             Γöé
  289. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  290. Γöé                                           Γöé Returns a pointer to a condi-  Γöé
  291. Γöé >>ΓöÇΓöÇCEE3CIBΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇcib_ptrΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé tion information block (CIB)   Γöé
  292. Γöé         '-cond_token-'                           Γöé associated with a given condi-  Γöé
  293. Γöé                                           Γöé tion token.           Γöé
  294. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  295. Γöé                                           Γöé Gets the name of the most    Γöé
  296. Γöé >>ΓöÇΓöÇCEE3GRNΓöÇΓöÇ(ΓöÇΓöÇnameΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé current LE/370-conforming    Γöé
  297. Γöé                                           Γöé routine in which a condition   Γöé
  298. Γöé                                           Γöé occurred.            Γöé
  299. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  300. Γöé                                           Γöé Queries and modifies the     Γöé
  301. Γöé >>ΓöÇΓöÇCEE3SPMΓöÇΓöÇ(ΓöÇΓöÇactionΓöÇΓöÇ,ΓöÇΓöÇcond_stringΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé enablement of LE/370 hardware  Γöé
  302. Γöé                                           Γöé conditions.           Γöé
  303. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  304. Γöé                                           Γöé Decomposes or alters an     Γöé
  305. Γöé >>ΓöÇΓöÇCEEDCODΓöÇΓöÇ(ΓöÇΓöÇcond_tokenΓöÇΓöÇ,ΓöÇΓöÇc_1ΓöÇΓöÇ,ΓöÇΓöÇc_2ΓöÇΓöÇ,ΓöÇΓöÇcaseΓöÇΓöÇ,ΓöÇΓöÇseverityΓöÇΓöÇ,ΓöÇΓöÇcontrolΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé existing condition token.    Γöé
  306. Γöé                                           Γöé                 Γöé
  307. Γöé >ΓöÇΓöÇ,ΓöÇΓöÇfacility_IDΓöÇΓöÇ,ΓöÇΓöÇi_s_infoΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  308. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  309. Γöé                                           Γöé Retrieves the version ID and   Γöé
  310. Γöé >>ΓöÇΓöÇCEEGPIDΓöÇΓöÇ(ΓöÇΓöÇCEE_Version_IDΓöÇΓöÇ,ΓöÇΓöÇPlat_IDΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé the platform ID of the version  Γöé
  311. Γöé                                           Γöé and platform of LE/370 cur-   Γöé
  312. Γöé                                           Γöé rently in use for processing   Γöé
  313. Γöé                                           Γöé the active condition.      Γöé
  314. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  315. Γöé                                           Γöé Provides a mechanism by which  Γöé
  316. Γöé >>ΓöÇΓöÇCEEGQDTΓöÇΓöÇ(ΓöÇΓöÇcond_repΓöÇΓöÇ,ΓöÇΓöÇq_data_tokenΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé application code (in partic-   Γöé
  317. Γöé                                           Γöé ular, PL/I ON-units) can     Γöé
  318. Γöé                                           Γöé retrieve the q_data_token from  Γöé
  319. Γöé                                           Γöé the Instance Specific Informa-  Γöé
  320. Γöé                                           Γöé tion (ISI).           Γöé
  321. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  322. Γöé                                           Γöé Registers a user condition    Γöé
  323. Γöé >>ΓöÇΓöÇCEEHDLRΓöÇΓöÇ(ΓöÇΓöÇroutineΓöÇΓöÇ,ΓöÇΓöÇtokenΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé handler for the current stack  Γöé
  324. Γöé                                           Γöé frame.              Γöé
  325. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  326. Γöé                                           Γöé Unregisters a user-written con- Γöé
  327. Γöé >>ΓöÇΓöÇCEEHDLUΓöÇΓöÇ(ΓöÇΓöÇroutineΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé dition handler for the current  Γöé
  328. Γöé                                           Γöé stack frame.           Γöé
  329. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  330. Γöé                                           Γöé Computes the initial condition  Γöé
  331. Γöé >>ΓöÇΓöÇCEEITOKΓöÇΓöÇ(ΓöÇΓöÇi_ctokΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé token for the current condition Γöé
  332. Γöé                                           Γöé information block.        Γöé
  333. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  334. Γöé                                           Γöé Moves the resume cursor to a   Γöé
  335. Γöé >>ΓöÇΓöÇCEEMRCRΓöÇΓöÇ(ΓöÇΓöÇtype_of_moveΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé position relative to the     Γöé
  336. Γöé                                           Γöé current position of the handle  Γöé
  337. Γöé                                           Γöé cursor.             Γöé
  338. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  339. Γöé                                           Γöé Dynamically constructs a condi- Γöé
  340. Γöé >>ΓöÇΓöÇCEENCODΓöÇΓöÇ(ΓöÇΓöÇc_1ΓöÇΓöÇ,ΓöÇΓöÇc_2ΓöÇΓöÇ,ΓöÇΓöÇcaseΓöÇΓöÇ,ΓöÇΓöÇseverityΓöÇΓöÇ,ΓöÇΓöÇcontrolΓöÇΓöÇ,ΓöÇΓöÇfacility_IDΓöÇΓöÇΓöÇΓöÇ> Γöé tion token.           Γöé
  341. Γöé                                           Γöé                 Γöé
  342. Γöé >ΓöÇΓöÇ,ΓöÇΓöÇi_s_infoΓöÇΓöÇ,ΓöÇΓöÇcond_tokenΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  343. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  344. Γöé                                           Γöé Raises, or signals, a condition Γöé
  345. Γöé >>ΓöÇΓöÇCEESGLΓöÇΓöÇ(ΓöÇΓöÇcond_repΓöÇΓöÇ,ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé to the condition manager.    Γöé
  346. Γöé               '-q_data_tokenΓöÇΓöÇ,-'                   Γöé                 Γöé
  347. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  348.  
  349.  
  350. ΓòÉΓòÉΓòÉ 1.3. Date and Time Callable Services ΓòÉΓòÉΓòÉ
  351.  
  352. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  353. Γöé Table 3. Date and Time Callable Services                                       Γöé
  354. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  355. Γöé CALLABLE SERVICE                                  Γöé FUNCTION             Γöé
  356. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  357. Γöé                                           Γöé Converts a string representing  Γöé
  358. Γöé >>ΓöÇΓöÇCEECBLDYΓöÇΓöÇ(ΓöÇΓöÇinput_char_dateΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_Lilian_dateΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇ> Γöé a date to a COBOL Lilian     Γöé
  359. Γöé                                           Γöé format.             Γöé
  360. Γöé >ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  361. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  362. Γöé                                           Γöé Converts a number representing  Γöé
  363. Γöé >>ΓöÇΓöÇCEEDATEΓöÇΓöÇ(ΓöÇΓöÇinput_Lilian_dateΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_char_dateΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé a Lilian date to a date written Γöé
  364. Γöé                                           Γöé in character format.       Γöé
  365. Γöé >ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  366. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  367. Γöé                                           Γöé Converts a number representing  Γöé
  368. Γöé >>ΓöÇΓöÇCEEDATMΓöÇΓöÇ(ΓöÇΓöÇinput_secondsΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_timestampΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé the number of seconds since   Γöé
  369. Γöé                                           Γöé 00:00:00 14 October 1582 to   Γöé
  370. Γöé >ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé character format.        Γöé
  371. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  372. Γöé                                           Γöé Converts a string representing  Γöé
  373. Γöé >>ΓöÇΓöÇCEEDAYSΓöÇΓöÇ(ΓöÇΓöÇinput_char_dateΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_Lilian_dateΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé a date to a Lilian format.    Γöé
  374. Γöé                                           Γöé                 Γöé
  375. Γöé >ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  376. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  377. Γöé                                           Γöé Calculates the day of the week  Γöé
  378. Γöé >>ΓöÇΓöÇCEEDYWKΓöÇΓöÇ(ΓöÇΓöÇinput_Lilian_dateΓöÇΓöÇ,ΓöÇΓöÇoutput_day_noΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé on which a Lilian date falls.  Γöé
  379. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  380. Γöé                                           Γöé Computes the current Greenwich  Γöé
  381. Γöé >>ΓöÇΓöÇCEEGMTΓöÇΓöÇ(ΓöÇΓöÇoutput_GMT_LilianΓöÇΓöÇ,ΓöÇΓöÇoutput_GMT_secondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé Mean Time (GMT) as both a    Γöé
  382. Γöé                                           Γöé Lilian date and as the number  Γöé
  383. Γöé                                           Γöé of seconds since 00:00:00 14   Γöé
  384. Γöé                                           Γöé October 1582.          Γöé
  385. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  386. Γöé                                           Γöé Computes values to the calling  Γöé
  387. Γöé >>ΓöÇΓöÇCEEGMTOΓöÇΓöÇ(ΓöÇΓöÇoffset_hoursΓöÇΓöÇ,ΓöÇΓöÇoffset_minutesΓöÇΓöÇ,ΓöÇΓöÇoffset_secondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇ>< Γöé routine that represent the dif- Γöé
  388. Γöé                                           Γöé ference between the local    Γöé
  389. Γöé                                           Γöé system time and Greenwich Mean  Γöé
  390. Γöé                                           Γöé Time.              Γöé
  391. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  392. Γöé                                           Γöé Converts separate binary inte-  Γöé
  393. Γöé >>ΓöÇΓöÇCEEISECΓöÇΓöÇ(ΓöÇΓöÇinput_yearΓöÇΓöÇ,ΓöÇΓöÇinput_monthsΓöÇΓöÇ,ΓöÇΓöÇinput_dayΓöÇΓöÇ,ΓöÇΓöÇinput_hoursΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé gers representing year, month,  Γöé
  394. Γöé                                           Γöé day, hour, minute, second, and  Γöé
  395. Γöé >ΓöÇΓöÇinput_minutesΓöÇΓöÇ,ΓöÇΓöÇinput_secondsΓöÇΓöÇ,ΓöÇΓöÇinput_millisecondsΓöÇΓöÇ,ΓöÇΓöÇoutput_secondsΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé millisecond to a number repres- Γöé
  396. Γöé                                           Γöé enting the number of seconds   Γöé
  397. Γöé >ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé since 00:00:00 14 October 1582. Γöé
  398. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  399. Γöé                                           Γöé Gets the current local time in  Γöé
  400. Γöé >>ΓöÇΓöÇCEELOCTΓöÇΓöÇ(ΓöÇΓöÇoutput_LilianΓöÇΓöÇ,ΓöÇΓöÇoutput_secondsΓöÇΓöÇ,ΓöÇΓöÇoutput_GregorianΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé three formats.          Γöé
  401. Γöé                                           Γöé                 Γöé
  402. Γöé >ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  403. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  404. Γöé                                           Γöé Queries the century within    Γöé
  405. Γöé >>ΓöÇΓöÇCEEQCENΓöÇΓöÇ(ΓöÇΓöÇcentury_startΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé which LE/370 assumes two-digit  Γöé
  406. Γöé                                           Γöé year values lie.         Γöé
  407. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  408. Γöé                                           Γöé Sets the century in which    Γöé
  409. Γöé >>ΓöÇΓöÇCEESCENΓöÇΓöÇ(ΓöÇΓöÇcentury_startΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé LE/370 assumes two-digit year  Γöé
  410. Γöé                                           Γöé values lie.           Γöé
  411. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  412. Γöé                                           Γöé Converts a number representing  Γöé
  413. Γöé >>ΓöÇΓöÇCEESECIΓöÇΓöÇ(ΓöÇΓöÇinput_secondsΓöÇΓöÇ,ΓöÇΓöÇoutput_yearΓöÇΓöÇ,ΓöÇΓöÇoutput_monthΓöÇΓöÇ,ΓöÇΓöÇoutput_dayΓöÇΓöÇΓöÇΓöÇ> Γöé the number of seconds since   Γöé
  414. Γöé                                           Γöé 00:00:00 14 October 1582 to   Γöé
  415. Γöé >ΓöÇΓöÇ,ΓöÇΓöÇoutput_hoursΓöÇΓöÇ,ΓöÇΓöÇoutput_minutesΓöÇΓöÇ,ΓöÇΓöÇoutput_secondsΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé seven separate binary integers  Γöé
  416. Γöé                                           Γöé representing year, month, day,  Γöé
  417. Γöé >ΓöÇΓöÇoutput_millisecondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé hour, minute, second, and    Γöé
  418. Γöé                                           Γöé millisecond.           Γöé
  419. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  420. Γöé                                           Γöé Converts a string representing  Γöé
  421. Γöé >>ΓöÇΓöÇCEESECSΓöÇΓöÇ(ΓöÇΓöÇinput_timestampΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_secondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé a timestamp into a number    Γöé
  422. Γöé                                           Γöé representing the number of    Γöé
  423. Γöé >ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé seconds since 00:00:00 14    Γöé
  424. Γöé                                           Γöé October 1582.          Γöé
  425. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  426.  
  427.  
  428. ΓòÉΓòÉΓòÉ 1.4. Dynamic Storage Callable Services ΓòÉΓòÉΓòÉ
  429.  
  430. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  431. Γöé Table 4. Dynamic Storage Callable Services                                      Γöé
  432. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  433. Γöé CALLABLE SERVICE                                  Γöé FUNCTION             Γöé
  434. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  435. Γöé                                           Γöé Sets the heading displayed at  Γöé
  436. Γöé >>ΓöÇΓöÇCEE3RPHΓöÇΓöÇ(ΓöÇΓöÇreport_headingΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé the top of the storage or    Γöé
  437. Γöé                                           Γöé options reports that are gener- Γöé
  438. Γöé                                           Γöé ated when you specify the    Γöé
  439. Γöé                                           Γöé RPTSTG(ON) or RPTOPTS(ON) run-  Γöé
  440. Γöé                                           Γöé time options.          Γöé
  441. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  442. Γöé                                           Γöé Defines additional heaps.    Γöé
  443. Γöé >>ΓöÇΓöÇCEECRHPΓöÇΓöÇ(ΓöÇΓöÇheap_idΓöÇΓöÇ,ΓöÇΓöÇinitial_sizeΓöÇΓöÇ,ΓöÇΓöÇincrementΓöÇΓöÇ,ΓöÇΓöÇoptionsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  444. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  445. Γöé                                           Γöé Changes the size of a previ-   Γöé
  446. Γöé >>ΓöÇΓöÇCEECZSTΓöÇΓöÇ(ΓöÇΓöÇaddressΓöÇΓöÇ,ΓöÇΓöÇnew_sizeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé ously allocated storage     Γöé
  447. Γöé                                           Γöé element, while preserving its  Γöé
  448. Γöé                                           Γöé contents.            Γöé
  449. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  450. Γöé                                           Γöé Discards an entire heap that   Γöé
  451. Γöé >>ΓöÇΓöÇCEEDSHPΓöÇΓöÇ(ΓöÇΓöÇheap_idΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé you created previously with a  Γöé
  452. Γöé                                           Γöé call to CEECRHP.         Γöé
  453. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  454. Γöé                                           Γöé Frees storage previously allo-  Γöé
  455. Γöé >>ΓöÇΓöÇCEEFRSTΓöÇΓöÇ(ΓöÇΓöÇaddressΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé cated by CEEGTST or a language  Γöé
  456. Γöé                                           Γöé intrinsic function.       Γöé
  457. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  458. Γöé                                           Γöé Allocates storage from a heap  Γöé
  459. Γöé >>ΓöÇΓöÇCEEGTSTΓöÇΓöÇ(ΓöÇΓöÇheap_idΓöÇΓöÇ,ΓöÇΓöÇsizeΓöÇΓöÇ,ΓöÇΓöÇaddressΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé whose ID you specify.      Γöé
  460. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  461.  
  462.  
  463. ΓòÉΓòÉΓòÉ 1.5. General Callable Services ΓòÉΓòÉΓòÉ
  464.  
  465. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  466. Γöé Table 5. General Callable Services                                          Γöé
  467. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  468. Γöé CALLABLE SERVICE                                  Γöé FUNCTION             Γöé
  469. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  470. Γöé                                           Γöé Generates a dump of the run-   Γöé
  471. Γöé >>ΓöÇΓöÇCEE3DMPΓöÇΓöÇ(ΓöÇΓöÇtitleΓöÇΓöÇ,ΓöÇΓöÇoptionsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé time environment of LE/370 and  Γöé
  472. Γöé                                           Γöé the member language libraries.  Γöé
  473. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  474. Γöé                                           Γöé Computes to the calling routine Γöé
  475. Γöé >>ΓöÇΓöÇCEE3PRMΓöÇΓöÇ(ΓöÇΓöÇchar_parm_stringΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé the argument string that was   Γöé
  476. Γöé                                           Γöé specified at invocation of the  Γöé
  477. Γöé                                           Γöé program.             Γöé
  478. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  479. Γöé                                           Γöé Sets or queries one of two    Γöé
  480. Γöé >>ΓöÇΓöÇCEE3USRΓöÇΓöÇ(ΓöÇΓöÇfunction_codeΓöÇΓöÇ,ΓöÇΓöÇfield_numberΓöÇΓöÇ,ΓöÇΓöÇfield_valueΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé 4-byte fields known as the user Γöé
  481. Γöé                                           Γöé area fields.           Γöé
  482. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  483. Γöé                                           Γöé Generates a sequence of uniform Γöé
  484. Γöé >>ΓöÇΓöÇCEERAN0ΓöÇΓöÇ(ΓöÇΓöÇseedΓöÇΓöÇ,ΓöÇΓöÇrandom_noΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé pseudo-random numbers between  Γöé
  485. Γöé                                           Γöé 0.0 and 1.0 using the multipli- Γöé
  486. Γöé                                           Γöé cative congruential method with Γöé
  487. Γöé                                           Γöé a user-specified seed.      Γöé
  488. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  489. Γöé                                           Γöé Invokes a debug tool, such as  Γöé
  490. Γöé >>ΓöÇΓöÇCEETESTΓöÇΓöÇ(ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ.ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé Debug Tool/370.         Γöé
  491. Γöé         '-string_of_commandsΓöÇΓöÇ,-'                      Γöé                 Γöé
  492. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  493.  
  494.  
  495. ΓòÉΓòÉΓòÉ 1.6. Initialization and Termination Services ΓòÉΓòÉΓòÉ
  496.  
  497. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  498. Γöé Table 6. Initialization and Termination Services                                   Γöé
  499. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  500. Γöé CALLABLE SERVICE                                  Γöé FUNCTION             Γöé
  501. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  502. Γöé                                           Γöé Terminates the enclave with an  Γöé
  503. Γöé >>ΓöÇΓöÇCEE3ABDΓöÇΓöÇ(ΓöÇΓöÇabcodeΓöÇΓöÇ,ΓöÇΓöÇclean-upΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé abend.  The abend can be issued Γöé
  504. Γöé                                           Γöé either with or without      Γöé
  505. Γöé                                           Γöé clean-up.            Γöé
  506. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  507. Γöé                                           Γöé Gets the enclave return code.  Γöé
  508. Γöé >>ΓöÇΓöÇCEE3GRCΓöÇΓöÇ(ΓöÇΓöÇreturn_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  509. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  510. Γöé                                           Γöé Sets the enclave return code.  Γöé
  511. Γöé >>ΓöÇΓöÇCEE3SRCΓöÇΓöÇ(ΓöÇΓöÇreturn_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  512. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  513.  
  514.  
  515. ΓòÉΓòÉΓòÉ 1.7. Math Services ΓòÉΓòÉΓòÉ
  516.  
  517. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  518. Γöé Table 7. Math Services                                                Γöé
  519. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  520. Γöé MATH SERVICE                                    Γöé FUNCTION             Γöé
  521. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  522. Γöé                                           Γöé Absolute value          Γöé
  523. Γöé >>ΓöÇΓöÇCEESxABSΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  524. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  525. Γöé                                           Γöé Arccosine            Γöé
  526. Γöé >>ΓöÇΓöÇCEESxACSΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  527. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  528. Γöé                                           Γöé Arcsine             Γöé
  529. Γöé >>ΓöÇΓöÇCEESxASNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  530. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  531. Γöé                                           Γöé Hyperbolic arctangent      Γöé
  532. Γöé >>ΓöÇΓöÇCEESxATHΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  533. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  534. Γöé                                           Γöé Arctangent            Γöé
  535. Γöé >>ΓöÇΓöÇCEESxATNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  536. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  537. Γöé                                           Γöé Arctangent of two arguments   Γöé
  538. Γöé >>ΓöÇΓöÇCEESxAT2ΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  539. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  540. Γöé                                           Γöé Conjugate complex        Γöé
  541. Γöé >>ΓöÇΓöÇCEESxCJGΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  542. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  543. Γöé                                           Γöé Cosine              Γöé
  544. Γöé >>ΓöÇΓöÇCEESxCOSΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  545. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  546. Γöé                                           Γöé Hyperbolic cosine        Γöé
  547. Γöé >>ΓöÇΓöÇCEESxCSHΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  548. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  549. Γöé                                           Γöé Cotangent            Γöé
  550. Γöé >>ΓöÇΓöÇCEESxCTNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  551. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  552. Γöé                                           Γöé Positive difference       Γöé
  553. Γöé >>ΓöÇΓöÇCEESxDIMΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  554. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  555. Γöé                                           Γöé Division             Γöé
  556. Γöé >>ΓöÇΓöÇCEESxDVDΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  557. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  558. Γöé                                           Γöé Error function complement    Γöé
  559. Γöé >>ΓöÇΓöÇCEESxERCΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  560. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  561. Γöé                                           Γöé Error function          Γöé
  562. Γöé >>ΓöÇΓöÇCEESxERFΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  563. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  564. Γöé                                           Γöé Exponential (base e)       Γöé
  565. Γöé >>ΓöÇΓöÇCEESxEXPΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  566. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  567. Γöé                                           Γöé Gamma function          Γöé
  568. Γöé >>ΓöÇΓöÇCEESxGMAΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  569. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  570. Γöé                                           Γöé Imaginary part of complex    Γöé
  571. Γöé >>ΓöÇΓöÇCEESxIMGΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  572. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  573. Γöé                                           Γöé Truncation            Γöé
  574. Γöé >>ΓöÇΓöÇCEESxINTΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  575. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  576. Γöé                                           Γöé Log gamma function        Γöé
  577. Γöé >>ΓöÇΓöÇCEESxLGMΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  578. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  579. Γöé                                           Γöé Logarithm base 10        Γöé
  580. Γöé >>ΓöÇΓöÇCEESxLG1ΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  581. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  582. Γöé                                           Γöé Logarithm base 2         Γöé
  583. Γöé >>ΓöÇΓöÇCEESxLG2ΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  584. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  585. Γöé                                           Γöé Logarithm base e         Γöé
  586. Γöé >>ΓöÇΓöÇCEESxLOGΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  587. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  588. Γöé                                           Γöé Floating complex multiplication Γöé
  589. Γöé >>ΓöÇΓöÇCEESxMLTΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  590. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  591. Γöé                                           Γöé Modular arithmetic        Γöé
  592. Γöé >>ΓöÇΓöÇCEESxMODΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  593. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  594. Γöé                                           Γöé Nearest integer         Γöé
  595. Γöé >>ΓöÇΓöÇCEESxNINΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  596. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  597. Γöé                                           Γöé Nearest whole number       Γöé
  598. Γöé >>ΓöÇΓöÇCEESxNWNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  599. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  600. Γöé                                           Γöé Transfer of sign         Γöé
  601. Γöé >>ΓöÇΓöÇCEESxSGNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  602. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  603. Γöé                                           Γöé Sine               Γöé
  604. Γöé >>ΓöÇΓöÇCEESxSINΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  605. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  606. Γöé                                           Γöé Hyperbolic sine         Γöé
  607. Γöé >>ΓöÇΓöÇCEESxSNHΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  608. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  609. Γöé                                           Γöé Square root           Γöé
  610. Γöé >>ΓöÇΓöÇCEESxSQTΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  611. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  612. Γöé                                           Γöé Tangent             Γöé
  613. Γöé >>ΓöÇΓöÇCEESxTANΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  614. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  615. Γöé                                           Γöé Hyperbolic tangent        Γöé
  616. Γöé >>ΓöÇΓöÇCEESxTNHΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  617. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  618. Γöé                                           Γöé Exponential (**)         Γöé
  619. Γöé >>ΓöÇΓöÇCEESxXPxΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  620. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  621.  
  622.  
  623. ΓòÉΓòÉΓòÉ 1.8. Message Handling Callable Services ΓòÉΓòÉΓòÉ
  624.  
  625. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  626. Γöé Table 8. Message Handling Callable Services                                      Γöé
  627. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  628. Γöé CALLABLE SERVICE                                  Γöé FUNCTION             Γöé
  629. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  630. Γöé                                           Γöé Stores message insert data.   Γöé
  631. Γöé >>ΓöÇΓöÇCEECMIΓöÇΓöÇ(ΓöÇΓöÇcond_repΓöÇΓöÇ,ΓöÇΓöÇ insert_seq_numΓöÇΓöÇ,ΓöÇΓöÇinsert_dataΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé                 Γöé
  632. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  633. Γöé                                           Γöé Gets, formats, and stores in a  Γöé
  634. Γöé >>ΓöÇΓöÇCEEMGETΓöÇΓöÇ(ΓöÇΓöÇcond_tokenΓöÇΓöÇ,ΓöÇΓöÇmessage_areaΓöÇΓöÇ,ΓöÇΓöÇmsg_ptrΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé buffer a message corresponding  Γöé
  635. Γöé                                           Γöé to a condition token returned  Γöé
  636. Γöé                                           Γöé from a callable service or    Γöé
  637. Γöé                                           Γöé passed to a user-written condi- Γöé
  638. Γöé                                           Γöé tion handler.          Γöé
  639. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  640. Γöé                                           Γöé Dispatches a user-defined    Γöé
  641. Γöé >>ΓöÇΓöÇCEEMOUTΓöÇΓöÇ(ΓöÇΓöÇmessage_stringΓöÇΓöÇ,ΓöÇΓöÇdestination_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé message to the message string  Γöé
  642. Γöé                                           Γöé file.              Γöé
  643. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  644. Γöé                                           Γöé Gets, formats, and dispatches a Γöé
  645. Γöé >>ΓöÇΓöÇCEEMSGΓöÇΓöÇ(ΓöÇΓöÇcond_tokenΓöÇΓöÇ,ΓöÇΓöÇdestination_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé message corresponding to an   Γöé
  646. Γöé                                           Γöé input condition token received  Γöé
  647. Γöé                                           Γöé from a callable service or    Γöé
  648. Γöé                                           Γöé passed to a user-written condi- Γöé
  649. Γöé                                           Γöé tion handler.          Γöé
  650. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  651.  
  652.  
  653. ΓòÉΓòÉΓòÉ 1.9. National Language Support Callable Services ΓòÉΓòÉΓòÉ
  654.  
  655. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  656. Γöé Table 9. National Language Support Callable Services                       Γöé
  657. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  658. Γöé CALLABLE SERVICE                           Γöé FUNCTION          Γöé
  659. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  660. Γöé                                    Γöé Changes or queries the   Γöé
  661. Γöé >>ΓöÇΓöÇCEE3CTYΓöÇΓöÇ(ΓöÇΓöÇfunctionΓöÇΓöÇ,ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé current national country  Γöé
  662. Γöé                                    Γöé setting.          Γöé
  663. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  664. Γöé                                    Γöé Changes or queries the   Γöé
  665. Γöé >>ΓöÇΓöÇCEE3LNGΓöÇΓöÇ(ΓöÇΓöÇfunctionΓöÇΓöÇ,ΓöÇΓöÇdesired_languageΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé current national lan-   Γöé
  666. Γöé                                    Γöé guage.           Γöé
  667. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  668. Γöé                                    Γöé Gets the default currency Γöé
  669. Γöé >>ΓöÇΓöÇCEE3MCSΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇcurrency_symbolΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé symbol for a country    Γöé
  670. Γöé                                    Γöé specified in        Γöé
  671. Γöé                                    Γöé country_code.       Γöé
  672. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  673. Γöé                                    Γöé Gets the default decimal  Γöé
  674. Γöé >>ΓöÇΓöÇCEE3MDSΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇdecimal_separatorΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé separator for the country Γöé
  675. Γöé                                    Γöé specified in        Γöé
  676. Γöé                                    Γöé country_code.       Γöé
  677. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  678. Γöé                                    Γöé Gets the default thou-   Γöé
  679. Γöé >>ΓöÇΓöÇCEE3MTSΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇthousands_separatorΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇ>< Γöé sands separator for the  Γöé
  680. Γöé                                    Γöé country that you specify  Γöé
  681. Γöé                                    Γöé in country_code      Γöé
  682. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  683. Γöé                                    Γöé Gets the default date   Γöé
  684. Γöé >>ΓöÇΓöÇCEEFMDAΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇdate_pic_strΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé picture string for a    Γöé
  685. Γöé                                    Γöé country specified in    Γöé
  686. Γöé                                    Γöé country_code.       Γöé
  687. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  688. Γöé                                    Γöé Gets the default date and Γöé
  689. Γöé >>ΓöÇΓöÇCEEFMDTΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇdatetime_strΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé time picture strings for  Γöé
  690. Γöé                                    Γöé the country specified in  Γöé
  691. Γöé                                    Γöé country_code.       Γöé
  692. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  693. Γöé                                    Γöé Gets the default time   Γöé
  694. Γöé >>ΓöÇΓöÇCEEFMTMΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇtime_pic_strΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé picture string for the   Γöé
  695. Γöé                                    Γöé country specified in    Γöé
  696. Γöé                                    Γöé country_code.       Γöé
  697. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  698.  
  699.  
  700. ΓòÉΓòÉΓòÉ 2. LE/370 Run-Time Options ΓòÉΓòÉΓòÉ
  701.  
  702. This chapter describes the LE/370 run-time options, their syntax, and their 
  703. usage. 
  704.  
  705. IBM-supplied default settings for the options are indicated in the syntax 
  706. diagrams or, where applicable, are underlined in the suboption descriptions. 
  707. The minimum unambiguous abbreviation of each LE/370 option is also indicated in 
  708. its syntax diagram with capital letters (for example, ABPerc indicates that ABP 
  709. is the minimum abbreviation). 
  710.  
  711. For a list of all the LE/370 run-time options,
  712. see LE/370 Quick Reference Tables.
  713.  
  714. This section contains the following run-time options: 
  715.  
  716. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  717. Γöé ABPERC             Γöé ABTERMENC            Γöé AIXBLD | NOAIXBLD        Γöé
  718. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  719. Γöé ALL31              Γöé ANYHEAP             Γöé ARGPARSE | NOARGPARSE      Γöé
  720. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  721. Γöé BELOWHEAP            Γöé CBLOPTS             Γöé CBLPSHPOP            Γöé
  722. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  723. Γöé CBLQDA             Γöé CHECK              Γöé COUNTRY             Γöé
  724. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  725. Γöé DEBUG | NODEBUG         Γöé DEPTHCONDLMT          Γöé ENV               Γöé
  726. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  727. Γöé ENVAR              Γöé ERRCOUNT            Γöé EXECOPS | NOEXECOPS       Γöé
  728. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  729. Γöé FLOW              Γöé HEAP              Γöé INTERRUPT            Γöé
  730. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  731. Γöé LIBSTACK            Γöé MSGFILE             Γöé MSGFILE             Γöé
  732. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  733. Γöé MSGQ              Γöé NATLANG             Γöé PLIST              Γöé
  734. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  735. Γöé POSIX              Γöé REDIR | NOREDIR         Γöé RPTOPTS             Γöé
  736. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  737. Γöé RPTSTG             Γöé RTEREUS             Γöé SIMVRD             Γöé
  738. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  739. Γöé STACK              Γöé STORAGE             Γöé TERMTHDACT           Γöé
  740. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  741. Γöé TEST | NOTEST          Γöé TRAP              Γöé UPSI              Γöé
  742. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  743. Γöé VCTRSAVE            Γöé XUFLOW             Γöé                 Γöé
  744. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  745.  
  746.  
  747. ΓòÉΓòÉΓòÉ 2.1. How to Specify Run-Time Options ΓòÉΓòÉΓòÉ
  748.  
  749. When specifying run-time options, use commas to separate any suboptions of 
  750. those options. If you do not specify a suboption, you must still specify the 
  751. comma to indicate its omission, for example; STACK(,,ANYWHERE,FREE). Trailing 
  752. commas, however, are not required; STACK(4K,4K,ANYWHERE) is valid. If you do 
  753. not specify any suboptions, either of the following is valid: STACK or STACK(). 
  754.  
  755. For more information about specifying LE/370 run-time options, see LE/370 
  756. Programming Guide. 
  757.  
  758.  
  759. ΓòÉΓòÉΓòÉ 2.1.1. ABPERC ΓòÉΓòÉΓòÉ
  760.  
  761. ABPERC percolates an abend whose code you specify. 
  762.  
  763. The ABPERC option is a debug tool that specifies the application can run with 
  764. TRAP set to ON. This provides LE/370 semantics for everything except one abend, 
  765. whose code you specify. 
  766.  
  767. When you run with ABPERC and encounter the specified abend: 
  768.  
  769.  User condition handlers are not enabled. 
  770.  
  771.  In OpenEdition* MVS, POSIX signal handling semantics are not enabled for the 
  772.   abend. 
  773.  
  774.  No storage report or run-time options report is generated. 
  775.  
  776.  No LE/370 messages or LE/370 dump output is generated. 
  777.  
  778.  The assembler user exit is not driven for enclave termination. 
  779.  
  780.  The abnormal termination exit (if there is one) is not driven. 
  781.  
  782.  Files opened by HLLs are not closed by LE/370, so records might be lost. 
  783.  
  784.  Resources acquired by LE/370 are not freed. 
  785.  
  786.  The debug tool is not notified of the error. 
  787.  
  788. You can specify a list of abend codes on the assembler user exit for the 
  789. condition manager to percolate. 
  790.  
  791. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  792. Γöé                                                  Γöé
  793. Γöé         ΓöîΓöÇNONEΓöÇΓöÇΓöÇΓöÉ                                     Γöé
  794. Γöé >>ΓöÇΓöÇABPercΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  795. Γöé         ΓööΓöÇabcodeΓöÇΓöÿ                                     Γöé
  796. Γöé                                                  Γöé
  797. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  798.  
  799. NONE 
  800.     Specifies that all abends are handled according to LE/370 condition 
  801.     handling semantics. 
  802.  
  803. abcode 
  804.     Specifies the code number of the abend to percolate. 
  805.  
  806.     abcode can be specified as: 
  807.  
  808.    Shhh      A system abend code where hhh is the hex system abend code 
  809.  
  810.    Udddd     A user abend code where dddd is a decimal user-issued abend code 
  811.  
  812.              Any 4-character string can also be used as an abcode. 
  813.  
  814.              You can identify only one abend code with this option. However, an 
  815.              abend U0000 is interpreted in the same way as S000. 
  816.  
  817. Usage Notes 
  818.  
  819.  LE/370 ignores ABPERC(0Cx). In this instance, no abend is percolated, and 
  820.   LE/370 condition handling semantics are in effect. 
  821.  
  822.  CICS consideration-ABPERC is ignored under CICS. 
  823.  
  824.  OpenEdition MVS consideration-ABPERC percolates an abend regardless of the 
  825.   thread in which it occurs. 
  826.  
  827.  
  828. ΓòÉΓòÉΓòÉ 2.1.2. ABTERMENC ΓòÉΓòÉΓòÉ
  829.  
  830. ABTERMENC sets the enclave termination behavior for an enclave ending with an 
  831. unhandled condition of severity 2 or greater. TRAP(ON) must be in effect for 
  832. ABTERMENC to have an effect. 
  833.  
  834. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  835. Γöé                                                  Γöé
  836. Γöé          ΓöîΓöÇRETCODEΓöÇΓöÉ                                   Γöé
  837. Γöé >>ΓöÇΓöÇABTermencΓöÇΓöÇ(ΓöÇΓöÇΓö┤ΓöÇABENDΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  838. Γöé                                                  Γöé
  839. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  840.  
  841. RETCODE 
  842.     Specifies that the enclave terminates with a normal return code and reason 
  843.     code. 
  844.  
  845.     However, the assembler user exit can modify this behavior as follows: 
  846.  
  847.     If the assembler user exit does not set the CEEAUE_ABND flag to ON during 
  848.      enclave termination, LE/370 returns to its caller with a return code and a 
  849.      reason code. 
  850.  
  851.     If the assembler user exit sets the CEEAUE_ABND flag to ON during enclave 
  852.      termination, LE/370 issues an abend to terminate the enclave. LE/370 sets 
  853.      the abend and reason code for the abend to equal the values of 
  854.      assembler-user-exit parameters, as follows: 
  855.  
  856.       - Abend code: Value of the CEEAUE_RETURN parameter of the assembler user 
  857.         exit. If the assembler user exit does not modify the CEEAUE_RETURN 
  858.         value, LE/370 sets an abend code that maps to the severity of the 
  859.         condition and to the user return code. 
  860.  
  861.       - Reason code: Value of the CEEAUE_REASON parameter of the assembler user 
  862.         exit. 
  863.  
  864. ABEND 
  865.     Specifies that LE/370 issues an abend to end the enclave regardless of the 
  866.     setting of the CEEAUE_ABND flag by the assembler user exit. However, the 
  867.     setting of the CEEAUE_ABND flag affects the abend processing, as follows: 
  868.  
  869.     When CEEAUE_ABND is off, the following occurs: 
  870.  
  871.     Abend code: LE/370 sets an abend code value that depends on the type of 
  872.      unhandled condition. 
  873.  
  874.     Reason code: LE/370 sets a reason code value that depends on the type of 
  875.      unhandled condition. 
  876.  
  877.     Abend dump attribute: LE/370 does not request a system dump. 
  878.  
  879.     Abend task/step attribute (on MVS): An abend is issued to terminate the 
  880.      task. 
  881.  
  882.     When CEEAUE_ABND is on, LE/370 uses values set by the assembler user exit 
  883.     to determine abend processing: 
  884.  
  885.     Abend code: Value of the CEEAUE_RETURN parameter of the assembler user 
  886.      exit. 
  887.  
  888.     Reason code: Value of the CEEAUE_REASON parameter of the assembler user 
  889.      exit. 
  890.  
  891.     Abend dump attribute: LE/370 requests a system dump only if the assembler 
  892.      user exit sets CEEAUE_DUMP to ON. The system abend dump goes to the system 
  893.      abend ddname with the filename you define in your JCL (for MVS) or in your 
  894.      FILEDEF (for VM). The filename is the name defined in the DD card. 
  895.  
  896.     Abend task/step attribute (on MVS): If the assembler user exit sets 
  897.      CEEAUE_STEPS to ON, LE/370 issues an abend to terminate the step. 
  898.      Otherwise, LE/370 issues an abend to terminate the task. 
  899.  
  900. Usage Notes 
  901.  
  902.  COBOL considerations-ABEND is the recommended setting for COBOL customers who 
  903.   use MVS. Your system administrator can change the default value of ABTERMENC 
  904.   to ABEND. 
  905.  
  906.  CICS consideration-The default under CICS is ABTERMENC(ABEND). 
  907.  
  908.  
  909. ΓòÉΓòÉΓòÉ 2.1.3. AIXBLD | NOAIXBLD ΓòÉΓòÉΓòÉ
  910.  
  911. AIXBLD invokes the access method services (AMS) for VSAM indexed and relative 
  912. data sets (KSDS and RRDS) to complete the file and index definition procedures 
  913. for COBOL routines. 
  914.  
  915. AIXBLD conforms to the ANSI 1985 COBOL standard. 
  916.  
  917. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  918. Γöé                                                  Γöé
  919. Γöé   ΓöîΓöÇNOAIXBLDΓöÇΓöÉ                                         Γöé
  920. Γöé >>ΓöÇΓöÇΓö╝ΓöÇAIXBLDΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  921. Γöé   Γö£ΓöÇAIXΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ                                         Γöé
  922. Γöé   ΓööΓöÇNOAIXΓöÇΓöÇΓöÇΓöÇΓöÿ                                         Γöé
  923. Γöé                                                  Γöé
  924. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  925.  
  926. NOAIXBLD 
  927.     Does not invoke the access method services for VSAM indexed and relative 
  928.     data sets. 
  929.  
  930. AIXBLD 
  931.     Invokes the access method services for VSAM indexed and relative data sets. 
  932.  
  933. Usage Notes 
  934.  
  935.  You can use only AIX and NOAIX as abbreviations for AIXBLD and NOAIXBLD. 
  936.  
  937.  When specifying this option in CEEDOPT or CEEUOPT, use the syntax AIXBLD(ON) 
  938.   or AIXBLD(OFF). Use AIXBLD and NOAIXBLD only on the command line. 
  939.  
  940.  CICS consideration-This option is ignored under CICS. 
  941.  
  942.  MVS consideration-If you also specify the MSGFILE run-time option, the access 
  943.   method services messages are directed to the MSGFILE ddname or to the default 
  944.   SYSOUT. See MSGFILE for information about MSGFILE. 
  945.  
  946. Performance Considerations 
  947.  
  948. Running your program under AIXBLD requires more storage, which can degrade 
  949. performance. Therefore, use AIXBLD only during application development to build 
  950. alternate indices. Use NOAIXBLD when you have already defined your VSAM data 
  951. sets. 
  952.  
  953.  
  954. ΓòÉΓòÉΓòÉ 2.1.4. ALL31 ΓòÉΓòÉΓòÉ
  955.  
  956. ALL31 specifies whether an application can run entirely in AMODE(31) or whether 
  957. the application has one or more AMODE(24) routines. 
  958.  
  959. This option does not implicitly alter storage, in particular storage managed by 
  960. the STACK and HEAP run-time options. However, you must be aware of your 
  961. application's requirements for stack and heap storage, because such storage can 
  962. potentially be allocated above the line while running in AMODE(24). 
  963.  
  964. ALL31 should have the same setting for all enclaves in the process, because 
  965. LE/370 does not support the invocation of a nested enclave requiring ALL31(OFF) 
  966. from an enclave running with ALL31(ON). 
  967.  
  968. In a multithread environment, LE/370 invokes all start routines in AMODE(31). 
  969.  
  970. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  971. Γöé                                                  Γöé
  972. Γöé        ΓöîΓöÇOFFΓöÇΓöÉ                                       Γöé
  973. Γöé >>ΓöÇΓöÇALl31ΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  974. Γöé        ΓööΓöÇONΓöÇΓöÇΓöÿ                                       Γöé
  975. Γöé                                                  Γöé
  976. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  977.  
  978. OFF 
  979.     Indicates that one or more routines of an LE/370 application are AMODE(24). 
  980.  
  981.     With ALL31(OFF) specified: 
  982.  
  983.     AMODE switching across calls to LE/370 common run-time routines is 
  984.      performed.  For example, AMODE switching is performed on calls to LE/370 
  985.      callable services. 
  986.  
  987.     In COBOL, external data is allocated in storage below the 16M line. 
  988.  
  989.     If you use the default setting ALL31(OFF), you must also use the default 
  990.     setting STACK(,,BELOW). AMODE(24) routines usually require stack storage 
  991.     below the 16M line. See STACK for information about STACK. 
  992.  
  993. ON 
  994.     Indicates that no user routines of an LE/370 application are AMODE(24). 
  995.  
  996.     With ALL31(ON) specified: 
  997.  
  998.     AMODE switching across calls to LE/370 common run-time routines is 
  999.      minimized. For example, no AMODE switching is performed on calls to LE/370 
  1000.      callable services. 
  1001.  
  1002.     In COBOL, external data is allocated in unrestricted storage. 
  1003.  
  1004. Usage Notes 
  1005.  
  1006.  CICS consideration-The default under CICS is ALL31(ON). 
  1007.  
  1008.  OpenEdition MVS consideration-The ALL31 option applies to the enclave. 
  1009.  
  1010. Performance Consideration 
  1011.  
  1012. If your application consists entirely of AMODE (31) routines, it might run 
  1013. faster with ALL31(ON) than with ALL31(OFF) because mode switching code is not 
  1014. required. 
  1015.  
  1016.  
  1017. ΓòÉΓòÉΓòÉ 2.1.5. ANYHEAP ΓòÉΓòÉΓòÉ
  1018.  
  1019. ANYHEAP controls the allocation of library heap storage that is not restricted 
  1020. to a location below the 16M line. 
  1021.  
  1022. The ANYHEAP option is always in effect. If you do not specify ANYHEAP or if you 
  1023. specify ANYHEAP(0), LE/370 allocates the value of 32K when a call is made to 
  1024. obtain heap storage. 
  1025.  
  1026. The IBM-supplied default is (32K,16K,ANYWHERE,FREE). 
  1027.  
  1028. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1029. Γöé                                                  Γöé
  1030. Γöé                           ΓöîΓöÇANYwhereΓöÇΓöÉ   ΓöîΓöÇFREEΓöÇΓöÉ           Γöé
  1031. Γöé >>ΓöÇΓöÇANyheapΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1032. Γöé         ΓööΓöÇinit_sizeΓöÇΓöÿ   ΓööΓöÇincr_sizeΓöÇΓöÿ   ΓööΓöÇBELOWΓöÇΓöÇΓöÇΓöÇΓöÿ   ΓööΓöÇKEEPΓöÇΓöÿ           Γöé
  1033. Γöé                                                  Γöé
  1034. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1035.  
  1036. init_size 
  1037.     Determines the minimum initial size of the anywhere heap storage. This 
  1038.     value can be specified as n, nK, or nM bytes of storage. The actual amount 
  1039.     of allocated storage is rounded up to the nearest multiple of 4K. 
  1040.  
  1041. incr_size 
  1042.     Determines the minimum size of any subsequent increment to the anywhere 
  1043.     heap area, and is specified in n, nK, or nM bytes of storage. This value is 
  1044.     rounded up to the nearest multiple of 4K. 
  1045.  
  1046. ANYwhere 
  1047.     Specifies that heap storage can be allocated anywhere in storage. On 
  1048.     systems that support bimodal addressing, storage can be allocated either 
  1049.     above or below the 16M line. If there is no storage available above the 
  1050.     line, storage is acquired below the line. On systems that do not support 
  1051.     bimodal addressing (for example, when VM/ESA* is initially loaded in 370 
  1052.     mode), this option is ignored and heap storage is placed below 16M. 
  1053.  
  1054. BELOW 
  1055.     Specifies that heap storage must be allocated below the 16M line in storage 
  1056.     that is accessible to 24-bit addressing. 
  1057.  
  1058. FREE 
  1059.     Specifies that storage allocated to ANYHEAP increments is released when the 
  1060.     last of the storage is freed. 
  1061.  
  1062. KEEP 
  1063.     Specifies that storage allocated to ANYHEAP increments is not released when 
  1064.     the last of the storage is freed. 
  1065.  
  1066. Usage Notes 
  1067.  
  1068.  CICS consideration-Under CICS, ANYHEAP assumes the defaults 
  1069.   ANYHEAP(4K,4K,ANYWHERE,FREE). Both the initial size and the increment size 
  1070.   are rounded up to the nearest multiple of 8 bytes. The minimum is 4K. If you 
  1071.   specify ANYHEAP or ANYHEAP(0), LE/370 assumes the default value of 4K. The 
  1072.   maximum initial and increment size for ANYHEAP under CICS is 1 gigabyte 
  1073.   (1024M). 
  1074.  
  1075.  OpenEdition MVS consideration-The ANYHEAP option applies to the enclave. 
  1076.  
  1077. Performance Considerations 
  1078.  
  1079. The ANYHEAP option improves performance when you specify values that minimize 
  1080. the number of times the operating system allocates storage. The RPTSTG run-time 
  1081. option generates a report of the storage the application uses while running; 
  1082. you can use the report numbers to help determine what values to specify. 
  1083.  
  1084. See RPTSTG for more information about the RPTSTG run-time option. 
  1085.  
  1086.  
  1087. ΓòÉΓòÉΓòÉ 2.1.6. ARGPARSE | NOARGPARSE ΓòÉΓòÉΓòÉ
  1088.  
  1089. ARGPARSE specifies whether arguments on the command line are to be parsed in 
  1090. the usual C/370 format. This option is restricted to applications in which 
  1091. C/370 is the main routine. You can specify it only by using #pragma runopts. 
  1092.  
  1093. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1094. Γöé                                                  Γöé
  1095. Γöé   ΓöîΓöÇARGPARSEΓöÇΓöÇΓöÇΓöÉ                                        Γöé
  1096. Γöé >>ΓöÇΓöÇΓö┤ΓöÇNOARGPARSEΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1097. Γöé                                                  Γöé
  1098. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1099.  
  1100. ARGPARSE 
  1101.     Specifies that arguments given on the command line are to be parsed and 
  1102.     given to the main() function in the usual C/370 argument format (argv, and 
  1103.     argc). 
  1104.  
  1105. NOARGPARSE 
  1106.     Specifies that arguments given on the command line are not parsed, but are 
  1107.     passed to the main() function as one string. Therefore, argc has a 2 value 
  1108.     and argv[1] contains a pointer to the string. 
  1109.  
  1110. Usage Note 
  1111.  
  1112.  CICS consideration-This option is ignored under CICS. 
  1113.  
  1114.  OpenEdition MVS consideration-The ARGPARSE option applies only to the main 
  1115.   routine of the initial thread. 
  1116.  
  1117.  
  1118. ΓòÉΓòÉΓòÉ 2.1.7. BELOWHEAP ΓòÉΓòÉΓòÉ
  1119.  
  1120. BELOWHEAP controls the allocation of library heap storage that must be located 
  1121. below the 16M line. The heap controlled by BELOWHEAP is intended for items such 
  1122. as control blocks used for I/O. 
  1123.  
  1124. The BELOWHEAP option is always in effect. If you do not specify BELOWHEAP or if 
  1125. you specify BELOWHEAP(0), the value of 32K is allocated when a call is made to 
  1126. obtain heap storage. 
  1127.  
  1128. The IBM-supplied default is (32K,16K,FREE). 
  1129.  
  1130. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1131. Γöé                                                  Γöé
  1132. Γöé                            ΓöîΓöÇFREEΓöÇΓöÉ                  Γöé
  1133. Γöé >>ΓöÇΓöÇBElowheapΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1134. Γöé          ΓööΓöÇinit_sizeΓöÇΓöÿ   ΓööΓöÇincr_sizeΓöÇΓöÿ   ΓööΓöÇKEEPΓöÇΓöÿ                  Γöé
  1135. Γöé                                                  Γöé
  1136. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1137.  
  1138. init_size 
  1139.     Determines the minimum initial size of the below heap storage. This value 
  1140.     can be specified as n, nK, or nM bytes of storage. The actual amount of 
  1141.     allocated storage is rounded up to the nearest multiple of 4K. 
  1142.  
  1143. incr_size 
  1144.     Determines the minimum size of any subsequent increment to the area below 
  1145.     the 16M line, and is specified in n, nK, or nM bytes of storage. This value 
  1146.     is rounded up to the nearest multiple of 4K. 
  1147.  
  1148. FREE 
  1149.     Specifies that storage allocated to BELOWHEAP increments is released when 
  1150.     the last of the storage is freed. 
  1151.  
  1152. KEEP 
  1153.     Specifies that storage allocated to BELOWHEAP increments is not released 
  1154.     when the last of the storage is freed. 
  1155.  
  1156. Usage Notes 
  1157.  
  1158.  CICS considerations-Under CICS, BELOWHEAP assumes the defaults 
  1159.   BELOWHEAP(4K,4K,FREE). 
  1160.  
  1161.   Both the initial size and the increment size are rounded to the nearest 
  1162.   multiple of 8 bytes. The minimum is 4K. If you specify BELOWHEAP(0), both 
  1163.   init_size and incr_size assume the IBM-supplied default of 4K. 
  1164.  
  1165.  OpenEdition MVS consideration-The BELOWHEAP option applies to the enclave. 
  1166.  
  1167. Performance Considerations 
  1168.  
  1169. BELOWHEAP improves performance when you specify values that minimize the number 
  1170. of times that the operating system allocates storage. The RPTSTG run-time 
  1171. option generates a report of storage your application uses while running. You 
  1172. can use its numbers to help determine what values to specify. 
  1173.  
  1174. See RPTSTG for more information about the RPTSTG run-time option. 
  1175.  
  1176.  
  1177. ΓòÉΓòÉΓòÉ 2.1.8. CBLOPTS ΓòÉΓòÉΓòÉ
  1178.  
  1179. CBLOPTS specifies the format of the parameter string on application invocation 
  1180. when the main routine is COBOL. CBLOPTS determines whether run-time options or 
  1181. program arguments appear first in the parameter string. 
  1182.  
  1183. You can specify this option only in CEEUOPT or CEEDOPT at initialization. 
  1184.  
  1185. When you specify the ON suboption of CBLOPTS in CEEUOPT or CEEDOPT, the 
  1186. run-time arguments and program arguments specified in the JCL or on the command 
  1187. line are honored in the following order: 
  1188.  
  1189. program arguments/run-time options 
  1190. This order is the reverse of that normally honored by LE/370. 
  1191.  
  1192. Use this option only when the main routine is COBOL. Otherwise, LE/370 expects 
  1193. run-time options to precede program arguments. 
  1194.  
  1195. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1196. Γöé                                                  Γöé
  1197. Γöé         ΓöîΓöÇONΓöÇΓöÇΓöÉ                                      Γöé
  1198. Γöé >>ΓöÇΓöÇCBLOptsΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1199. Γöé         ΓööΓöÇOFFΓöÇΓöÿ                                      Γöé
  1200. Γöé                                                  Γöé
  1201. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1202.  
  1203. ON 
  1204.     Specifies that program arguments appear first in the parameter string. 
  1205.  
  1206. OFF 
  1207.     Specifies that run-time options appear first in the parameter string. 
  1208.  
  1209.  
  1210. ΓòÉΓòÉΓòÉ 2.1.9. CBLPSHPOP ΓòÉΓòÉΓòÉ
  1211.  
  1212. CBLPSHPOP controls whether CICS PUSH HANDLE and CICS POP HANDLE commands are 
  1213. issued when a COBOL (VS COBOL II or COBOL/370) subroutine is called. 
  1214.  
  1215. Specify CBLPSHPOP(ON) to avoid compatibility problems when calling COBOL/370 or 
  1216. VS COBOL II subroutines that contain CICS CONDITION, AID, or ABEND condition 
  1217. handling commands. 
  1218.  
  1219. You can set the CBLPSHPOP run-time option on a transaction by transaction basis 
  1220. using CEEUOPT. 
  1221.  
  1222. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1223. Γöé                                                  Γöé
  1224. Γöé          ΓöîΓöÇONΓöÇΓöÇΓöÉ                                     Γöé
  1225. Γöé >>ΓöÇΓöÇCBLPshpopΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1226. Γöé          ΓööΓöÇOFFΓöÇΓöÿ                                     Γöé
  1227. Γöé                                                  Γöé
  1228. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1229.  
  1230. ON 
  1231.     Automatically issues the following when a COBOL subroutine is called: 
  1232.  
  1233.     An EXEC CICS PUSH HANDLE command as part of the routine initialization. 
  1234.     An EXEC CICS POP HANDLE command as part of the routine termination. 
  1235.  
  1236. OFF 
  1237.     Does not issue CICS PUSH HANDLE and CICS POP HANDLE commands on a call to a 
  1238.     COBOL subroutine. 
  1239.  
  1240. Performance Consideration 
  1241.  
  1242. If your application calls COBOL subroutines under CICS, performance is better 
  1243. with CBLPSHPOP(OFF) than with CBLPSHPOP(ON). 
  1244.  
  1245.  
  1246. ΓòÉΓòÉΓòÉ 2.1.10. CBLQDA ΓòÉΓòÉΓòÉ
  1247.  
  1248. CBLQDA controls COBOL QSAM dynamic allocation on an OPEN statement. 
  1249.  
  1250. CBLQDA does not affect dynamic storage allocation for the message file 
  1251. specified in MSGFILE or the dump file. 
  1252.  
  1253. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1254. Γöé                                                  Γöé
  1255. Γöé         ΓöîΓöÇONΓöÇΓöÇΓöÉ                                      Γöé
  1256. Γöé >>ΓöÇΓöÇCBLQdaΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1257. Γöé         ΓööΓöÇOFFΓöÇΓöÿ                                      Γöé
  1258. Γöé                                                  Γöé
  1259. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1260.  
  1261. ON 
  1262.     Specifies that COBOL QSAM dynamic allocation is permitted. 
  1263.  
  1264. OFF 
  1265.     Specifies that COBOL QSAM dynamic allocation is not permitted. 
  1266.  
  1267. Usage Note 
  1268.  
  1269.  CICS consideration-This option is ignored under CICS. 
  1270.  
  1271.  
  1272. ΓòÉΓòÉΓòÉ 2.1.11. CHECK ΓòÉΓòÉΓòÉ
  1273.  
  1274. CHECK flags checking errors within an application. COBOL flags index, 
  1275. subscript, and reference modification ranges as checking errors. COBOL is the 
  1276. only language that uses the CHECK option. 
  1277.  
  1278. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1279. Γöé                                                  Γöé
  1280. Γöé        ΓöîΓöÇONΓöÇΓöÇΓöÉ                                       Γöé
  1281. Γöé >>ΓöÇΓöÇCHeckΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1282. Γöé        ΓööΓöÇOFFΓöÇΓöÿ                                       Γöé
  1283. Γöé                                                  Γöé
  1284. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1285.  
  1286. ON 
  1287.     Specifies that run-time checking is performed. 
  1288.  
  1289. OFF 
  1290.     Specifies that run-time checking is not performed. 
  1291.  
  1292. Usage Note 
  1293.  
  1294.  CHECK(ON) has no effect if NOSSRANGE was in effect at compile time. 
  1295.  
  1296. Performance Consideration 
  1297.  
  1298. If your COBOL program was compiled with SSRANGE, and you are not testing or 
  1299. debugging an application, performance improves when you specify CHECK(OFF). 
  1300.  
  1301.  
  1302. ΓòÉΓòÉΓòÉ 2.1.12. COUNTRY ΓòÉΓòÉΓòÉ
  1303.  
  1304. COUNTRY sets the default formats for date, time, the currency symbol, the 
  1305. decimal separator, and the thousands separator, based on a specified country. 
  1306.  
  1307. You can set the country value using the run-time option COUNTRY or the callable 
  1308. service CEE3CTY. For more information about CEE3CTY, refer to CEE3CTY-Set 
  1309. Default Country. 
  1310.  
  1311. The COUNTRY setting affects the format of the date and time in the reports 
  1312. generated by the RPTOPTS and RPTSTG run-time options. For more information, see 
  1313. RPTOPTS and RPTSTG. 
  1314.  
  1315. The IBM-supplied default is COUNTRY(US), with US signifying the United States. 
  1316.  
  1317. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1318. Γöé                                                  Γöé
  1319. Γöé >>ΓöÇΓöÇCOUNTRyΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1320. Γöé         ΓööΓöÇcountry_codeΓöÇΓöÿ                                 Γöé
  1321. Γöé                                                  Γöé
  1322. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1323.  
  1324. country_code 
  1325.     A 2-character code that indicates to LE/370 the country on which to base 
  1326.     the default settings. See IBM-Supplied Country Code Defaults for a list of 
  1327.     countries and their codes. 
  1328.  
  1329. Usage Notes 
  1330.  
  1331.  If you specify a country_code that is not available on your system, LE/370 
  1332.   accepts the value and issues an informational message. When you specify an 
  1333.   unavailable country code, you must provide a message template for that code. 
  1334.  
  1335.   CEEUOPT and CEEDOPT permit the specification of an unavailable country code, 
  1336.   but give a return code of 4 and a warning message. 
  1337.  
  1338.  C/370 consideration-C/370 provides locales that map to German, Spanish, 
  1339.   French, U.S. English, and others. These locales establish default formats for 
  1340.   items such as currency symbols. To change the locale, you can use the 
  1341.   setlocale() library function. 
  1342.  
  1343.   The settings of setlocale() and the COUNTRY run-time option do not affect one 
  1344.   another. COUNTRY affects only LE/370 services; setlocale() affects only C/370 
  1345.   functions. 
  1346.  
  1347.   To ensure that all settings are correct for your country, use both 
  1348.   setlocale() and COUNTRY. 
  1349.  
  1350.  OpenEdition MVS consideration-The COUNTRY option sets the initial value for 
  1351.   the enclave. 
  1352.  
  1353.  
  1354. ΓòÉΓòÉΓòÉ 2.1.13. DEBUG | NODEBUG ΓòÉΓòÉΓòÉ
  1355.  
  1356. DEBUG activates the COBOL batch debugging features specified by the USE FOR 
  1357. DEBUGGING declarative. 
  1358.  
  1359. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1360. Γöé                                                  Γöé
  1361. Γöé   ΓöîΓöÇDEBUGΓöÇΓöÇΓöÇΓöÉ                                          Γöé
  1362. Γöé >>ΓöÇΓöÇΓö┤ΓöÇNODEBUGΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1363. Γöé                                                  Γöé
  1364. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1365.  
  1366. DEBUG 
  1367.     Activates the COBOL batch debugging features. 
  1368.  
  1369.     You must have the WITH DEBUGGING MODE clause in the environment division of 
  1370.     your application in order to compile the debugging sections. 
  1371.  
  1372. NODEBUG 
  1373.     Suppresses the COBOL batch debugging features. 
  1374.  
  1375. Usage Note 
  1376.  
  1377.  When specifying this option in CEEDOPT or CEEUOPT, use the syntax DEBUG(ON) 
  1378.   or DEBUG(OFF). Use DEBUG and NODEBUG only on the command line. 
  1379.  
  1380. Performance Consideration 
  1381.  
  1382. To improve performance, use this option only while debugging. 
  1383.  
  1384.  
  1385. ΓòÉΓòÉΓòÉ 2.1.14. DEPTHCONDLMT ΓòÉΓòÉΓòÉ
  1386.  
  1387. DEPTHCONDLMT specifies the extent to which conditions can be nested. Effect of 
  1388. DEPTHCONDLMT(3) on Condition Handlingpg=no. illustrates the effect of 
  1389. DEPTHCONDLMT(3) on condition handling. The initial condition and two nested 
  1390. conditions are handled in this example. The third nested condition is not 
  1391. handled. 
  1392.  
  1393. The IBM-supplied default is DEPTHCONDLMT(10). 
  1394.  
  1395.  
  1396.      Error
  1397.     (level 1)
  1398.       
  1399.    User-written
  1400. condition handler  ΓöÇ  Another
  1401.             error (level 2)
  1402.              
  1403.          User-written
  1404.        condition handler  ΓöÇ  Another
  1405.                    error (level 3)
  1406.                    
  1407.                  User-written
  1408.               condition handler  ΓöÇ  Another
  1409.                           error (level 4)
  1410.                            
  1411.                         Not handled
  1412.  
  1413.  
  1414. Effect of DEPTHCONDLMT(3) on Condition Handling 
  1415.  
  1416. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1417. Γöé                                                  Γöé
  1418. Γöé >>ΓöÇΓöÇDEPthcondlmtΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1419. Γöé            ΓööΓöÇlimitΓöÇΓöÿ                                  Γöé
  1420. Γöé                                                  Γöé
  1421. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1422.  
  1423. limit 
  1424.     An integer of 0 or greater value. It is the depth of condition handling 
  1425.     allowed. An unlimited depth of condition handling is allowed if you specify 
  1426.     0. 
  1427.  
  1428.     A 1 value specifies handling of the initial condition, but does not allow 
  1429.     handling of nested conditions that occur while handling a condition. With a 
  1430.     5 value, for example, the initial condition and four nested conditions are 
  1431.     processed, but there can be no further nesting of conditions. 
  1432.  
  1433.     If the number of nested conditions exceeds the limit, the application 
  1434.     terminates with abend 4091 and reason code 21 (X'15'). 
  1435.  
  1436. Usage Note 
  1437.  
  1438.  OpenEdition MVS consideration-The DEPTHCONDLMT option sets the limit for how 
  1439.   many nested synchronous conditions are allowed for a thread. Asynchronous 
  1440.   signals do not affect DEPTHCONDLMT. 
  1441.  
  1442.  
  1443. ΓòÉΓòÉΓòÉ 2.1.15. ENV ΓòÉΓòÉΓòÉ
  1444.  
  1445. ENV specifies the operating system for your C/370 application. 
  1446.  
  1447. The ENV option is restricted to applications where C/370 is the main routine. 
  1448. It can only be specified using #pragma runopts. The ENV option differs from 
  1449. other run-time options in that it does not have a standard default. The default 
  1450. depends on the system (CMS or MVS) in which compilation occurs. 
  1451.  
  1452. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1453. Γöé                                                  Γöé
  1454. Γöé >>ΓöÇΓöÇENVΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇCMSΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1455. Γöé       Γö£ΓöÇIMSΓöÇΓöñ                                        Γöé
  1456. Γöé       ΓööΓöÇMVSΓöÇΓöÿ                                        Γöé
  1457. Γöé                                                  Γöé
  1458. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1459.  
  1460. CMS 
  1461.     Specifies that the C/370 application runs in a VM environment. 
  1462.  
  1463. IMS 
  1464.     Specifies that the C/370 application runs in an IMS environment. (However, 
  1465.     you do not need to specify the ENV option if your application is invoked 
  1466.     under IMS but does not actually use IMS facilities.) 
  1467.  
  1468. MVS 
  1469.     Specifies that the C/370 application runs in an MVS environment. 
  1470.  
  1471. Usage Notes 
  1472.  
  1473.  CICS consideration-This option is ignored under CICS. 
  1474.  
  1475.  OpenEdition MVS consideration-The ENV option applies to the enclave. 
  1476.  
  1477.  
  1478. ΓòÉΓòÉΓòÉ 2.1.16. ENVAR ΓòÉΓòÉΓòÉ
  1479.  
  1480. ENVAR sets the initial values for the environment variables specified in 
  1481. string. With ENVAR you can pass switches or tagged information into the 
  1482. application using the standard POSIX functions getenv, setenv, and clearenv. 
  1483.  
  1484. When you merge the run-time options, strings are appended in the order 
  1485. encountered during the merge. Thus, values established for the environment 
  1486. variables are the accumulation of all ENVAR run-time options specified. For a 
  1487. given name=, the last value is used. 
  1488.  
  1489. Environment variables in effect at the time of the system function are copied 
  1490. to the new environment. The copied environment variables are treated the same 
  1491. as those found in the ENVAR run-time option on the command level, with respect 
  1492. to the merge of the run-time options from their various sources. 
  1493.  
  1494. When you have specified the RPTOPTS run-time option, you receive a list of the 
  1495. various sources of the ENVAR option. 
  1496.  
  1497. The IBM-supplied default is ENVAR(''). 
  1498.  
  1499. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1500. Γöé                                                  Γöé
  1501. Γöé        ΓöîΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ                                    Γöé
  1502. Γöé              Γöé                                    Γöé
  1503. Γöé >>ΓöÇΓöÇENVARΓöÇΓöÇ(ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö┤ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1504. Γöé         ΓööΓöÇstringΓöÇΓöÿ                                     Γöé
  1505. Γöé                                                  Γöé
  1506. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1507.  
  1508. string 
  1509.     Is of the form name=value, where name and value are sequences of characters 
  1510.     that do not contain null bytes or equal signs. The string name is an 
  1511.     environment variable, and value is its value. 
  1512.  
  1513.     Blanks are significant in both the name= and the value characters. 
  1514.  
  1515.     You can enclose the string in either single or double quotation marks to 
  1516.     distinguish it from other strings. string cannot contain DBCS characters. 
  1517.     It can have a maximum of 250 characters. 
  1518.  
  1519.     You can specify multiple environment variables, separating the name=value 
  1520.     pairs with commas. Quotation marks are required when specifying multiple 
  1521.     variables. 
  1522.  
  1523. Usage Notes 
  1524.  
  1525.  The ENVAR option functions independently of the POSIX run-time option 
  1526.   setting. 
  1527.  
  1528.  You can override the ENVAR run-time option. If you specify NONOVR in CEEDOPT, 
  1529.   LE/370 assumes OVR. 
  1530.  
  1531.  C/370 consideration-An application can access the environment variables using 
  1532.   C function getenv or the POSIX variable environ, which is defined as: 
  1533.  
  1534.  
  1535.         extern char **environ;
  1536.  
  1537.   Access through getenv is recommended, especially in a threading environment. 
  1538.  
  1539.   HLLs can access the environment variables through standard C functions at 
  1540.   enclave initialization and throughout the application's run. Access remains 
  1541.   until the HLL returns from enclave termination. Environment variables that 
  1542.   are propagated across the EXEC override those established by the ENVAR 
  1543.   option. getenv serializes access to the environment variables. 
  1544.  
  1545.  OpenEdition MVS consideration-The environment variables apply to the enclave. 
  1546.  
  1547.  
  1548. ΓòÉΓòÉΓòÉ 2.1.17. ERRCOUNT ΓòÉΓòÉΓòÉ
  1549.  
  1550. ERRCOUNT specifies how many conditions of severity 2, 3, and 4 can occur before 
  1551. the enclave terminates abnormally. After the number specified in ERRCOUNT is 
  1552. reached, no further LE/370 condition management, including CEEHDLR management, 
  1553. is honored. 
  1554.  
  1555. The IBM-supplied default is ERRCOUNT(0). This specifies that an unlimited 
  1556. number of conditions can occur. 
  1557.  
  1558. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1559. Γöé                                                  Γöé
  1560. Γöé >>ΓöÇΓöÇERrcountΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1561. Γöé          ΓööΓöÇnumberΓöÇΓöÿ                                    Γöé
  1562. Γöé                                                  Γöé
  1563. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1564.  
  1565. number 
  1566.     The number of severity 2, 3, and 4 conditions that can occur while this 
  1567.     enclave is running. If the number of conditions exceeds number, the enclave 
  1568.     terminates abnormally. 
  1569.  
  1570. Usage Notes 
  1571.  
  1572.  COBOL consideration-LE/370 counts severity 1 messages with the facility ID 
  1573.   IGZ. When the limit is reached, additional severity 1 messages are 
  1574.   suppressed. 
  1575.  
  1576.  PL/I consideration-Use the default setting of ERRCOUNT(0) if you are using 
  1577.   PL/I. 
  1578.  
  1579.  OpenEdition MVS consideration-The ERRCOUNT option sets the threshold for the 
  1580.   total number of severity 2, 3, and 4 synchronous conditions that can occur 
  1581.   for the enclave; thus, all threads participate in the count. Asynchronous 
  1582.   signals do not affect ERRCOUNT. 
  1583.  
  1584.  
  1585. ΓòÉΓòÉΓòÉ 2.1.18. EXECOPS | NOEXECOPS ΓòÉΓòÉΓòÉ
  1586.  
  1587. EXECOPS specifies whether you can enter run-time options on the command line. 
  1588.  
  1589. The EXECOPS | NOEXECOPS option is restricted to applications where C/370 is the 
  1590. main routine. You can specify it only by using #pragma runopts. 
  1591.  
  1592. Although EXECOPS | NOEXECOPS is only available as a run-time option for C/370, 
  1593. NOEXECOPS is also an OPTIONS option in the PL/I procedure statement. 
  1594.  
  1595. EXECOPS | NOEXECOPS can affect the format of the inbound argument list passed 
  1596. to your application. If you specify NOEXECOPS, the slash (/) that usually 
  1597. separates arguments from run-time options is passed as an argument to the 
  1598. application. 
  1599.  
  1600. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1601. Γöé                                                  Γöé
  1602. Γöé   ΓöîΓöÇEXECOPSΓöÇΓöÇΓöÇΓöÉ                                         Γöé
  1603. Γöé >>ΓöÇΓöÇΓö┤ΓöÇNOEXECOPSΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1604. Γöé                                                  Γöé
  1605. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1606.  
  1607. EXECOPS 
  1608.     Specifies that you can enter run-time options on the command line. 
  1609.  
  1610. NOEXECOPS 
  1611.     Specifies that you cannot enter run-time options on the command line. 
  1612.     LE/370 interprets any options on the command line as arguments to the 
  1613.     application. 
  1614.  
  1615. Usage Notes 
  1616.  
  1617.  CICS consideration-This option is ignored under CICS. 
  1618.  
  1619.  OpenEdition MVS consideration-The EXECOPS option applies only to the main 
  1620.   routine of the initial thread. 
  1621.  
  1622.  
  1623. ΓòÉΓòÉΓòÉ 2.1.19. FLOW ΓòÉΓòÉΓòÉ
  1624.  
  1625. FLOW controls the FLOW output produced by OS/VS COBOL routines. 
  1626.  
  1627. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1628. Γöé                                                  Γöé
  1629. Γöé   ΓöîΓöÇNOFLOWΓöÇΓöÇΓöÉ                                          Γöé
  1630. Γöé >>ΓöÇΓöÇΓö╝ΓöÇFLOWΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1631. Γöé   Γö£ΓöÇFLOW(n)ΓöÇΓöñ                                          Γöé
  1632. Γöé   Γö£ΓöÇFLOW=nΓöÇΓöÇΓöñ                                          Γöé
  1633. Γöé   ΓööΓöÇFLOWnΓöÇΓöÇΓöÇΓöÿ                                          Γöé
  1634. Γöé                                                  Γöé
  1635. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1636.  
  1637. NOFLOW 
  1638.     Suppresses the OS/VS COBOL FLOW output. 
  1639.  
  1640. FLOW 
  1641.     Does not suppress the OS/VS COBOL FLOW output. 
  1642.  
  1643. n 
  1644.     Specifies the number of procedures traced. 
  1645.  
  1646.     n can be any integer from 1 to 99, inclusive. 
  1647.  
  1648.  
  1649. ΓòÉΓòÉΓòÉ 2.1.20. HEAP ΓòÉΓòÉΓòÉ
  1650.  
  1651. HEAP controls the allocation of the initial heap, controls allocation of 
  1652. additional heaps created with the CEECRHP callable service, and specifies how 
  1653. that storage is managed. 
  1654.  
  1655. Heaps are storage areas where you allocate memory for user-controlled 
  1656. dynamically allocated variables such as: 
  1657.  
  1658.  C variables allocated as a result of the malloc(), calloc(), and realloc() 
  1659.   functions 
  1660.  
  1661.  COBOL working storage variables 
  1662.  
  1663.  PL/I variables with the storage class CONTROLLED, or the storage class BASED 
  1664.  
  1665. The HEAP option is always in effect. If you do not specify HEAP, LE/370 
  1666. allocates the default value of heap storage when a call is made to obtain heap 
  1667. storage. 
  1668.  
  1669. LE/370 does not allocate heap storage until the first call to obtain heap 
  1670. storage is made. You can obtain heap storage by using language constructs or by 
  1671. making a call to CEEGTST. 
  1672.  
  1673. The IBM-supplied default is (64K,64K,ANYWHERE,KEEP,16K,16K). 
  1674.  
  1675. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1676. Γöé                                                  Γöé
  1677. Γöé                          ΓöîΓöÇANYwhereΓöÇΓöÉ   ΓöîΓöÇKEEPΓöÇΓöÉ            Γöé
  1678. Γöé >>ΓöÇΓöÇHeapΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé
  1679. Γöé        ΓööΓöÇinit_sizeΓöÇΓöÿ   ΓööΓöÇincr_sizeΓöÇΓöÿ   ΓööΓöÇBELOWΓöÇΓöÇΓöÇΓöÇΓöÿ   ΓööΓöÇFREEΓöÇΓöÿ            Γöé
  1680. Γöé                                                  Γöé
  1681. Γöé >ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1682. Γöé   ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ   ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ                             Γöé
  1683. Γöé    ΓööΓöÇinitsz24ΓöÇΓöÿ     ΓööΓöÇincrsz24ΓöÇΓöÿ                              Γöé
  1684. Γöé                                                  Γöé
  1685. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1686.  
  1687. init_size 
  1688.     Determines the minimum initial allocation of heap storage. Specify this 
  1689.     value as n, nK, or nM bytes of storage. The actual amount of allocated 
  1690.     storage is rounded up to the nearest multiple of 4K. 
  1691.  
  1692. incr_size 
  1693.     Determines the minimum size of any subsequent increment to the heap 
  1694.     storage. Specify this value as n, nK, or nM bytes of storage. The actual 
  1695.     amount of allocated storage is rounded up to the nearest multiple of 4K. 
  1696.  
  1697. ANYwhere 
  1698.     Specifies that you can allocate heap storage anywhere in storage. On 
  1699.     systems that support bimodal addressing, you can allocate storage either 
  1700.     above or below the 16M line. If there is no available storage above the 
  1701.     line, storage is acquired below the line. On systems that do not support 
  1702.     bimodal addressing (for example, when VM/ESA is initially loaded in 370 
  1703.     mode), LE/370 ignores this option and places the heap storage below 16M. 
  1704.  
  1705. BELOW 
  1706.     Specifies that you must allocate heap storage below the 16M line in storage 
  1707.     that is accessible to 24-bit addressing. 
  1708.  
  1709. KEEP 
  1710.     Specifies that storage allocated to HEAP increments is not released when 
  1711.     the last of the storage is freed. 
  1712.  
  1713. FREE 
  1714.     Specifies that storage allocated to HEAP increments is released when the 
  1715.     last of the storage is freed. 
  1716.  
  1717. initsz24 
  1718.     Determines the minimum initial size of the heap storage that is obtained 
  1719.     below the 16M line for applications running with ALL31(OFF) when these 
  1720.     applications specify ANYWHERE in the HEAP run-time option. Specify initsz24 
  1721.     as n, nK, or nM number of bytes. The amount of storage is rounded up to the 
  1722.     nearest multiple of 4K. 
  1723.  
  1724.     initsz24 applies to all heaps that are not allocated strictly below the 16M 
  1725.     line. 
  1726.  
  1727. incrsz24 
  1728.     Determines the minimum size of any subsequent increment to the heap area 
  1729.     that is obtained below the 16M line for applications running with 
  1730.     ALL31(OFF) when these applications specify ANYWHERE in the HEAP run-time 
  1731.     option. Specify incrsz24 as n, nK, or nM number of bytes. The amount of 
  1732.     storage is rounded up to the nearest multiple of 4K. 
  1733.  
  1734.     incrsz24 applies to all heaps that are not allocated strictly below the 16M 
  1735.     line. 
  1736.  
  1737. Usage Notes 
  1738.  
  1739.  Applications running in AMODE(24) that request heap storage obtain the 
  1740.   storage below the 16M line regardless of the setting of ANYWHERE | BELOW. 
  1741.  
  1742.  COBOL consideration-You can use the HEAP option to provide some of the 
  1743.   function provided by COBOL's space management tuning table. 
  1744.  
  1745.  C/370 consideration-If your C/370 application runs below the 16M (AMODE(24)) 
  1746.   line, you must specify HEAP(,,BELOW,,,) as an installation default for the 
  1747.   HEAP run-time option, on the command line when invoking the program, or at 
  1748.   compile time as a #pragma runopts. 
  1749.  
  1750.  PL/I consideration-In pre-LE/370-conforming PL/I, the ANYWHERE | BELOW and 
  1751.   KEEP | FREE suboptions were not positional. They could be in any order 
  1752.   respective to each other. If init_size and/or incr_size was not specified 
  1753.   they could be in the first or second position as well. This is no longer the 
  1754.   case. 
  1755.  
  1756.  CICS consideration-If HEAP is not specified or if HEAP(0) is specified, 
  1757.   LE/370 uses the IBM-supplied default of HEAP(4K,4K,ANYWHERE,KEEP,4K,4K). Both 
  1758.   the initial HEAP allocation and HEAP increments are rounded to the next 
  1759.   higher multiple of 8 bytes (not 4K bytes). The minimum is 4K bytes. 
  1760.  
  1761.   If HEAP(,,ANYWHERE) is in effect, the maximum size of a heap segment is 1 
  1762.   gigabyte (1024M). These restrictions are subject to change from one release 
  1763.   of CICS to another. 
  1764.  
  1765.  OpenEdition MVS considerations-The HEAP option applies to the enclave. 
  1766.  
  1767.   Under OpenEdition MVS, heap storage is managed at the thread level using 
  1768.   pthread_key_create, pthread_setspecific, and pthread_getspecific. 
  1769.  
  1770. Performance Considerations 
  1771.  
  1772. To improve performance, use the storage report numbers generated by the RPTSTG 
  1773. run-time option as an aid in setting the initial and increment size for HEAP. 
  1774. See RPTSTG for more information about the RPTSTG run-time option. 
  1775.  
  1776.  
  1777. ΓòÉΓòÉΓòÉ 2.1.21. INTERRUPT ΓòÉΓòÉΓòÉ
  1778.  
  1779. INTERRUPT causes attention interrupts recognized by OS/2 to be recognized by 
  1780. LE/370 after the LE/370 environment has been initialized. The way you request 
  1781. an attention interrupt varies from operating system to operating system. When 
  1782. you request the interrupt, you can give control to your application or to a 
  1783. debug tool. 
  1784.  
  1785. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1786. Γöé                                                  Γöé
  1787. Γöé          ΓöîΓöÇOFFΓöÇΓöÉ                                     Γöé
  1788. Γöé >>ΓöÇΓöÇINTerruptΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1789. Γöé          ΓööΓöÇONΓöÇΓöÇΓöÿ                                     Γöé
  1790. Γöé                                                  Γöé
  1791. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1792.  
  1793. OFF 
  1794.     Specifies that LE/370 does not recognize attention interrupts. 
  1795.  
  1796. ON 
  1797.     Specifies that LE/370 recognizes attention interrupts. In addition, if you 
  1798.     have specified the TEST(ERROR) or TEST(ALL) run-time option, the interrupt 
  1799.     causes the debug tool to gain control. 
  1800.  
  1801.     See TEST | NOTEST for more information about the TEST run-time option. 
  1802.  
  1803. Usage Notes 
  1804.  
  1805.  PL/I consideration-LE/370 supports the PL/I method of polling code. 
  1806.  
  1807.  CICS consideration-INTERRUPT is ignored under CICS. 
  1808.  
  1809.  OpenEdition MVS consideration-The INTERRUPT option applies to the enclave. 
  1810.   You do not need to set INTERRUPT to ON when POSIX(ON) is in effect. Terminal 
  1811.   attention interrupts are directed to the POSIX process even with INTERRUPT 
  1812.   set to OFF. 
  1813.  
  1814.  
  1815. ΓòÉΓòÉΓòÉ 2.1.22. LIBSTACK ΓòÉΓòÉΓòÉ
  1816.  
  1817. LIBSTACK controls the allocation of the thread's library stack storage. This 
  1818. stack is used by LE/370 and HLL library routines that require save areas below 
  1819. the 16M line. 
  1820.  
  1821. The IBM-supplied default is (32K,16K,FREE). 
  1822.  
  1823. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1824. Γöé                                                  Γöé
  1825. Γöé                            ΓöîΓöÇFREEΓöÇΓöÉ                   Γöé
  1826. Γöé >>ΓöÇΓöÇLIBStackΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1827. Γöé          ΓööΓöÇinit_sizeΓöÇΓöÿ   ΓööΓöÇincr_sizeΓöÇΓöÿ   ΓööΓöÇKEEPΓöÇΓöÿ                   Γöé
  1828. Γöé                                                  Γöé
  1829. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1830.  
  1831. init_size 
  1832.     Determines the size of the initial library stack segment. The storage is 
  1833.     contiguous. 
  1834.  
  1835.     Specify init_size as n, nK, or nM bytes of storage. init_size can be 
  1836.     preceded by a minus sign. On systems other than CICS, if you specify a 
  1837.     negative number, all available storage minus the amount specified is used 
  1838.     for the initial stack segment. 
  1839.  
  1840.     In all supported systems except CICS, an init_size of 0 or -0 requests half 
  1841.     of the largest block of contiguous storage below the 16M line. 
  1842.  
  1843.     At initialization, LE/370 allocates the storage rounded up to the nearest 
  1844.     4K. 
  1845.  
  1846. incr_size 
  1847.     Determines the minimum size of any subsequent increment to the library 
  1848.     stack area. Specify this value as n, nK, or nM bytes of storage. The actual 
  1849.     amount of allocated storage is the larger of 2 values- incr_size or the 
  1850.     requested size-rounded up to the nearest 4K (except under CICS). 
  1851.  
  1852.     If you do not specify incr_size, C/370 uses the IBM-supplied default 
  1853.     setting of 16K. If incr_size=0, LE/370 obtains only the amount of storage 
  1854.     needed at the time of the request, rounded up to the nearest 4K. 
  1855.  
  1856.     The requested size is the amount of storage a routine needs for a stack 
  1857.     frame. For example, if the requested size is 9000 bytes, incr_size is 
  1858.     specified as 8K and the initial stack segment is full, LE/370 obtains a 12K 
  1859.     stack increment from the operating system to satisfy the request. If the 
  1860.     requested size is smaller than 8K, LE/370 obtains an 8K stack increment 
  1861.     from the operating system. 
  1862.  
  1863. FREE 
  1864.     Specifies that LE/370 releases storage allocated to LIBSTACK increments 
  1865.     when the last of the storage in the library stack is freed. The initial 
  1866.     library stack segment is not released until the enclave terminates. 
  1867.  
  1868. KEEP 
  1869.     Specifies that LE/370 does not release storage allocated to LIBSTACK 
  1870.     increments when the last of the storage is freed. 
  1871.  
  1872. Usage Notes 
  1873.  
  1874.  CICS consideration-The initial and increment sizes for LIBSTACK are rounded 
  1875.   to the next higher multiple of 8 bytes. The minimum is 4K. 
  1876.  
  1877.   The IBM-supplied default setting for LIBSTACK under CICS is 
  1878.   LIBSTACK(4K,4K,FREE). 
  1879.  
  1880.  OpenEdition MVS consideration-The LIBSTACK option sets the library stack 
  1881.   characteristics on each thread. 
  1882.  
  1883.   The recommended setting for LIBSTACK under OpenEdition MVS is 
  1884.   LIBSTACK(12K,12K,FREE). 
  1885.  
  1886. Performance Considerations 
  1887.  
  1888. To improve performance, use the storage report numbers generated by the RPTSTG 
  1889. run-time option as an aid in setting the initial and increment size for 
  1890. LIBSTACK. See RPTSTG for more information about the RPTSTG run-time option. 
  1891.  
  1892.  
  1893. ΓòÉΓòÉΓòÉ 2.1.23. MSGFILE ΓòÉΓòÉΓòÉ
  1894.  
  1895. MSGFILE specifies the ddname of the file where all run-time diagnostics and 
  1896. reports generated by the RPTOPTS and RPTSTG run-time options are written. 
  1897.  
  1898. The IBM-supplied default is MSGFILE(SYSOUT). 
  1899.  
  1900. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1901. Γöé                                                  Γöé
  1902. Γöé >>ΓöÇΓöÇMSGFileΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1903. Γöé         ΓööΓöÇddnameΓöÇΓöÿ                                    Γöé
  1904. Γöé                                                  Γöé
  1905. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1906.  
  1907. ddname 
  1908.     The ddname of the run-time diagnostics file. 
  1909.  
  1910. Usage Notes 
  1911.  
  1912.  HLL compile-time options can affect whether your run-time output goes to 
  1913.   MSGFILE ddname. 
  1914.  
  1915.  LE/370 does not check the validity of the MSGFILE ddname. An invalid ddname 
  1916.   generates an error condition on the first attempt to issue a message. 
  1917.  
  1918.  For more information on default attributes for MSGFILE, including COBOL and C 
  1919.   run-time output, see CEEMSG-Get, Format, and Dispatch a Message. 
  1920.  
  1921.  C/370 consideration-C/370 perror() messages and output directed to stderr go 
  1922.   to the MSGFILE destination. 
  1923.  
  1924.  PL/I consideration-Run-time messages in PL/I routines are directed to the 
  1925.   file specified by the LE/370 MSGFILE run-time option, instead of to the PL/I 
  1926.   SYSPRINT STREAM PRINT file. 
  1927.  
  1928.   User-specified output is still directed to the PL/I SYSPRINT STREAM PRINT 
  1929.   file. To direct this output to the LE/370 MSGFILE file, specify 
  1930.   MSGFILE(SYSPRINT). 
  1931.  
  1932.  CICS considerations-The MSGFILE option is ignored under CICS. Run-time output 
  1933.   under CICS is directed instead to a transient data queue named CESE. 
  1934.  
  1935.  OpenEdition MVS considerations-The MSGFILE option specifies the ddname of the 
  1936.   diagnostic file for the enclave. When multiple threads write to the message 
  1937.   file, the output is interwoven by line. To group lines of output, serialize 
  1938.   MSGFILE access by using a mutex (for example). 
  1939.  
  1940.   When OpenEdition MVS is available and the MSGFILE option specifies a ddname 
  1941.   nominating a POSIX file, LE/370 uses POSIX services to write the message 
  1942.   file. A ddname nominates a POSIX file using the keyword PATH=. 
  1943.  
  1944.   OpenEdition MVS must be available on the underlying operating system for the 
  1945.   MSGFILE option to write to a POSIX file. If the ddname nominates a POSIX file 
  1946.   when POSIX is set to OFF, LE/370 tries to dynamically allocate an MVS file to 
  1947.   be used as the message file. 
  1948.  
  1949.   If the message file is allocated (whether POSIX or MVS), LE/370 directs the 
  1950.   output to this file. If the current message file is not allocated, and the 
  1951.   application carries out a fork/exec, LE/370 tries to dynamically allocate the 
  1952.   message file to the POSIX file system. 
  1953.  
  1954.   Within nested enclaves only the first enclave can have the POSIX option set 
  1955.   to ON. All other nested enclaves must have the POSIX option set to OFF. 
  1956.  
  1957.  
  1958. ΓòÉΓòÉΓòÉ 2.1.24. MSGQ ΓòÉΓòÉΓòÉ
  1959.  
  1960. MSGQ specifies the number of ISI blocks that LE/370 allocates on a per thread 
  1961. basis for use by the application. The ISI contains information that LE/370 uses 
  1962. to identify and react to conditions, provide access to q_data tokens, and 
  1963. assign space for message inserts used with user-created messages. When an ISI 
  1964. is needed and one is not available, LE/370 takes the least recently used ISI 
  1965. for reuse. 
  1966.  
  1967. The IBM-supplied default is MSGQ(15). 
  1968.  
  1969. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1970. Γöé                                                  Γöé
  1971. Γöé >>ΓöÇΓöÇMSGQΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  1972. Γöé        ΓööΓöÇnumberΓöÇΓöÿ                                      Γöé
  1973. Γöé                                                  Γöé
  1974. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1975.  
  1976. number 
  1977.     An integer that specifies the number of ISIs to be maintained per thread 
  1978.     within an enclave. 
  1979.  
  1980.  
  1981. ΓòÉΓòÉΓòÉ 2.1.25. NATLANG ΓòÉΓòÉΓòÉ
  1982.  
  1983. NATLANG specifies the initial national language to be used for the run-time 
  1984. environment, including error messages, month names, and day of the week names. 
  1985. Message translations are provided for Japanese and (uppercase and mixed-case) 
  1986. U.S. English.  NATLANG also determines how the message facility formats 
  1987. messages. 
  1988.  
  1989. You can set the national language by using the NATLANG run-time option or the 
  1990. SET option of the CEE3LNG callable service. LE/370 maintains one current 
  1991. language at the enclave level. This current language remains in effect until 
  1992. one of the above changes it. For example, if you specify JPN in the NATLANG 
  1993. run-time option, but subsequently specify ENU using the CEE3LNG callable 
  1994. service, ENU becomes the current national language. 
  1995.  
  1996. LE/370 writes storage and options reports and dump output only in mixed-case 
  1997. U.S. English. 
  1998.  
  1999. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2000. Γöé                                                  Γöé
  2001. Γöé         ΓöîΓöÇENUΓöÇΓöÉ                                      Γöé
  2002. Γöé >>ΓöÇΓöÇNATlangΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2003. Γöé         Γö£ΓöÇUENΓöÇΓöñ                                      Γöé
  2004. Γöé         ΓööΓöÇJPNΓöÇΓöÿ                                      Γöé
  2005. Γöé                                                  Γöé
  2006. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2007.  
  2008. ENU 
  2009.     A 3-character ID specifying mixed-case U.S. English. 
  2010.  
  2011.     Message text consists of SBCS (single-byte character set) characters and 
  2012.     includes both uppercase and lowercase letters. 
  2013.  
  2014. UEN 
  2015.     A 3-character ID specifying uppercase U.S. English. 
  2016.  
  2017.     Message text consists of SBCS characters and includes only uppercase 
  2018.     letters. 
  2019.  
  2020. JPN 
  2021.     A 3-character ID specifying Japanese. 
  2022.  
  2023.     Message text can contain a mixture of SBCS and DBCS (double-byte character 
  2024.     set) characters. 
  2025.  
  2026. Usage Notes 
  2027.  
  2028.  If you specify a national language that is not available on your system, 
  2029.   LE/370 uses the IBM-supplied default ENU (mixed-case U.S. English). 
  2030.  
  2031.   CEEUOPT and CEEDOPT can specify an unknown national language code, but give a 
  2032.   return code of 4 and a warning message. 
  2033.  
  2034.  OpenEdition MVS consideration-The NATLANG option specifies the initial value 
  2035.   for the enclave. 
  2036.  
  2037.  
  2038. ΓòÉΓòÉΓòÉ 2.1.26. PLIST ΓòÉΓòÉΓòÉ
  2039.  
  2040. PLIST specifies the format of the invocation parameters your C/370 application 
  2041. receives when you invoke it. Although the CICS, CMS, IMS, MVS, and TSO 
  2042. suboptions of PLIST are supported for compatibility, it is strongly recommended 
  2043. that you use the HOST or OS suboptions of PLIST. 
  2044.  
  2045. This option is restricted to applications where C/370 is the main routine. You 
  2046. can specify it only by using #pragma runopts. 
  2047.  
  2048. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2049. Γöé                                                  Γöé
  2050. Γöé        ΓöîΓöÇHOSTΓöÇΓöÉ                                      Γöé
  2051. Γöé >>ΓöÇΓöÇPLISTΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇCICSΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2052. Γöé        Γö£ΓöÇCMSΓöÇΓöÇΓöñ                                      Γöé
  2053. Γöé        Γö£ΓöÇIMSΓöÇΓöÇΓöñ                                      Γöé
  2054. Γöé        Γö£ΓöÇMVSΓöÇΓöÇΓöñ                                      Γöé
  2055. Γöé        Γö£ΓöÇOSΓöÇΓöÇΓöÇΓöñ                                      Γöé
  2056. Γöé        ΓööΓöÇTSOΓöÇΓöÇΓöÿ                                      Γöé
  2057. Γöé                                                  Γöé
  2058. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2059.  
  2060. HOST 
  2061.     The parameter list is a character string. The string is located differently 
  2062.     under various systems as follows: 
  2063.  
  2064.     Under CMS, if invoked by OSRUN, use the string presented in an MVS-like 
  2065.      format located by the pointer held in R1. 
  2066.  
  2067.     Under CMS, if not invoked by OSRUN, use the CMS extended parameter list. 
  2068.  
  2069.     Under TSO, if a command processor parameter list (CPPL) is detected, 
  2070.      obtain the string from the command buffer. 
  2071.  
  2072.     Under TSO, if a CPPL is not detected, assume a halfword-prefixed string in 
  2073.      the MVS format. 
  2074.  
  2075.     Under MVS, use the halfword-prefixed string. 
  2076.  
  2077. CICS 
  2078.     The parameter list received by your C/370 application is assumed to be in a 
  2079.     CICS format. 
  2080.  
  2081. CMS 
  2082.     The parameter list received by your C/370 application is assumed to be in a 
  2083.     CMS extended parameter list format. 
  2084.  
  2085. IMS 
  2086.     The parameter list received by your C/370 application is assumed to be in 
  2087.     an IMS format. 
  2088.  
  2089. MVS 
  2090.     The parameter list received by your C/370 application is assumed to be in 
  2091.     an MVS format. 
  2092.  
  2093. OS 
  2094.     The parameter list received by your C/370 application is assumed to be in 
  2095.     an OS style. 
  2096.  
  2097. TSO 
  2098.     The parameter list received by your C/370 application is assumed to be in a 
  2099.     CPPL format. 
  2100.  
  2101. Usage Notes 
  2102.  
  2103.  When using the pre-LE/370-conforming C/370 interface for preinitialization, 
  2104.   it was necessary to specify PLIST(MVS) in order to flag pre-initialized 
  2105.   routines. Although PLIST(MVS) is supported for compatibility, it is 
  2106.   recommended that you specify PLIST(OS), when possible, to flag these 
  2107.   pre-LE/370-conforming pre-initialized routines. 
  2108.  
  2109.  IMS considerations-If your C application runs under IMS, the suboption of 
  2110.   PLIST that you specify depends on the version of the C/370 compiler you used. 
  2111.   If you compiled your application with Version 2.1 (or earlier) of the C/370 
  2112.   compiler, specify the PLIST(IMS) suboption. If you compiled your application 
  2113.   with an IBM SAA AD/Cycle C/370 compiler, specify the PLIST(OS) suboption. 
  2114.  
  2115.  CICS consideration-This option is ignored under CICS. 
  2116.  
  2117.  OpenEdition MVS consideration-The PLIST option applies only to the main 
  2118.   routine of the initial thread. 
  2119.  
  2120.  
  2121. ΓòÉΓòÉΓòÉ 2.1.27. POSIX ΓòÉΓòÉΓòÉ
  2122.  
  2123. POSIX specifies whether the enclave can run with the POSIX semantics. 
  2124.  
  2125. POSIX is an application characteristic that is maintained at the enclave level. 
  2126. After you have established the characteristic during enclave initialization, 
  2127. you cannot change it. 
  2128.  
  2129. When you set POSIX to ON, you can use functions that are unique to POSIX, for 
  2130. example, fork(). 
  2131.  
  2132. ANSI C routines can access POSIX files on MVS independently of the POSIX 
  2133. setting. Where ambiguities exist between ANSI and POSIX semantics, the POSIX 
  2134. run-time option setting indicates the POSIX semantics to follow. 
  2135.  
  2136. An error occurs if you set POSIX to ON when the feature is not available on the 
  2137. host system. 
  2138.  
  2139. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2140. Γöé                                                  Γöé
  2141. Γöé        ΓöîΓöÇOFFΓöÇΓöÉ                                       Γöé
  2142. Γöé >>ΓöÇΓöÇPOSixΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2143. Γöé        ΓööΓöÇONΓöÇΓöÇΓöÿ                                       Γöé
  2144. Γöé                                                  Γöé
  2145. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2146.  
  2147. OFF 
  2148.     Indicates that the application is not POSIX-enabled. 
  2149.  
  2150. ON 
  2151.     Indicates that the application is POSIX-enabled. 
  2152.  
  2153. Usage Notes 
  2154.  
  2155.  POSIX(ON) applies only to MVS/ESA*. It explicitly excludes CICS and CMS. If 
  2156.   you set POSIX to ON while an application is running under CICS or CMS, you 
  2157.   receive a warning message and the application continues to run. You can 
  2158.   specify POSIX(ON) for both DB2* and IMS applications. 
  2159.  
  2160.  One of the effects of POSIX(ON) is the enablement of POSIX signal handling 
  2161.   semantics, which interact closely with the LE/370 condition handling 
  2162.   semantics. 
  2163.  
  2164.  The target of an exec function runs with POSIX set to ON, unless it has 
  2165.   explicitly set POSIX to OFF. 
  2166.  
  2167.  If you set POSIX to ON when OpenEdition MVS is not active, the following 
  2168.   events occur: 
  2169.  
  2170.    - The message file receives a warning, but the application continues to run. 
  2171.  
  2172.    - If you invoke a POSIX function, it does not take effect. 
  2173.  
  2174.    - If you invoke a POSIX function that has no provision for failure, for 
  2175.      example, alarm, a severity 3 condition is signaled. 
  2176.  
  2177.  
  2178. ΓòÉΓòÉΓòÉ 2.1.28. REDIR | NOREDIR ΓòÉΓòÉΓòÉ
  2179.  
  2180. REDIR specifies whether you can enter directions for stdin, stderr, and stdout 
  2181. from the command line. 
  2182.  
  2183. This option is restricted to applications in which C/370 is the main routine. 
  2184. You can specify it only by using #pragma runopts. 
  2185.  
  2186. For ILC applications, REDIR can be used to direct printf output from the 
  2187. application to the MSGFILE so it can be interspersed with output from COBOL 
  2188. routines using the compile-time option OUTDD. 
  2189.  
  2190. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2191. Γöé                                                  Γöé
  2192. Γöé   ΓöîΓöÇREDIRΓöÇΓöÇΓöÇΓöÉ                                          Γöé
  2193. Γöé >>ΓöÇΓöÇΓö┤ΓöÇNOREDIRΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2194. Γöé                                                  Γöé
  2195. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2196.  
  2197. REDIR 
  2198.     Specifies that you can redirect stdin, stderr, and stdout from the command 
  2199.     line. 
  2200.  
  2201.     REDIR applies only if ARGPARSE is also specified or defaulted. (See 
  2202.     ARGPARSE | NOARGPARSE for a description of ARGPARSE). 
  2203.  
  2204. NOREDIR 
  2205.     Specifies that you cannot redirect stdin, stderr, and stdout from the 
  2206.     command line. 
  2207.  
  2208. Usage Notes 
  2209.  
  2210.  CICS consideration-This option is ignored under CICS. 
  2211.  
  2212.  OpenEdition MVS consideration-The REDIR | NOREDIR option applies only to the 
  2213.   main routine of the initial thread. 
  2214.  
  2215.  
  2216. ΓòÉΓòÉΓòÉ 2.1.29. RPTOPTS ΓòÉΓòÉΓòÉ
  2217.  
  2218. RPTOPTS generates, after an application has run, a report of the run-time 
  2219. options in effect while the application was running. 
  2220.  
  2221. LE/370 writes options reports only in mixed-case U.S. English. A report, 
  2222. however, includes language-specific settings. 
  2223.  
  2224. LE/370 directs the report to the ddname specified in the MSGFILE run-time 
  2225. option. See MSGFILE for more information about the MSGFILE option. 
  2226.  
  2227. RPTOPTS does not generate the options report if an application terminates 
  2228. abnormally. 
  2229.  
  2230. Options Report Produced by LE/370 Run-Time Option RPTOPTS(ON) shows the sample 
  2231. output when RPTOPTS is set to ON. RPTOPTS(ON) lists the declared run-time 
  2232. options in alphabetical order. The report lists the option names and shows 
  2233. where each option obtained its current setting. 
  2234.  
  2235. The LAST WHERE SET column in the report shows the last place where the options 
  2236. were referenced, even if no suboptions or subsets of the options were changed. 
  2237. "Default setting" in the report indicates that you cannot specify the option in 
  2238. CEEDOPT or CEEUOPT. "Programmer default" includes any options specified with 
  2239. C/370 #pragma runopts, PL/I PLIXOPT, and CEEUOPT. 
  2240.  
  2241. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2242. Γöé                                                  Γöé
  2243. Γöé         ΓöîΓöÇOFFΓöÇΓöÉ                                      Γöé
  2244. Γöé >>ΓöÇΓöÇRPTOptsΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2245. Γöé         ΓööΓöÇONΓöÇΓöÇΓöÿ                                      Γöé
  2246. Γöé                                                  Γöé
  2247. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2248.  
  2249. OFF 
  2250.     Does not generate a report of the run-time options in effect while the 
  2251.     application was running. 
  2252.  
  2253. ON 
  2254.     Generates a report of the run-time options in effect while the application 
  2255.     was running. 
  2256.  
  2257. Usage Note 
  2258.  
  2259.  OpenEdition MVS consideration-The RPTOPTS option reports run-time options for 
  2260.   the enclave. 
  2261.  
  2262. Performance Considerations 
  2263.  
  2264. This option increases the time it takes for the application to run. Therefore, 
  2265. use it only as an aid to application development. 
  2266.  
  2267.  
  2268. Options Report Produced by LE/370 Run-Time Option RPTOPTS(ON)
  2269.  
  2270.  Options Report for Enclave NOP 05/12/93 9:53 AM
  2271.  
  2272.  LAST WHERE SET          OPTION
  2273.  -------------------------------------------------------------------
  2274.  Installation default      ABPERC(NONE)
  2275.  Installation default      ABTERMENC(RETCODE)
  2276.  Installation default    NOAIXBLD
  2277.  Installation default      ALL31(OFF)
  2278.  Installation default      ANYHEAP(32768,16384,ANYWHERE,FREE)
  2279.  Installation default      BELOWHEAP(32768,16384,FREE)
  2280.  Installation default      CBLOPTS(ON)
  2281.  Installation default      CBLPSHPOP(ON)
  2282.  Installation default      CBLQDA(ON)
  2283.  Installation default      CHECK(ON)
  2284.  Installation default      COUNTRY(US)
  2285.  Installation default      DEBUG
  2286.  Installation default      DEPTHCONDLMT(10)
  2287.  Installation default      ENVAR('')
  2288.  Installation default      ERRCOUNT(0)
  2289.  Default setting         NOFLOW(99)
  2290.  Installation default      HEAP(65536,65536,ANYWHERE,KEEP,16384,16384)
  2291.  Installation default      INTERRUPT(OFF)
  2292.  Default setting           ISAINC(0,0)
  2293.  Default setting           ISASIZE(0,0,0)
  2294.  Installation default      LIBSTACK(32768,16384,FREE)
  2295.  Installation default      MSGFILE(SYSOUT)
  2296.  Installation default      MSGQ(15)
  2297.  Installation default      NATLANG(ENU)
  2298.  Installation default      POSIX(OFF)
  2299.  Invocation command        RPTOPTS(ON)
  2300.  Invocation command        RPTSTG(ON)
  2301.  Installation default    NORTEREUS
  2302.  Installation default    NOSIMVRD
  2303.  Installation default      STACK(524288,524288,BELOW,KEEP)
  2304.  Installation default      STORAGE(NONE,NONE,NONE,8192)
  2305.  Installation default      TERMTHDACT(TRACE)
  2306.  Installation default    NOTEST(ALL,"*","PROMPT","INSPPREF")
  2307.  Installation default      TRACE(OFF,4K,DUMP,LE=0)
  2308.  Installation default      TRAP(ON)
  2309.  Installation default      UPSI(00000000)
  2310.  Installation default      VCTRSAVE(OFF)
  2311.  Installation default      XUFLOW(AUTO)
  2312.  
  2313.  
  2314. ΓòÉΓòÉΓòÉ 2.1.30. RPTSTG ΓòÉΓòÉΓòÉ
  2315.  
  2316. RPTSTG generates, after an application has run, a report of the storage the 
  2317. application used. The report is directed to the ddname specified in the MSGFILE 
  2318. run-time option. For more information about the MSGFILE option, see MSGFILE. 
  2319.  
  2320. Storage Report Produced by LE/370 Run-Time Option RPTSTG(ON)pg=no. shows a 
  2321. sample report created with the RPTSTG option set to ON. 
  2322.  
  2323. You can use the storage report information to adjust the ANYHEAP, BELOWHEAP, 
  2324. HEAP, LIBSTACK, and STACK run-time options. 
  2325.  
  2326. LE/370 writes storage reports only in mixed-case U.S. English. 
  2327.  
  2328. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2329. Γöé                                                  Γöé
  2330. Γöé         ΓöîΓöÇOFFΓöÇΓöÉ                                      Γöé
  2331. Γöé >>ΓöÇΓöÇRPTStgΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2332. Γöé         ΓööΓöÇONΓöÇΓöÇΓöÿ                                      Γöé
  2333. Γöé                                                  Γöé
  2334. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2335.  
  2336. OFF 
  2337.     Does not generate a report of the storage used while the application was 
  2338.     running. 
  2339.  
  2340. ON 
  2341.     Generates a report of the storage used while the application was running. 
  2342.  
  2343. Usage Notes 
  2344.  
  2345.  RPTSTG does not generate a storage report if your application terminates 
  2346.   abnormally. 
  2347.  
  2348.  In the storage report shown in Storage Report Produced by LE/370 Run-Time 
  2349.   Option RPTSTG(ON) the numbers displayed following "Number of segments 
  2350.   allocated" and "Number of segments freed" represent the following: 
  2351.  
  2352.    - On VM/ESA, the number of CMSSTOR OBTAIN and CMSSTOR RELEASE requests, 
  2353.      respectively. 
  2354.  
  2355.    - On CICS, the number of EXEC CICS GETMAIN and EXEC CICS FREEMAIN requests, 
  2356.      respectively. 
  2357.  
  2358.  OpenEdition MVS consideration-The RPTSTG option applies to storage 
  2359.   utilization for the enclave, including thread-level information on stack 
  2360.   utilization, and stack storage used by multiple threads. 
  2361.  
  2362. Performance Considerations 
  2363.  
  2364. This option increases the time it takes for an application to run. Therefore, 
  2365. use it only as an aid to application development. 
  2366.  
  2367. The storage report generated by RPTSTG(ON) shows the number of system-level get 
  2368. storage calls that were required while the application was running. To improve 
  2369. performance, use the storage report numbers generated by the RPTSTG option as 
  2370. an aid in setting the initial and increment size for STACK and HEAP. This 
  2371. reduces the number of times that the LE/370 storage manager makes requests to 
  2372. acquire storage. For example, you can use the storage report numbers to set 
  2373. appropriate values in the HEAP and STACK init_size and incr_size fields for 
  2374. allocating storage. 
  2375.  
  2376. See STACK for more information about the STACK run-time option. See HEAP for 
  2377. more information about the HEAP run-time option. For more information about 
  2378. tuning your application with storage numbers, see LE/370 Programming Guide. 
  2379.  
  2380.  
  2381. Storage Report Produced by LE/370 Run-Time Option RPTSTG(ON)
  2382.  
  2383.   STORAGE REPORT FOR ENCLAVE TEST. 07/08/93 2:30 PM
  2384.  
  2385.       STACK statistics:
  2386.         Initial size:                                       524288
  2387.         Increment size:                                     524288
  2388.         Stack storage used (by all threads):                 11464
  2389.         Largest stack used (by any thread):                  11464
  2390.         Number of segments allocated:                            0
  2391.         Number of segments freed:                                0
  2392.       LIBSTACK statistics:
  2393.         Initial size:                                        32768
  2394.         Increment size:                                      16384
  2395.         Stack storage used (by all threads):                   680
  2396.         Largest stack used (by any thread):                    680
  2397.         Number of segments allocated:                            0
  2398.         Number of segments freed:                                0
  2399.       HEAP statistics:
  2400.         Initial size:                                        65536
  2401.         Increment size:                                      65536
  2402.         Total heap storage used (sugg. initial size):            0
  2403.         Successful Get Heap requests:                            0
  2404.         Successful Free Heap requests:                           0
  2405.         Number of segments allocated:                            0
  2406.         Number of segments freed:                                0
  2407.       ANYHEAP statistics:
  2408.         Initial size:                                        32768
  2409.         Increment size:                                      16384
  2410.         Total heap storage used (sugg. initial size):         1776
  2411.         Successful Get Heap requests:                           16
  2412.         Successful Free Heap requests:                           1
  2413.         Number of segments allocated:                            1
  2414.         Number of segments freed:                                0
  2415.       BELOWHEAP statistics:
  2416.         Initial size:                                        32768
  2417.         Increment size:                                      16384
  2418.         Total heap storage used (sugg. initial size):          168
  2419.         Successful Get Heap requests:                            1
  2420.         Successful Free Heap requests:                           0
  2421.         Number of segments allocated:                            1
  2422.         Number of segments freed:                                0
  2423.       Additional Heap statistics:
  2424.         Successful Create Heap requests:                         0
  2425.         Successful Discard Heap requests:                        0
  2426.         Total heap storage used:                                 0
  2427.         Successful Get Heap requests:                            0
  2428.         Successful Free Heap requests:                           0
  2429.         Number of segments allocated:                            0
  2430.         Number of segments freed:                                0
  2431.   End of Storage Report
  2432.  
  2433.  
  2434. ΓòÉΓòÉΓòÉ 2.1.31. RTEREUS ΓòÉΓòÉΓòÉ
  2435.  
  2436. RTEREUS implicitly initializes the run-time environment to be reusable when the 
  2437. main program for the thread is a COBOL program. This option is valid only when 
  2438. used with CEEDOPT or CEEUOPT. 
  2439.  
  2440. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2441. Γöé                                                  Γöé
  2442. Γöé   ΓöîΓöÇNORTEREUSΓöÇΓöÉ                                         Γöé
  2443. Γöé >>ΓöÇΓöÇΓö┤ΓöÇRTEREUSΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2444. Γöé                                                  Γöé
  2445. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2446.  
  2447. NORTEREUS 
  2448.     Does not initialize the run-time environment to be reusable when the first 
  2449.     COBOL routine is invoked. 
  2450.  
  2451. RTEREUS 
  2452.     Initializes the run-time environment to be reusable when the first COBOL 
  2453.     routine is invoked. 
  2454.  
  2455. Usage Notes 
  2456.  
  2457.  When you specify RTEREUS in CEEDOPT or CEEUOPT, the only accepted syntax is 
  2458.   RTEREUS(ON) or RTEREUS(OFF). 
  2459.  
  2460.  CICS consideration-This option is ignored under CICS. 
  2461.  
  2462.  IMS consideration-RTEREUS is not recommended for use under IMS. 
  2463.  
  2464. Performance Considerations 
  2465.  
  2466. You must change STOP RUN statements to GOBACK statements in order to gain the 
  2467. benefits of RTEREUS. STOP RUN terminates the reusable environment. If you 
  2468. specify RTEREUS, LE/370 recreates the reusable environment on the next 
  2469. invocation of COBOL. Doing this repeatedly degrades performance, because a 
  2470. reusable environment takes longer to create than does a normal environment. 
  2471.  
  2472. LE/370 also offers preinitialization support in addition to RTEREUS. 
  2473.  
  2474.  
  2475. ΓòÉΓòÉΓòÉ 2.1.32. SIMVRD ΓòÉΓòÉΓòÉ
  2476.  
  2477. SIMVRD specifies whether your COBOL routines use a VSAM KSDS to simulate 
  2478. variable-length relative organization data sets. 
  2479.  
  2480. SIMVRD conforms to the ANSI 1985 COBOL standard. 
  2481.  
  2482. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2483. Γöé                                                  Γöé
  2484. Γöé   ΓöîΓöÇNOSIMVRDΓöÇΓöÉ                                         Γöé
  2485. Γöé >>ΓöÇΓöÇΓö┤ΓöÇSIMVRDΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2486. Γöé                                                  Γöé
  2487. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2488.  
  2489. NOSIMVRD 
  2490.     Do not use a VSAM KSDS to simulate variable length relative organization. 
  2491.  
  2492. SIMVRD 
  2493.     Use a VSAM KSDS to simulate variable length relative organization. 
  2494.  
  2495. Usage Notes 
  2496.  
  2497.  When specifying this option in CEEDOPT or CEEUOPT, use the syntax SIMVRD(ON) 
  2498.   or SIMVRD(OFF). Use SIMVRD and NOSIMVRD only on the command line. 
  2499.  
  2500.  CICS consideration-This option is ignored under CICS. 
  2501.  
  2502.  
  2503. ΓòÉΓòÉΓòÉ 2.1.33. STACK ΓòÉΓòÉΓòÉ
  2504.  
  2505. STACK controls the allocation of the thread's stack storage. Typical items 
  2506. residing in the stack are C or PL/I automatic variables, and temporary work 
  2507. areas for COBOL library routines. 
  2508.  
  2509. Storage required for the common anchor area (CAA) and other control blocks is 
  2510. allocated separately from, and prior to, the allocation of the initial stack 
  2511. segment and the initial heap. 
  2512.  
  2513. The IBM-supplied default is (512K,512K,BELOW,KEEP). 
  2514.  
  2515. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2516. Γöé                                                  Γöé
  2517. Γöé                          ΓöîΓöÇBELOWΓöÇΓöÇΓöÇΓöÇΓöÉ   ΓöîΓöÇKEEPΓöÇΓöÉ            Γöé
  2518. Γöé >>ΓöÇΓöÇSTACkΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2519. Γöé        ΓööΓöÇinit_sizeΓöÇΓöÿ   ΓööΓöÇincr_sizeΓöÇΓöÿ   ΓööΓöÇANYwhereΓöÇΓöÿ   ΓööΓöÇFREEΓöÇΓöÿ            Γöé
  2520. Γöé                                                  Γöé
  2521. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2522.  
  2523. init_size 
  2524.     Determines the size of the initial stack segment. The storage is 
  2525.     contiguous. You specify the init_size value as n, nK, or nM bytes of 
  2526.     storage. The actual amount of allocated storage is rounded up to the 
  2527.     nearest multiple of 4K. 
  2528.  
  2529.     init_size can be preceded by a minus sign. On systems other than CICS, if 
  2530.     you specify a negative number LE/370 uses all available storage minus the 
  2531.     amount specified for the initial stack segment. 
  2532.  
  2533.     A size of "0" or "-0" requests half of the largest block of contiguous 
  2534.     storage in the region below the 16M line. Behavior under CICS is described 
  2535.     in the Usage Notes for this run-time option. 
  2536.  
  2537. incr_size 
  2538.     Determines the minimum size of any subsequent increment to the stack area. 
  2539.     You can specify this value as n, nK, or nM bytes of storage. The actual 
  2540.     amount of allocated storage is the larger of two values- incr_size or the 
  2541.     requested size-rounded up to the nearest 4K (except under CICS). 
  2542.  
  2543.     If you specify incr_size as 0, only the amount of the storage needed at the 
  2544.     time of the request, rounded up to the nearest 4K, is obtained. 
  2545.  
  2546.     The requested size is the amount of storage a routine needs for a stack 
  2547.     frame. For example, if the requested size is 9000 bytes, incr_size is 
  2548.     specified as 8K, and the initial stack segment is full, LE/370 obtains a 
  2549.     12K stack increment from the operating system to satisfy the request. If 
  2550.     the requested size is smaller than 8K, LE/370 obtains an 8K stack increment 
  2551.     from the operating system. 
  2552.  
  2553. BELOW 
  2554.     Specifies that the stack storage must be allocated below the 16M line, in 
  2555.     storage that is accessible to 24-bit addressing. 
  2556.  
  2557. ANY 
  2558.     Specifies that stack storage can be allocated anywhere in storage. On 
  2559.     systems that support bimodal addressing, storage can be allocated either 
  2560.     above or below the 16M line. If there is no storage available above the 
  2561.     line, LE/370 acquires storage below the line. On systems that do not 
  2562.     support bimodal addressing (for example, when VM/ESA is initial program 
  2563.     loaded in 370 mode) LE/370 ignores this option and places the stack storage 
  2564.     below 16M. 
  2565.  
  2566. KEEP 
  2567.     Specifies that storage allocated to STACK increments is not released when 
  2568.     the last of the storage in the stack increment is freed. 
  2569.  
  2570. FREE 
  2571.     Specifies that storage allocated to STACK increments is released when the 
  2572.     last of the storage in the stack is freed. The initial stack segment is 
  2573.     never released until the enclave terminates. 
  2574.  
  2575. Usage Notes 
  2576.  
  2577.  Applications running with ALL31(OFF) must specify STACK(,,BELOW) to ensure 
  2578.   that stack storage is addressable by the application. 
  2579.  
  2580.  CICS consideration-The IBM-supplied default setting for STACK under CICS is 
  2581.   STACK(4K,4K,ANYWHERE,KEEP). 
  2582.  
  2583.   The maximum initial and increment size for CICS above 16M is 1 gigabyte 
  2584.   (1204M). This restriction is subject to change from one release of CICS to 
  2585.   another. 
  2586.  
  2587.   Both the initial size and the increment size are rounded up to the nearest 
  2588.   multiple of 8 bytes. The minimum is 4K. 
  2589.  
  2590.   If you do not specify STACK, LE/370 assumes the default value of 4K. Under 
  2591.   CICS, STACK(0), STACK (-0), and STACK (-n) are all interpreted as STACK(4K). 
  2592.  
  2593.  PL/I consideration-PL/I automatic storage above the 16M line is supported 
  2594.   under control of the LE/370 STACK option. When the LE/370 stack is above, 
  2595.   PL/I temporaries (dummy arguments) and parameter lists (for 
  2596.   reentrant/recursive blocks) also reside above. 
  2597.  
  2598.   You must recompile your programs with PL/I MVS & VM to use this feature. 
  2599.   Otherwise, you must use STACK(BELOW) or results are unpredictable. 
  2600.  
  2601.   The stack frame size for an individual block is constrained to 16M. Stack 
  2602.   frame extensions are also constrained to 16M. Therefore, the size of an 
  2603.   automatic aggregate, temporary variable, or dummy argument cannot exceed 16M. 
  2604.   Violation of this constraint might have unpredictable results. 
  2605.  
  2606.  OpenEdition MVS consideration-The STACK option specifies the characteristics 
  2607.   of the user stack for the initial thread. In particular, it obtains the 
  2608.   initial size of the user stack for the initial thread. 
  2609.  
  2610.   The characteristics that indicate incr_size, ANYWHERE, and KEEP | FREE apply 
  2611.   to any thread created using pthread_create. For threads created using 
  2612.   pthread_create, LE/370 obtains the initial stack size from the threads 
  2613.   attribute object specified in the pthread_create function. The default size 
  2614.   to be set in the threads attribute object is obtained from the STACK run-time 
  2615.   option's initial size. 
  2616.  
  2617.   The recommended default setting for STACK under OpenEdition MVS is 
  2618.   STACK(12K,12K,ANYWHERE,KEEP). 
  2619.  
  2620. Performance Considerations 
  2621.  
  2622. To improve performance, use the storage report numbers generated by the RPTSTG 
  2623. run-time option as an aid in setting the initial and increment size for STACK. 
  2624. See RPTSTG for more information about the RPTSTG run-time option. 
  2625.  
  2626.  
  2627. ΓòÉΓòÉΓòÉ 2.1.34. STORAGE ΓòÉΓòÉΓòÉ
  2628.  
  2629. STORAGE controls the initial content of storage when allocated and freed, and 
  2630. the amount of storage that is reserved for the out-of-storage condition. If you 
  2631. specify one of the parameters in the STORAGE run-time option, all allocated 
  2632. storage processed by the parameter is initialized to that value. Otherwise, it 
  2633. is left uninitialized. 
  2634.  
  2635. You can use the STORAGE option to identify uninitialized application variables, 
  2636. or prevent the accidental use of previously freed storage. STORAGE is also 
  2637. useful in data security. For example, storage containing sensitive data can be 
  2638. cleared when it is freed. 
  2639.  
  2640. The IBM-supplied default is (NONE,NONE,NONE,8K). 
  2641.  
  2642. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2643. Γöé                                                  Γöé
  2644. Γöé >>ΓöÇΓöÇSTOrageΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé
  2645. Γöé         ΓööΓöÇheap_alloc_valueΓöÇΓöÿ   ΓööΓöÇheap_free_valueΓöÇΓöÿ   ΓööΓöÇdsa_alloc_valueΓöÇΓöÿ       Γöé
  2646. Γöé                                                  Γöé
  2647. Γöé >ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2648. Γöé   ΓööΓöÇreserve_sizeΓöÇΓöÿ                                        Γöé
  2649. Γöé                                                  Γöé
  2650. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2651.  
  2652. heap_alloc_value 
  2653.     The initialized value of any heap storage allocated by the storage manager. 
  2654.     You can specify heap_alloc_value as: 
  2655.  
  2656.     A single character enclosed in quotes. If you specify a single character, 
  2657.      every byte of heap storage allocated by the storage manager is initialized 
  2658.      to that character's EBCDIC equivalent. For example, if you specify 'a' as 
  2659.      the heap_alloc_value, heap storage is initialized to X'818181...81' or 
  2660.      'aaa...a'. 
  2661.  
  2662.     Two hex digits without quotes. If you specify two hex digits, every byte 
  2663.      of the allocated heap storage is initialized to that value. For example, 
  2664.      If you specify FE as the heap_alloc_value, heap storage is initialized to 
  2665.      X'FEFEFE...FE'. A heap_alloc_value of 00 initializes heap storage to 
  2666.      X'0000...00'. 
  2667.  
  2668.     NONE. If you specify NONE, the allocated heap storage is not initialized. 
  2669.  
  2670. heap_free_value 
  2671.     The value of any heap storage freed by the storage manager is overwritten. 
  2672.     You can specify heap_free_value as: 
  2673.  
  2674.     A single character enclosed in quotes. For example, a heap_free_value of 
  2675.      'f' overwrites freed heap storage to X'868686...86'; 'B' overwrites freed 
  2676.      heap storage to X'C2'. 
  2677.  
  2678.     Two hex digits without quotes. A heap_free_value of FE overwrites freed 
  2679.      heap storage with X'FEFEFE...FE'. 
  2680.  
  2681.     NONE. If you specify NONE, the freed heap storage is not initialized. 
  2682.  
  2683. dsa_alloc_value 
  2684.     The initialized value of stack frames from the LE/370 stack. A stack frame 
  2685.     is dynamically-acquired storage that is composed of a standard register 
  2686.     save area and the area available for automatic storage. 
  2687.  
  2688.     If specified, all LE/370 stack storage, including automatic variable 
  2689.     storage, is initialized to dsa_alloc_value. Stack frames allocated outside 
  2690.     the LE/370 stack are never initialized. 
  2691.  
  2692.     You can specify dsa_alloc_value as: 
  2693.  
  2694.     A single character enclosed in quotes. If you specify a single character, 
  2695.      any dynamically acquired stack storage allocated by the storage manager is 
  2696.      initialized to that character's EBCDIC equivalent. For example, if you 
  2697.      specify 'A' as the dsa_alloc_value, stack storage is initialized to X'C1'. 
  2698.      A dsa_alloc_value of 'F' initializes stack storage to X'C6', 'd' to X'84'. 
  2699.  
  2700.     Two hex digits without quotes. If you specify two hex digits, any 
  2701.      dynamically-acquired stack storage is initialized to that value. For 
  2702.      example, if you specify FE as the dsa_alloc_value, stack storage is 
  2703.      initialized to X'FE'. A dsa_alloc_value of 00 initializes stack storage to 
  2704.      X'00', FF to X'FF'. 
  2705.  
  2706.     NONE. If you specify NONE, the stack storage is not initialized. 
  2707.  
  2708. reserve_size 
  2709.     The amount of storage for the LE/370 storage manager to reserve in the 
  2710.     event of an out-of-storage condition. You can specify the reserve_size 
  2711.     value as n, nK, or nM bytes of storage. The amount of storage is rounded to 
  2712.     the nearest 4K. 
  2713.  
  2714.     If you specify reserve_size as 0, no reserve segment is allocated. If you 
  2715.     do not specify a reserve segment and your application runs out of storage, 
  2716.     the application abends with a return code of 4088 and a reason code of 
  2717.     1004. 
  2718.  
  2719.     If you specify a reserve_size that is greater than 0 on a non-CICS system, 
  2720.     LE/370 does not immediately abend when your application runs out of 
  2721.     storage. Instead, when the stack overflows, LE/370 attempts to get another 
  2722.     stack segment and add it to the stack. 
  2723.  
  2724.     If unsuccessful, LE/370 temporarily adds the reserve stack segment to the 
  2725.     overflowing stack, and signals the out-of-storage condition. This causes a 
  2726.     user-written condition handler to gain control and release storage. If the 
  2727.     reserve stack segment overflows while this is happening, LE/370 abends with 
  2728.     a return code of 4088 and reason code of 1004. 
  2729.  
  2730.     To avoid such an overflow, increase the size of the reserve stack segment 
  2731.     with the STORAGE(,,,reserve_size) run-time option. The reserve stack 
  2732.     segment is not freed until thread termination. 
  2733.  
  2734. Usage Notes 
  2735.  
  2736.  heap_alloc_value, heap_free_value, and dsa_alloc_value can all be enclosed in 
  2737.   quotes. To initialize heap storage to the EBCDIC equivalent of a single 
  2738.   quote, double it within the string delimited by single quotes or surround it 
  2739.   with a pair of double quotes. Both of the following are correct ways to 
  2740.   specify a single quote: 
  2741.  
  2742.       STORAGE('''')
  2743.       STORAGE("'")
  2744.   Similarly, double quotes must be doubled within a string delimited by double 
  2745.   quotes, or surrounded by a pair of single quotes. The following are correct 
  2746.   ways to specify a double quote: 
  2747.  
  2748.       STORAGE("""")
  2749.       STORAGE('"')
  2750.  
  2751.  CICS consideration-The IBM-supplied default setting for STORAGE under CICS is 
  2752.   STORAGE(NONE,NONE,NONE,0K). 
  2753.  
  2754.   The out-of-storage condition is not raised under CICS. 
  2755.  
  2756.  OpenEdition MVS consideration-The STORAGE option applies to the enclave. 
  2757.  
  2758. Performance Considerations 
  2759.  
  2760. Using STORAGE to control initial values can increase program run time. If you 
  2761. specify a dsa_alloc_value, performance is likely to be poor. Therefore, use the 
  2762. dsa_alloc_value option only for debugging, not to initialize automatic 
  2763. variables or data structures. 
  2764.  
  2765. Use STORAGE(NONE,NONE,NONE) when you are not debugging. 
  2766.  
  2767.  
  2768. ΓòÉΓòÉΓòÉ 2.1.35. TERMTHDACT ΓòÉΓòÉΓòÉ
  2769.  
  2770. TERMTHDACT sets the level of information that is produced when LE/370 
  2771. percolates a condition of severity 2 or greater beyond the first routine's 
  2772. stack frame. 
  2773.  
  2774. The LE/370 service CEE3DMP is called for the TRACE and DUMP suboptions of 
  2775. TERMTHDACT. 
  2776.  
  2777. The following CEE3DMP options are passed for TRACE: 
  2778.  
  2779. NOENTRY CONDITION TRACEBACK THREAD(ALL) NOBLOCK NOSTORAGE NOVARIABLES NOFILES 
  2780. STACKFRAME(ALL) PAGESIZE(60) FNAME(CEEDUMP) 
  2781.  
  2782. The following options are passed for DUMP: 
  2783.  
  2784. THREAD(ALL) NOENTRY TRACEBACK FILES VARIABLES BLOCK STORAGE STACKFRAME(ALL) 
  2785. PAGESIZE(60) FNAME(CEEDUMP) CONDITION 
  2786.  
  2787. For more information about the CEE3DMP service and its parameters, see 
  2788. CEE3DMP-Generate Dump. 
  2789.  
  2790. If a message is printed (based upon the TERMTHDACT run-time option), the 
  2791. message is for the active condition immediately prior to the termination 
  2792. imminent step. In addition, if that active condition is a promoted condition 
  2793. (was not the original condition), the original condition's message is printed. 
  2794.  
  2795. If the TRACE run-time option is specified with the DUMP suboption, a dump 
  2796. containing the trace table, at a minimum, is produced. The contents of the dump 
  2797. depend on the values set in the TERMTHDACT run-time option. 
  2798.  
  2799. Under abnormal termination, the following dump contents are generated: 
  2800.  
  2801.  TERMTHDACT(TRACE)-generates a dump containing the trace table and the 
  2802.   traceback 
  2803.  
  2804.  TERMTHDACT(QUIET)-generates a dump containing the trace table only 
  2805.  
  2806.  TERMTHDACT(MSG)-generates a dump containing the trace table only 
  2807.  
  2808.  TERMTHDACT(DUMP)-generates a dump containing thread/enclave/process storage 
  2809.   and control blocks (the trace table is included as an enclave control block) 
  2810.  
  2811. Under normal termination, the following dump contents are generated: 
  2812.  
  2813.  Independent of the TERMTHDACT setting, LE/370 generates a dump containing the 
  2814.   trace table only. 
  2815.  
  2816. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2817. Γöé                                                  Γöé
  2818. Γöé           ΓöîΓöÇTRACEΓöÇΓöÉ                                   Γöé
  2819. Γöé >>ΓöÇΓöÇTERmthdactΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2820. Γöé           Γö£ΓöÇQUIETΓöÇΓöñ                                   Γöé
  2821. Γöé           Γö£ΓöÇMSGΓöÇΓöÇΓöÇΓöñ                                   Γöé
  2822. Γöé           ΓööΓöÇDUMPΓöÇΓöÇΓöÿ                                   Γöé
  2823. Γöé                                                  Γöé
  2824. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2825.  
  2826. TRACE 
  2827.     Specifies that when a thread terminates due to an unhandled condition of 
  2828.     severity 2 or greater, LE/370 generates a message indicating the cause of 
  2829.     the termination and a trace of the active routines on the activation stack. 
  2830.  
  2831. QUIET 
  2832.     Specifies that LE/370 does not generate a message when a thread terminates 
  2833.     due to an unhandled condition of severity 2 or greater. 
  2834.  
  2835. MSG 
  2836.     Specifies that when a thread terminates due to an unhandled condition of 
  2837.     severity 2 or greater, LE/370 generates a message indicating the cause of 
  2838.     the termination. 
  2839.  
  2840. DUMP 
  2841.     Specifies that when a thread terminates due to an unhandled condition of 
  2842.     severity 2 or greater, LE/370 generates a message indicating the cause of 
  2843.     the termination, a trace of the active routines on the activation stack, 
  2844.     and an LE/370 dump. 
  2845.  
  2846. Usage Notes 
  2847.  
  2848.  PL/I considerations-After a normal return from a PL/I ERROR ON-unit or from a 
  2849.   PL/I FINISH ON-unit, LE/370 considers the condition unhandled. If a GOTO is 
  2850.   not performed and the resume cursor is not moved, the thread terminates. The 
  2851.   TERMTHDACT setting guides the amount of information that is produced. The 
  2852.   message is not presented twice. 
  2853.  
  2854.  CICS consideration-All TERMTHDACT output is written to a transient data queue 
  2855.   named CESE. 
  2856.  
  2857.  OpenEdition MVS consideration-The TERMTHDACT option applies when a thread 
  2858.   terminates abnormally. Abnormal termination of a single thread causes 
  2859.   termination of the entire enclave. If an unhandled condition of severity 2 or 
  2860.   higher percolates beyond the first routine's stack frame, the enclave 
  2861.   terminates abnormally. 
  2862.  
  2863.   If an enclave terminates due to a POSIX default signal action, TERMTHDACT 
  2864.   applies only to conditions that result from program checks or abends. 
  2865.  
  2866.  
  2867. ΓòÉΓòÉΓòÉ 2.1.36. TEST | NOTEST ΓòÉΓòÉΓòÉ
  2868.  
  2869. TEST specifies the conditions under which a debug tool such as the IBM SAA 
  2870. AD/Cycle Debug Tool/370 assumes control when the user application is being 
  2871. initialized. 
  2872.  
  2873. Parameters of the TEST and NOTEST run-time options are merged as one set of 
  2874. parameters. 
  2875.  
  2876. The IBM-supplied default is: NOTEST(ALL,*,PROMPT,INSPPREF). 
  2877.  
  2878. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2879. Γöé                                                  Γöé
  2880. Γöé   ΓöîΓöÇNOTestΓöÇΓöÉ   ΓöîΓöÇALLΓöÇΓöÇΓöÇΓöÉ              ΓöîΓöÇPROMPTΓöÇΓöÇΓöÇΓöÉ                Γöé
  2881. Γöé >>ΓöÇΓöÇΓö┤ΓöÇTESTΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ> Γöé
  2882. Γöé           Γö£ΓöÇERRORΓöÇΓöñ   Γö£ΓöÇcommands_fileΓöÇΓöñ   Γö£ΓöÇNOPROMPTΓöÇΓöñ   Γö£ΓöÇpreference_fileΓöÇΓöñ    Γöé
  2883. Γöé           ΓööΓöÇNONEΓöÇΓöÇΓöÿ   ΓööΓöÇ*ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ   Γö£ΓöÇ*ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ   ΓööΓöÇ*ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ    Γöé
  2884. Γöé                             Γö£ΓöÇ;ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ                Γöé
  2885. Γöé                             ΓööΓöÇcommandΓöÇΓöÇΓöÿ                Γöé
  2886. Γöé                                                  Γöé
  2887. Γöé >ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  2888. Γöé                                                  Γöé
  2889. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2890.  
  2891. ALL 
  2892.     Specifies that any of the following causes the debug tool to gain control 
  2893.     even without a defined AT OCCURRENCE for a particular condition or AT 
  2894.     TERMINATION: 
  2895.  
  2896.     The ATTENTION function 
  2897.     Any LE/370 condition of severity 1 or above 
  2898.     Application termination 
  2899.  
  2900. ERROR 
  2901.     Specifies that only one of the following causes the debug tool to gain 
  2902.     control without a defined AT OCCURRENCE for a particular condition or AT 
  2903.     TERMINATION: 
  2904.  
  2905.     The ATTENTION function 
  2906.     Any LE/370-defined error condition of severity 2 or higher 
  2907.     Application termination 
  2908.  
  2909. NONE 
  2910.     Specifies that no condition causes the debug tool to gain control without a 
  2911.     defined AT OCCURRENCE for a particular condition or AT TERMINATION. 
  2912.  
  2913. commands_file 
  2914.     A valid ddname, data set name (MVS), or file name (CMS), specifying the 
  2915.     primary commands file for this run. If you do not specify this parameter 
  2916.     all requests for commands go to the user terminal. 
  2917.  
  2918.     You can enclose commands_file in single or double quotes to distinguish it 
  2919.     from the rest of the TEST | NOTEST suboption list. It can have a maximum 
  2920.     length of 80 characters. If the data set name provided could be interpreted 
  2921.     as a ddname, it must be preceded by a slash (/). The slash and data set 
  2922.     name must be enclosed in quotes. 
  2923.  
  2924.     A primary commands file is required when running in a batch environment. 
  2925.  
  2926. * (asterisk-in place of commands_file) 
  2927.     Specifies that no commands_file is supplied. The terminal, if available, is 
  2928.     used as the source of the debug tool commands. 
  2929.  
  2930. PROMPT 
  2931.     Specifies that the debug tool is invoked at LE/370 initialization. 
  2932.  
  2933. NOPROMPT 
  2934.     Specifies that the debug tool is not invoked at LE/370 initialization. 
  2935.  
  2936. * (asterisk-in place of PROMPT/NOPROMPT) 
  2937.     Specifies that the debug tool is not invoked at LE/370 initialization; 
  2938.     equivalent to NOPROMPT. 
  2939.  
  2940. ; (semicolon-in place of PROMPT/NOPROMPT) 
  2941.     Specifies that the debug tool is invoked at LE/370 initialization; 
  2942.     equivalent to PROMPT. 
  2943.  
  2944. command 
  2945.     A character string that specifies a valid debug tool command. The command 
  2946.     list can be enclosed in single or double quotes to distinguish it from the 
  2947.     rest of the TEST parameter list. It cannot contain DBCS characters. The 
  2948.     list can have a maximum of 250 characters. 
  2949.  
  2950. preference_file 
  2951.     A valid ddname, data set name (MVS), or file name (CMS), specifying the 
  2952.     preference file to be used. A preference file is a type of commands file 
  2953.     that you can use to specify settings for your debugging environment. It is 
  2954.     analogous to creating a profile for a text editor, or initializing an S/370 
  2955.     terminal session. 
  2956.  
  2957.     You can enclose preference_file in single or double quotes to distinguish 
  2958.     it from the rest of the TEST parameter list. It can have a maximum of 80 
  2959.     characters. 
  2960.  
  2961.     If a specified data set name could be interpreted as a ddname, it must be 
  2962.     preceded by a slash (/). The slash and data set name must be enclosed in 
  2963.     quotes. 
  2964.  
  2965.     The IBM-supplied default setting for preference_file is INSPPREF. 
  2966.  
  2967. * (asterisk-in place of preference_file) 
  2968.     Specifies that no preference_file is supplied. 
  2969.  
  2970. Usage Notes 
  2971.  
  2972.  You can specify parameters on the NOTEST option. If NOTEST is in effect when 
  2973.   the application gains control, it is interpreted as TEST(NONE,,*,). If Debug 
  2974.   Tool/370 is initialized using a CALL CEETEST or equivalent, the initial test 
  2975.   level, the initial commands_file, and the initial preference_file are taken 
  2976.   from the NOTEST run-time option setting. 
  2977.  
  2978.  OpenEdition MVS consideration-LE/370 honors the initial command string before 
  2979.   the main routine runs on the initial thread. 
  2980.  
  2981.   The test level (ALL, ERROR, NONE) applies to the enclave. 
  2982.  
  2983.   LE/370 honors the preference file when the debug tool is initialized, 
  2984.   regardless of which thread first requests the debug tool services. 
  2985.  
  2986. Performance Consideration 
  2987.  
  2988. To improve performance, use this option only while debugging. 
  2989.  
  2990.  
  2991. ΓòÉΓòÉΓòÉ 2.1.37. TRACE ΓòÉΓòÉΓòÉ
  2992.  
  2993. TRACE controls run-time library tracing activity, the size of the in-storage 
  2994. trace table, the type of trace events to record, and it determines whether a 
  2995. dump containing, at a minimum, the trace table should be unconditionally taken 
  2996. when the application terminates. When you specify TRACE(ON), user-requested 
  2997. trace entries are intermixed with LE/370 trace entries in the trace table. 
  2998.  
  2999. Under normal termination conditions, if TRACE is active and you specify DUMP, 
  3000. only the trace table is written to the dump report, independent of the 
  3001. TERMTHDACT setting. Only one dump is taken for each termination. Under abnormal 
  3002. termination conditions, the type of dump taken (if one is taken) depends on the 
  3003. value of the TERMTHDACT run-time option and whether TRACE is active and the 
  3004. DUMP suboption is specified. For more information about the dump contents, see 
  3005. TERMTHDACT. 
  3006.  
  3007. The IBM-supplied default is TRACE(OFF,4K,DUMP,LE=0). 
  3008.  
  3009. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3010. Γöé                                                  Γöé
  3011. Γöé        ΓöîΓöÇOFFΓöÇΓöÉ          ΓöîΓöÇDUMPΓöÇΓöÇΓöÇΓöÉ                         Γöé
  3012. Γöé >>ΓöÇΓöÇTRACEΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3013. Γöé        ΓööΓöÇONΓöÇΓöÇΓöÿ  ΓööΓöÇtable_sizeΓöÇΓöÿ  ΓööΓöÇNODUMPΓöÇΓöÿ  ΓööΓöÇLE=ΓöÇΓöÿ                    Γöé
  3014. Γöé                                                  Γöé
  3015. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3016.  
  3017. OFF 
  3018.     Indicates that the tracing facility is inactive. 
  3019.  
  3020. ON 
  3021.     Indicates that the tracing facility is active. 
  3022.  
  3023. table_size 
  3024.     Determines the size of the tracing table as specified in bytes (nK or nM). 
  3025.     The upper limit is 16M. 
  3026.  
  3027. DUMP 
  3028.     Requests that an LE/370-formatted dump (containing the trace table) be 
  3029.     taken at program termination regardless of the setting of the TERMTHDACT 
  3030.     run-time option. 
  3031.  
  3032. NODUMP 
  3033.     Requests that an LE/370-formatted dump not be taken at program termination. 
  3034.  
  3035. LE=n 
  3036.     Requests the type of trace events to be recorded. 
  3037.  
  3038.     n is a hexadecimal number with a maximum of eight characters or digits. If 
  3039.     you specify fewer than eight hexadecimal digits, the value is padded on the 
  3040.     left with zeros. The possible settings for the trace events are: 
  3041.  
  3042.    0   No trace 
  3043.  
  3044.    1   Entry/exit members from LE/370 members 
  3045.  
  3046.    2   Mutex init/destroy and locks/unlocks from LE/370 members 
  3047.  
  3048.  
  3049. ΓòÉΓòÉΓòÉ 2.1.38. TRAP ΓòÉΓòÉΓòÉ
  3050.  
  3051. TRAP specifies how LE/370 routines handle abends and program interrupts. 
  3052. TRAP(ON) must be in effect in order for applications to run successfully. 
  3053.  
  3054. This option is similar to the STAE | NOSTAE run-time option currently offered 
  3055. by COBOL and C and the SPIE | NOSPIE option offered by C and PL/I: 
  3056.  
  3057.  When only a single option is specified in input, TRAP is set according to 
  3058.   that option: TRAP(OFF) for NOSTAE or NOSPIE, TRAP(ON) for STAE or SPIE. 
  3059.  
  3060.  When both options are specified in input (STAE/SPIE, SPIE/STAE, STAE/NOSPIE, 
  3061.   NOSPIE/STAE, SPIE/NOSTAE, NOSTAE/SPIE), TRAP is set to ON unless both options 
  3062.   are negative. In this case, TRAP is set to OFF. (This is for diagnosis only 
  3063.   in LE/370.) 
  3064.  
  3065.   However, if you specified STAE in one #pragma runopts statement, and NOSPIE 
  3066.   in another, the result would be TRAP(OFF). In this case, the option in the 
  3067.   last #pragma runopts determines the setting of TRAP. 
  3068.  
  3069.  If multiple instances of STAE | NOSTAE are encountered, all except the last 
  3070.   instance are ignored. 
  3071.  
  3072.   If multiple instances of SPIE | NOSPIE are encountered, all except the last 
  3073.   instance are ignored. 
  3074.  
  3075.  If an options string has TRAP(ON) or TRAP(OFF) together with SPIE | NOSPIE 
  3076.   and/or STAE | NOSTAE, the TRAP setting takes precedence over all of the 
  3077.   others. 
  3078. The use of the CEESGL callable service remains unaffected by this option. See 
  3079. CEESGL-Signal a Condition for more information. 
  3080.  
  3081. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3082. Γöé                                                  Γöé
  3083. Γöé        ΓöîΓöÇONΓöÇΓöÇΓöÉ                                       Γöé
  3084. Γöé >>ΓöÇΓöÇTRapΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3085. Γöé        ΓööΓöÇOFFΓöÇΓöÿ                                       Γöé
  3086. Γöé                                                  Γöé
  3087. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3088.  
  3089. ON 
  3090.     Fully enables the LE/370 condition handler. 
  3091.  
  3092. OFF 
  3093.     Prevents language condition handlers or handlers registered by CEEHDLR from 
  3094.     being notified of abends or program checks; prevents application of POSIX 
  3095.     signal handling semantics for abends and program checks. 
  3096.  
  3097.     For more information about the CEEHDLR callable service, see 
  3098.     CEEHDLR-Register User-Written Condition Handler. 
  3099.  
  3100. Usage Notes 
  3101.  
  3102.  During normal processing, LE/370 expects TRAP(ON) to be in effect for the 
  3103.   application to run successfully, especially when the POSIX option is set to 
  3104.   ON. Use TRAP(OFF) when a program exception needs to be analyzed before LE/370 
  3105.   handles it. 
  3106.  
  3107.  When you specify TRAP(OFF) in a non-CICS environment, neither ESPIE nor ESTAE 
  3108.   is issued. LE/370 does not handle conditions raised by program interrupts or 
  3109.   abends initiated by SVC 13 as LE/370 conditions, and does not print messages 
  3110.   for such conditions. 
  3111.  
  3112.  Running with TRAP(OFF) (for exception diagnosis purposes) can cause many side 
  3113.   effects, because LE/370 uses condition handling internally and requires 
  3114.   TRAP(ON). When you run with TRAP(OFF), you can get side effects even if you 
  3115.   do not encounter a software-raised condition, program check, or abend. If you 
  3116.   do encounter a program check or an abend with TRAP(OFF) in effect, the 
  3117.   following side effects can occur: 
  3118.  
  3119.    - The ABTERMENC run-time option has no effect. 
  3120.  
  3121.    - Resources acquired by LE/370 are not freed. 
  3122.  
  3123.    - Files opened by HLLs are not closed by LE/370, so records might be lost. 
  3124.  
  3125.    - The abnormal termination exit is not driven for enclave termination. 
  3126.  
  3127.    - The assembler user exit is not driven for enclave termination. 
  3128.  
  3129.    - User condition handlers are not enabled. 
  3130.  
  3131.    - The debugger is not notified of the error. 
  3132.  
  3133.    - No storage report or run-time options report is generated. 
  3134.  
  3135.    - No LE/370 messages or LE/370 dump output is generated. 
  3136.  
  3137.    - In OpenEdition MVS, POSIX signal handling semantics are not enabled for 
  3138.      the abend. The enclave terminates abnormally if such conditions are 
  3139.   raised. 
  3140.  
  3141.  TRAP(ON) must be in effect when you use the CEEBXITA assembler user exit for 
  3142.   enclave initialization to specify a list of abend codes that LE/370 
  3143.   percolates. 
  3144.  
  3145.  If your application uses extended-precision arithmetic and runs on a 370-mode 
  3146.   machine, you must specify TRAP(ON) and add the CMSLIB TXTLIB with the GLOBAL 
  3147.   TXTLIB command. 
  3148.  
  3149.  CICS consideration-When you specify TRAP(OFF) in a CICS environment, the 
  3150.   standard CICS system action occurs. LE/370 does not print messages for 
  3151.   conditions raised by program interruptions or transaction abends. 
  3152.  
  3153.  OpenEdition MVS consideration-The TRAP option applies to the entire enclave 
  3154.   and all threads within. 
  3155.  
  3156.  
  3157. ΓòÉΓòÉΓòÉ 2.1.39. UPSI ΓòÉΓòÉΓòÉ
  3158.  
  3159. UPSI sets the eight UPSI switches on or off for applications that use COBOL 
  3160. routines. 
  3161.  
  3162. The IBM-supplied default setting is UPSI(00000000). 
  3163.  
  3164. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3165. Γöé                                                  Γöé
  3166. Γöé >>ΓöÇΓöÇUPSIΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3167. Γöé        ΓööΓöÇnnnnnnnnΓöÇΓöÿ                                     Γöé
  3168. Γöé                                                  Γöé
  3169. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3170.  
  3171. nnnnnnnn 
  3172.     n represents one UPSI switch between 0 and 7, the leftmost n representing 
  3173.     the first switch. Each n can either be 0 (off) or 1 (on). 
  3174.  
  3175. Usage Note 
  3176.  
  3177.  When you specify this option in CEEDOPT or CEEUOPT, specify UPSI with a 
  3178.   string of eight binary-valued flags; for example, UPSI(00000000). Use UPSI, 
  3179.   not followed by a string, only on the command line. 
  3180.  
  3181.  
  3182. ΓòÉΓòÉΓòÉ 2.1.40. VCTRSAVE ΓòÉΓòÉΓòÉ
  3183.  
  3184. VCTRSAVE specifies whether any language in the application uses the vector 
  3185. facility when the user-written condition handlers are called. 
  3186.  
  3187. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3188. Γöé                                                  Γöé
  3189. Γöé          ΓöîΓöÇOFFΓöÇΓöÉ                                     Γöé
  3190. Γöé >>ΓöÇΓöÇVctrsaveΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3191. Γöé          ΓööΓöÇONΓöÇΓöÇΓöÿ                                     Γöé
  3192. Γöé                                                  Γöé
  3193. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3194.  
  3195. OFF 
  3196.     No language in the application uses the vector facility when user-provided 
  3197.     condition handlers are called. 
  3198.  
  3199. ON 
  3200.     A language in the application uses the vector facility when user-provided 
  3201.     condition handlers are called. 
  3202.  
  3203. Usage Note 
  3204.  
  3205.  OpenEdition MVS consideration-The VCTRSAVE option applies to the entire 
  3206.   enclave and all threads within. 
  3207.  
  3208. Performance Considerations 
  3209.  
  3210. When the condition handler plans to use the vector facility (that is, run any 
  3211. vector instructions), the entire vector environment has to be saved on every 
  3212. condition and restored on return to the application code. You can avoid this 
  3213. extra work by specifying VCTRSAVE(OFF) when you are not running an application 
  3214. under vector hardware. 
  3215.  
  3216.  
  3217. ΓòÉΓòÉΓòÉ 2.1.41. XUFLOW ΓòÉΓòÉΓòÉ
  3218.  
  3219. XUFLOW specifies whether an exponent underflow causes a program interrupt. An 
  3220. exponent underflow occurs when a floating point number becomes too small to be 
  3221. represented. 
  3222.  
  3223. The underflow setting is determined at enclave initialization and is updated 
  3224. when new languages are introduced into the application (via fetch or dynamic 
  3225. call, for example). Otherwise, it does not vary while the application is 
  3226. running. 
  3227.  
  3228. LE/370 preserves the language semantics for C and COBOL regardless of the 
  3229. XUFLOW setting. LE/370 preserves the language semantics for PL/I only when 
  3230. XUFLOW is set to AUTO or ON. LE/370 does not preserve the language semantics 
  3231. for PL/I when XUFLOW is set to OFF. 
  3232.  
  3233. An exponent underflow caused by a C or COBOL routine does not cause a condition 
  3234. to be raised. 
  3235.  
  3236. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3237. Γöé                                                  Γöé
  3238. Γöé         ΓöîΓöÇAUTOΓöÇΓöÉ                                      Γöé
  3239. Γöé >>ΓöÇΓöÇXuflowΓöÇΓöÇ(ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3240. Γöé         Γö£ΓöÇONΓöÇΓöÇΓöÇΓöñ                                      Γöé
  3241. Γöé         ΓööΓöÇOFFΓöÇΓöÇΓöÿ                                      Γöé
  3242. Γöé                                                  Γöé
  3243. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3244.  
  3245. AUTO 
  3246.     An exponent underflow causes or does not cause a program interrupt 
  3247.     dynamically, based upon the HLLs that make up the application. Enablement 
  3248.     is determined without user intervention. 
  3249.  
  3250. ON 
  3251.     An exponent underflow causes a program interrupt. 
  3252.  
  3253. OFF 
  3254.     An exponent underflow does not cause a program interrupt; the hardware 
  3255.     takes care of the underflow. 
  3256.  
  3257. Usage Notes 
  3258.  
  3259.  When you set XUFLOW to OFF, the hardware processes exponent underflows. This 
  3260.   is more efficient than condition handling to process the underflow. However, 
  3261.   the semantics of PL/I require the underflow to be signaled. 
  3262.  
  3263.  XUFLOW(ON) causes condition management to process underflows regardless of 
  3264.   the mix of languages; therefore, this setting might be less efficient in 
  3265.   applications that consist of languages not requiring underflows to be 
  3266.   processed by condition management. 
  3267.  
  3268.  XUFLOW(AUTO) causes condition management to process underflows only in those 
  3269.   applications where the semantics of the application languages require it. 
  3270.   Normally, XUFLOW(AUTO) provides the best efficiency while meeting language 
  3271.   semantics. 
  3272.  
  3273.  OpenEdition MVS consideration-The XUFLOW option applies to the entire enclave 
  3274.   and all threads within. 
  3275.  
  3276.  
  3277. ΓòÉΓòÉΓòÉ 3. LE/370 Callable Services ΓòÉΓòÉΓòÉ
  3278.  
  3279. This chapter describes how LE/370 callable services are invoked under 
  3280. LE/370-conforming HLLs. 
  3281.  
  3282. It also provides an overview of LE/370 callable services, which you can invoke 
  3283. from the following languages: 
  3284.  
  3285.  LE/370-conforming C/370 
  3286.  COBOL/370 
  3287.  PL/I MVS & VM 
  3288.  Assembler coded by using the CEEENTRY and associated macros 
  3289.  
  3290. This section contains the following callable services: 
  3291.  
  3292. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3293. Γöé CEE3ABD-Terminate Enclave with an Abend                              Γöé
  3294. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3295. Γöé CEE3CIB-Return Pointer to Condition Information Block                       Γöé
  3296. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3297. Γöé CEE3CTY-Set Default Country                                    Γöé
  3298. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3299. Γöé CEE3DMP-Generate Dump                                       Γöé
  3300. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3301. Γöé CEE3GRC-Get the Enclave Return Code                                Γöé
  3302. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3303. Γöé CEE3GRN-Get Name of Routine that Incurred Condition                        Γöé
  3304. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3305. Γöé CEE3LNG-Set National Language                                   Γöé
  3306. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3307. Γöé CEE3MCS-Get Default Currency Symbol                                Γöé
  3308. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3309. Γöé CEE3MDS-Get Default Decimal Separator                               Γöé
  3310. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3311. Γöé CEE3MTS-Get Default Thousands Separator                              Γöé
  3312. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3313. Γöé CEE3PRM-Query Parameter String                                  Γöé
  3314. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3315. Γöé CEE3RPH-Set Report Heading                                    Γöé
  3316. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3317. Γöé CEE3SPM-Query and Modify LE/370 Hardware Condition Enablement                   Γöé
  3318. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3319. Γöé CEE3SRC-Set the Enclave Return Code                                Γöé
  3320. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3321. Γöé CEE3USR-Set or Query User Area Fields                               Γöé
  3322. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3323. Γöé CEECBLDY-Convert Date to COBOL Lilian Format                           Γöé
  3324. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3325. Γöé CEECMI-Store and Load Message Insert Data                             Γöé
  3326. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3327. Γöé CEECRHP-Create New Additional Heap                                Γöé
  3328. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3329. Γöé CEECZST-Reallocate (Change Size of) Storage                            Γöé
  3330. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3331. Γöé CEEDATE-Convert Lilian Date to Character Format                          Γöé
  3332. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3333. Γöé CEEDATM-Convert Seconds to Character Timestamp                          Γöé
  3334. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3335. Γöé CEEDAYS-Convert Date to Lilian Format                               Γöé
  3336. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3337. Γöé CEEDCOD-Decompose a Condition Token                                Γöé
  3338. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3339. Γöé CEEDSHP-Discard Heap                                       Γöé
  3340. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3341. Γöé CEEDYWK-Calculate Day of Week from Lilian Date                          Γöé
  3342. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3343. Γöé CEEFMDA-Get Default Date Format                                  Γöé
  3344. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3345. Γöé CEEFMDT-Get Default Date and Time Format                             Γöé
  3346. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3347. Γöé CEEFMTM-Get Default Time Format                                  Γöé
  3348. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3349. Γöé CEEFRST-Free Heap Storage                                     Γöé
  3350. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3351. Γöé CEEGMT-Get Current Greenwich Mean Time                              Γöé
  3352. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3353. Γöé CEEGMTO-Get Offset from Greenwich Mean Time to Local Time                     Γöé
  3354. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3355. Γöé CEEGPID-Retrieve the LE/370 Version and Platform ID                        Γöé
  3356. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3357. Γöé CEEGQDT-Retrieve q_data_token                                   Γöé
  3358. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3359. Γöé CEEGTST-Get Heap Storage                                     Γöé
  3360. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3361. Γöé CEEHDLR-Register User-Written Condition Handler                          Γöé
  3362. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3363. Γöé CEEHDLU-Unregister User-Written Condition Handler                         Γöé
  3364. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3365. Γöé CEEISEC-Convert Integers to Seconds                                Γöé
  3366. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3367. Γöé CEEITOK-Return Initial Condition Token                              Γöé
  3368. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3369. Γöé CEELOCT-Get Current Local Date or Time                              Γöé
  3370. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3371. Γöé CEEMGET-Get a Message                                       Γöé
  3372. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3373. Γöé CEEMOUT-Dispatch a Message                                    Γöé
  3374. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3375. Γöé CEEMRCR-Move Resume Cursor                                    Γöé
  3376. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3377. Γöé CEEMSG-Get, Format, and Dispatch a Message                            Γöé
  3378. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3379. Γöé CEENCOD-Construct a Condition Token                                Γöé
  3380. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3381. Γöé CEEQCEN-Query the Century Window                                 Γöé
  3382. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3383. Γöé CEERAN0-Calculate Uniform Random Numbers                             Γöé
  3384. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3385. Γöé CEESCEN-Set the Century Window                                  Γöé
  3386. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3387. Γöé CEESECI-Convert Seconds to Integers                                Γöé
  3388. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3389. Γöé CEESECS-Convert Timestamp to Number of Seconds                          Γöé
  3390. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3391. Γöé CEESGL-Signal a Condition                                     Γöé
  3392. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3393. Γöé CEETEST-Invoke Debug Tool                                     Γöé
  3394. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3395. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3396. Γöé CEEUTC-Get Coordinated Universal Time                               Γöé
  3397. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3398.  
  3399. This chapter contains the following sections to help you use the LE/370 
  3400. callable services: 
  3401.  
  3402.  Invoking Callable Services 
  3403.  Data Type Definitions 
  3404.  Callable Services 
  3405.  
  3406. For a list of all the LE/370 callable services,
  3407. see LE/370 Quick Reference Tables.
  3408.  
  3409.  
  3410. ΓòÉΓòÉΓòÉ 3.1. Invoking Callable Services ΓòÉΓòÉΓòÉ
  3411.  
  3412. You can invoke LE/370 callable services from assembler routines, HLL-generated 
  3413. object code, HLL library routines, other LE/370 library routines, and 
  3414. user-written HLL calls. User-written HLL calls and functions access LE/370 
  3415. library routines by using the same mechanisms that HLLs currently use to 
  3416. support calls in general. LE/370 callable services provide functions that your 
  3417. LE/370-conforming language might not provide. You can use these services alone 
  3418. or with LE/370 run-time options, which customize your run-time environment. 
  3419.  
  3420. This section provides syntax and examples to help you request callable services 
  3421. from C/370, COBOL/370, and PL/I. 
  3422.  
  3423.  
  3424. ΓòÉΓòÉΓòÉ 3.1.1. Imbedding Header, Copy, or Include Files ΓòÉΓòÉΓòÉ
  3425.  
  3426. Many of the programming examples in this chapter imbed header, copy, or include 
  3427. files. (Whether you call the files header files, copy files, or include files 
  3428. depends on the language you are using.) These files can save you time by 
  3429. providing declarations for symbolic feedback codes and LE/370 callable services 
  3430. that you would otherwise need to code in your program. They can also help you 
  3431. reduce errors by verifying correct usage of LE/370 callable services at compile 
  3432. time. 
  3433.  
  3434. The names and descriptions of the files imbedded in the callable service 
  3435. examples in this chapter are provided in Files Used in C/370, COBOL/370, and 
  3436. PL/I Examples. 
  3437.  
  3438. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3439. Γöé Table 10. Files Used in C/370, COBOL/370, and PL/I Examples                    Γöé
  3440. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3441. Γöé FILE NAME  Γöé DESCRIPTION                                     Γöé
  3442. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3443. Γöé CEEEDCCT   Γöé C declarations for symbolic LE/370 feedback codes                  Γöé
  3444. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3445. Γöé CEEIBMAW   Γöé LE/370 callable service declarations for routines written in PL/I          Γöé
  3446. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3447. Γöé CEEIBMCI   Γöé PL/I declarations for condition information block                  Γöé
  3448. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3449. Γöé CEEIBMCT   Γöé PL/I declarations for symbolic LE/370 feedback codes                Γöé
  3450. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3451. Γöé CEEIGZCI   Γöé COBOL declarations for condition information block                 Γöé
  3452. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3453. Γöé CEEIGZCT   Γöé COBOL declarations for symbolic LE/370 feedback codes                Γöé
  3454. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3455. Γöé leawi    Γöé Declarations of LE/370 callable services and OMIT_FC, which is used to explicitly  Γöé
  3456. Γöé       Γöé omit the fc parm, for routines written in C                     Γöé
  3457. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3458. Γöé NOTES:                                              Γöé
  3459. Γöé                                                  Γöé
  3460. Γöé o  A symbolic feedback code is a symbolic representation of a condition token.          Γöé
  3461. Γöé o  PL/I routines that imbed CEEIBMAW require the MACRO compiler option.             Γöé
  3462. Γöé o  The COBOL language does not require declarations of external programs; therefore, it not   Γöé
  3463. Γöé   necessary for LE/370 to provide callable service declarations for routines written in COBOL. Γöé
  3464. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3465.  
  3466. All the files, except for leawi, are provided with LE/370: In MVS, they are 
  3467. contained in the SCEESAMP partitioned data set. In VM, they are on the LE/370 
  3468. product disk. 
  3469.  
  3470. The header file leawi is provided with C/370: In MVS, it is contained in the 
  3471. SEDCDHDR partitioned data set. In VM, it is on the C/370 product disk. 
  3472.  
  3473. You can imbed these files using the statement appropriate for the language your 
  3474. routine is written in, as shown in Imbedding Files in Your Routines: 
  3475.  
  3476. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3477. Γöé Table 11. Imbedding Files in Your Routines                            Γöé
  3478. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3479. Γöé TO IMBED A FILE IN A...             Γöé USE...                     Γöé
  3480. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3481. Γöé C routine                    Γöé an "#include" statement             Γöé
  3482. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3483. Γöé COBOL routine                  Γöé a "COPY" statement               Γöé
  3484. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3485. Γöé PL/I routine                   Γöé an "%include" statement             Γöé
  3486. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3487.  
  3488. Examples of these statements are shown in the following sections on syntax. 
  3489.  
  3490.  
  3491. ΓòÉΓòÉΓòÉ 3.1.2. C/370 Syntax ΓòÉΓòÉΓòÉ
  3492.  
  3493. In C/370, use the following syntax to invoke an LE/370 callable service with a 
  3494. feedback code in effect: 
  3495.  
  3496. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3497. Γöé                                                  Γöé
  3498. Γöé >>ΓöÇΓöÇceeservΓöÇΓöÇ(parm1, parm2, ...parmn, fc);ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3499. Γöé                                                  Γöé
  3500. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3501.  
  3502. Note:   '...' is "and so on," not the C ellipsis operator. 
  3503.  
  3504. Use the following syntax to invoke callable services with an omitted feedback 
  3505. code parameter: 
  3506.  
  3507. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3508. Γöé                                                  Γöé
  3509. Γöé >>ΓöÇΓöÇceeservΓöÇΓöÇ(parm1, parm2, ...parmn, OMIT_FC);ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3510. Γöé                                                  Γöé
  3511. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3512.  
  3513. See Parameter List for Invoking Callable Services for a description of this 
  3514. syntax. 
  3515.  
  3516. You must invoke LE/370 callable services as procedures; you cannot invoke any 
  3517. callable service as a function. LE/370 callable services do not return values 
  3518. because they have the return type of void. 
  3519.  
  3520. Input strings for callable services are not NULL terminated in C/370. 
  3521.  
  3522. You can use the SEDCDHDR file leawi.h to declare LE/370 callable services, in 
  3523. conjunction with a C call to an LE/370 callable service, as shown below: 
  3524.  
  3525.  
  3526. Sample Callable Services Invocation Syntax for C/370 Users
  3527.  
  3528. #include <leawi.h>
  3529. int main(void)
  3530. {
  3531.  ceeserv(parm1, parm2, ... parmn, fc);
  3532.  }
  3533.  
  3534.  
  3535. ΓòÉΓòÉΓòÉ 3.1.3. COBOL/370 Syntax ΓòÉΓòÉΓòÉ
  3536.  
  3537. In COBOL/370, use the following syntax to invoke LE/370 callable services: 
  3538.  
  3539. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3540. Γöé                                                  Γöé
  3541. Γöé >>ΓöÇΓöÇCALL "ceeserv" USINGΓöÇΓöÇ parm1, parm2, ...parmn, fcΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3542. Γöé                                                  Γöé
  3543. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3544.  
  3545. You can call LE/370 services either statically or dynamically from COBOL/370 
  3546. applications. 
  3547.  
  3548. See Parameter List for Invoking Callable Services for a description of this 
  3549. syntax. 
  3550.  
  3551. You can use the SCEESAMP file CEEIGZCT to declare symbolic LE/370 feedback 
  3552. codes, in conjunction with a COBOL call to an LE/370 callable service to return 
  3553. a feedback code, as shown below: 
  3554.  
  3555.  
  3556. Sample Callable Services Invocation Syntax for COBOL/370 Users
  3557.  
  3558. COPY CEEIGZCT
  3559. CALL "ceeserv" USING parm1, parm2, ... parmn, fc
  3560.  
  3561.  
  3562. ΓòÉΓòÉΓòÉ 3.1.4. PL/I Syntax ΓòÉΓòÉΓòÉ
  3563.  
  3564. In PL/I, use the following syntax to invoke an LE/370 callable service with a 
  3565. feedback code in effect: 
  3566.  
  3567. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3568. Γöé                                                  Γöé
  3569. Γöé >>ΓöÇΓöÇCALL ceeservΓöÇΓöÇ(parm1, parm2, ...parmn, fc);ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3570. Γöé                                                  Γöé
  3571. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3572.  
  3573. PL/I also allows you to omit arguments. In place of the argument, code an 
  3574. asterisk (*), as shown below: 
  3575.  
  3576. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3577. Γöé                                                  Γöé
  3578. Γöé >>ΓöÇΓöÇCALL ceeservΓöÇΓöÇ(parm1, parm2, ...parmn, *);ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3579. Γöé                                                  Γöé
  3580. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3581.  
  3582. Note that you cannot invoke callable services as function references. 
  3583.  
  3584. See Parameter List for Invoking Callable Services for a description of this 
  3585. syntax. 
  3586.  
  3587. The value of register 15 upon return from any LE/370 callable service is 
  3588. undefined. Use of OPTIONS(RETCODE) is not recommended, because a subsequent use 
  3589. of the PLIRETV built-in function returns an undefined value. 
  3590.  
  3591. If you code your own declarations for the LE/370 callable services, be sure to 
  3592. specify all required arguments in the CALL statement. An Invalid Call that 
  3593. Omits the fc Parameter illustrates a call in which the feedback code to CEEDATE 
  3594. has been incorrectly omitted. 
  3595.  
  3596. You can use the SCEESAMP file CEEIBMAW to declare LE/370 callable services, in 
  3597. conjunction with a PL/I call to an LE/370 callable service, as shown below: 
  3598.  
  3599.  
  3600. Sample Callable Services Invocation Syntax for PL/I Users
  3601.  
  3602. %INCLUDE CEEIBMAW;
  3603. .
  3604. .
  3605. .
  3606. CALL ceeserv(parm1, parm2, ... parmn, fc);
  3607.  
  3608.  
  3609. ΓòÉΓòÉΓòÉ 3.1.5. Parameter List for Invoking Callable Services ΓòÉΓòÉΓòÉ
  3610.  
  3611. This section describes the syntax and parameters you need to invoke LE/370 
  3612. callable services. 
  3613.  
  3614. ceeserv 
  3615.           The name of the callable service. 
  3616.  
  3617.           By including a reference to a header file in your code, you can avoid 
  3618.           declaring each callable service as an external entry. See Imbedding 
  3619.           Header, Copy, or Include Files for these file names. 
  3620.  
  3621. parm1 parm2 ... parmn 
  3622.           Optional or required parameters passed to or returned from the called 
  3623.           service. 
  3624.  
  3625.           Some callable service parameters are optional, but for C/370 and PL/I 
  3626.           users only. If you do not want to pass the parm or you do not want 
  3627.           the return value, you can omit a parm. 
  3628.  
  3629. fc 
  3630.           A feedback code that indicates the result of the service. fc can be 
  3631.           omitted when you use C/370 and PL/I. COBOL does not allow omitted 
  3632.           parameters. 
  3633.  
  3634.           If you specify fc as an argument, feedback information in the form of 
  3635.           a condition token is returned to the calling routine. The condition 
  3636.           token indicates whether the service completed successfully or whether 
  3637.           a condition was encountered while the service was running. In LE/370 
  3638.           you can decode the condition token so that it can be acted on. 
  3639.  
  3640.           If you omit fc as an argument, the condition is signaled if the 
  3641.           service was not successful. 
  3642.  
  3643.           Because callable services call other services, these other services 
  3644.           might generate feedback codes. 
  3645.  
  3646. General Usage Notes for Callable Services 
  3647.  
  3648.  You can invoke callable services from any LE/370-conforming HLL except where 
  3649.   otherwise noted. 
  3650.  
  3651.  You might receive feedback codes from services other than the one you are 
  3652.   invoking. This is because the callable services invoke other callable 
  3653.   services that might return a feedback code. 
  3654.  
  3655.  Callable services that are intended to be available on any platform that 
  3656.   LE/370 supports are prefixed with CEE. Callable services defined only for 
  3657.   S/370 are prefixed with CEE3. 
  3658.  
  3659.  Routines that invoke callable services do not need to be AMODE(31). AMODE 
  3660.   switching is performed implicitly without any action required by the calling 
  3661.   routine, if you specify the ALL31(OFF) run-time option (see ALL31). 
  3662.  
  3663.   However, if AMODE switching occurs and your program makes many calls to 
  3664.   LE/370 callable services, the switching time can slow down your application. 
  3665.   Run with AMODE(31), if possible, to avoid unnecessary mode switching. 
  3666.  
  3667.  Under LE/370, all parms are passed by reference, indirectly. The code in An 
  3668.   Invalid Call that Omits the fc Parameter might cause unpredictable results: 
  3669.  
  3670.  
  3671.     An Invalid Call that Omits the fc Parameter
  3672.  
  3673.     DCL CEEDATE ENTRY OPTIONS(ASM);
  3674.     CALL CEEDATE(x,y,z);      /* invalid */
  3675.  
  3676.   Valid Calls that Use the Optional fc Parameter illustrates valid calls: 
  3677.  
  3678.  
  3679.     Valid Calls that Use the Optional fc Parameter
  3680.  
  3681.     DCL CEEDATE ENTRY(*,*,*,* OPTIONAL) OPTIONS(ASM);
  3682.     CALL CEEDATE(x,y,z,*);    /* valid   */
  3683.     CALL CEEDATE(x,y,z,fc);   /* valid   */
  3684.  
  3685.  
  3686. ΓòÉΓòÉΓòÉ 3.2. Data Type Definitions ΓòÉΓòÉΓòÉ
  3687.  
  3688. Parameters in LE/370 are defined as specific data types, such as: 
  3689.  
  3690.  Fullword binary integer 
  3691.  Short floating-point hexadecimal 
  3692.  Long floating-point hexadecimal 
  3693.  Fixed-length character string with a predefined length 
  3694.  Entry variable 
  3695.  Character string with a halfword prefix indicating its current length 
  3696.  
  3697. The table below includes data type definitions and their descriptions for 
  3698. COBOL/370: 
  3699.  
  3700. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3701. Γöé Table 12. Data Type Definitions for COBOL/370                                               Γöé
  3702. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3703. Γöé DATA TYPE  Γöé DESCRIPTION             Γöé COBOL/370                                       Γöé
  3704. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3705. Γöé INT2    Γöé A 2-byte signed integer       Γöé PIC S9(4) USAGE IS BINARY                               Γöé
  3706. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3707. Γöé INT4    Γöé A 4-byte signed integer       Γöé PIC S9(9) USAGE IS BINARY                               Γöé
  3708. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3709. Γöé FLOAT4   Γöé A 4-byte single-precision floating- Γöé COMP-1                                         Γöé
  3710. Γöé       Γöé point number             Γöé                                            Γöé
  3711. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3712. Γöé FLOAT8   Γöé An 8-byte double-precision      Γöé COMP-2                                         Γöé
  3713. Γöé       Γöé floating-point number        Γöé                                            Γöé
  3714. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3715. Γöé FLOAT16   Γöé A 16-byte extended-precision     Γöé Not available                                     Γöé
  3716. Γöé       Γöé floating-point number        Γöé                                            Γöé
  3717. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3718. Γöé COMPLEX8  Γöé Short floating-point complex hex   Γöé Not available                                     Γöé
  3719. Γöé       Γöé number:  an 8-byte complex number,  Γöé                                            Γöé
  3720. Γöé       Γöé whose real and imaginary parts are  Γöé                                            Γöé
  3721. Γöé       Γöé each 4-byte single-precision     Γöé                                            Γöé
  3722. Γöé       Γöé floating-point numbers.       Γöé                                            Γöé
  3723. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3724. Γöé COMPLEX16  Γöé Long floating-point complex hex   Γöé Not available                                     Γöé
  3725. Γöé       Γöé number:  a 16-byte complex number,  Γöé                                            Γöé
  3726. Γöé       Γöé whose real and imaginary parts are  Γöé                                            Γöé
  3727. Γöé       Γöé each 8-byte double-precision     Γöé                                            Γöé
  3728. Γöé       Γöé floating-point numbers.       Γöé                                            Γöé
  3729. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3730. Γöé COMPLEX32  Γöé Extended floating-point hex number: Γöé Not available                                     Γöé
  3731. Γöé       Γöé a 32-byte complex number, whose   Γöé                                            Γöé
  3732. Γöé       Γöé real and imaginary parts are each  Γöé                                            Γöé
  3733. Γöé       Γöé 16-byte extended-precision      Γöé                                            Γöé
  3734. Γöé       Γöé floating-point numbers.       Γöé                                            Γöé
  3735. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3736. Γöé POINTER   Γöé A platform-dependent address     Γöé USAGE IS POINTER                                    Γöé
  3737. Γöé       Γöé pointer               Γöé                                            Γöé
  3738. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3739. Γöé CHARn    Γöé A string (character array) of    Γöé PIC X(n)                                        Γöé
  3740. Γöé       Γöé length n               Γöé                                            Γöé
  3741. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3742. Γöé VSTRING   Γöé A length-prefixed string (for    Γöé 01 STRING_IN                                      Γöé
  3743. Γöé       Γöé input); fixed-length 80 for output  Γöé  02 LEN PIC S9(4) USAGE IS BINARY                           Γöé
  3744. Γöé       Γöé parameters.             Γöé  02 TXT PIC X(N)                                   Γöé
  3745. Γöé       Γöé                   Γöé 01 STRING_OUT PIC X(80)                                Γöé
  3746. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3747. Γöé FEED_BACK  Γöé A mapping of the condition token   Γöé Case 1:                                        Γöé
  3748. Γöé       Γöé (fc)                 Γöé 01 FC                                         Γöé
  3749. Γöé       Γöé                   Γöé  02 SEV     PIC S9(4) USAGE IS BINARY                       Γöé
  3750. Γöé       Γöé                   Γöé  02 MSGNO    PIC S9(4) USAGE IS BINARY                       Γöé
  3751. Γöé       Γöé                   Γöé  02 FLGS    PIC X(1)                                Γöé
  3752. Γöé       Γöé                   Γöé  02 FACID    PIC X(3)                                Γöé
  3753. Γöé       Γöé                   Γöé  02 ISI     PIC X(4)                                Γöé
  3754. Γöé       Γöé                   Γöé Case 2:                                        Γöé
  3755. Γöé       Γöé                   Γöé 01 FC                                         Γöé
  3756. Γöé       Γöé                   Γöé  02 CLASS_CODE PIC X(2)                                Γöé
  3757. Γöé       Γöé                   Γöé  02 CAUSE_CODE PIC X(2)                                Γöé
  3758. Γöé       Γöé                   Γöé  02 FLGS    PIC X(1)                                Γöé
  3759. Γöé       Γöé                   Γöé  02 FACID    PIC X(3)                                Γöé
  3760. Γöé       Γöé                   Γöé  02 ISI     PIC X(4)                                Γöé
  3761. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3762. Γöé CEE_ENTRY  Γöé An HLL-dependent entry constant   Γöé PROCEDURE_POINTER                                   Γöé
  3763. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3764.  
  3765. The table below includes data type definitions and their descriptions for 
  3766. C/370: 
  3767.  
  3768. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3769. Γöé Table 13. Data Type Definitions for C/370                                                 Γöé
  3770. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3771. Γöé DATA TYPE  Γöé DESCRIPTION                   Γöé C/370                                   Γöé
  3772. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3773. Γöé INT2    Γöé A 2-byte signed integer             Γöé signed short                                Γöé
  3774. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3775. Γöé INT4    Γöé A 4-byte signed integer             Γöé signed int                                 Γöé
  3776. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3777. Γöé FLOAT4   Γöé A 4-byte single-precision floating-point number Γöé float                                   Γöé
  3778. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3779. Γöé FLOAT8   Γöé An 8-byte double-precision floating-point    Γöé double                                   Γöé
  3780. Γöé       Γöé number                      Γöé                                      Γöé
  3781. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3782. Γöé FLOAT16   Γöé A 16-byte extended-precision floating-point   Γöé long double                                Γöé
  3783. Γöé       Γöé number                      Γöé                                      Γöé
  3784. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3785. Γöé COMPLEX8  Γöé Short floating-point complex hex number:  an   Γöé Not available                               Γöé
  3786. Γöé       Γöé 8-byte complex number, whose real and imaginary Γöé                                      Γöé
  3787. Γöé       Γöé parts are each 4-byte single-precision      Γöé                                      Γöé
  3788. Γöé       Γöé floating-point numbers.             Γöé                                      Γöé
  3789. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3790. Γöé COMPLEX16  Γöé Long floating-point complex hex number:  a    Γöé Not available                               Γöé
  3791. Γöé       Γöé 16-byte complex number, whose real and imagi-  Γöé                                      Γöé
  3792. Γöé       Γöé nary parts are each 8-byte double-precision   Γöé                                      Γöé
  3793. Γöé       Γöé floating-point numbers.             Γöé                                      Γöé
  3794. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3795. Γöé COMPLEX32  Γöé Extended floating-point hex number:  a 32-byte  Γöé Not available                               Γöé
  3796. Γöé       Γöé complex number, whose real and imaginary parts  Γöé                                      Γöé
  3797. Γöé       Γöé are each 16-byte extended-precision floating-  Γöé                                      Γöé
  3798. Γöé       Γöé point numbers.                  Γöé                                      Γöé
  3799. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3800. Γöé POINTER   Γöé A platform-dependent address pointer       Γöé void *                                   Γöé
  3801. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3802. Γöé CHARn    Γöé A string (character array) of length n      Γöé char[n]                                  Γöé
  3803. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3804. Γöé VSTRING   Γöé A length-prefixed string (for input); fixed-   Γöé  struct _VSTRING(                             Γöé
  3805. Γöé       Γöé length 80 for output parameters.         Γöé   _INT2 length;                              Γöé
  3806. Γöé       Γöé                         Γöé   char  string[1];                            Γöé
  3807. Γöé       Γöé                         Γöé   }string-in;                               Γöé
  3808. Γöé       Γöé                         Γöé  char string-out[80];                           Γöé
  3809. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3810. Γöé FEED_BACK  Γöé A mapping of the condition token (fc)      Γöé  Case 1:                                 Γöé
  3811. Γöé       Γöé                         Γöé  typedef struct {                             Γöé
  3812. Γöé       Γöé                         Γöé    short  tok_sev   ;                         Γöé
  3813. Γöé       Γöé                         Γöé    short  tok_msgno  ;                         Γöé
  3814. Γöé       Γöé                         Γöé    int   tok_case :2,                          Γöé
  3815. Γöé       Γöé                         Γöé       tok_sever:3,                          Γöé
  3816. Γöé       Γöé                         Γöé       tok_ctrl :3 ;                         Γöé
  3817. Γöé       Γöé                         Γöé    char  tok_facid[3];                         Γöé
  3818. Γöé       Γöé                         Γöé    int   tok_isi   ;                         Γöé
  3819. Γöé       Γöé                         Γöé      }  _FEEDBACK ;                         Γöé
  3820. Γöé       Γöé                         Γöé  Case 2:                                 Γöé
  3821. Γöé       Γöé                         Γöé  typedef struct {                             Γöé
  3822. Γöé       Γöé                         Γöé    short  tok_sev   ;                         Γöé
  3823. Γöé       Γöé                         Γöé    short  tok_msgno  ;                         Γöé
  3824. Γöé       Γöé                         Γöé    int   tok_class_code :2,                       Γöé
  3825. Γöé       Γöé                         Γöé       tok_cause_code:3,                       Γöé
  3826. Γöé       Γöé                         Γöé       tok_ctrl :3 ;                         Γöé
  3827. Γöé       Γöé                         Γöé    char  tok_facid[3];                         Γöé
  3828. Γöé       Γöé                         Γöé    int   tok_isi   ;                         Γöé
  3829. Γöé       Γöé                         Γöé      }  _FEEDBACK ;                         Γöé
  3830. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3831. Γöé CEE_ENTRY  Γöé An HLL-dependent entry constant         Γöé FUNCTION POINTER                              Γöé
  3832. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3833.  
  3834. The table below includes data type definitions and their descriptions for PL/I: 
  3835.  
  3836. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3837. Γöé Table 14. Data Type Definitions for PL/I                                                 Γöé
  3838. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3839. Γöé DATA TYPE  Γöé DESCRIPTION                   Γöé PL/I                                    Γöé
  3840. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3841. Γöé INT2    Γöé A 2-byte signed integer             Γöé REAL FIXED BINARY (15,0)                          Γöé
  3842. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3843. Γöé INT4    Γöé A 4-byte signed integer             Γöé REAL FIXED BINARY (31,0)                          Γöé
  3844. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3845. Γöé FLOAT4   Γöé A 4-byte single-precision floating-point number Γöé REAL FLOAT BINARY (21) or REAL FLOAT DECIMAL (6)              Γöé
  3846. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3847. Γöé FLOAT8   Γöé An 8-byte double-precision floating-point    Γöé REAL FLOAT BINARY (53) or REAL FLOAT DECIMAL (16)             Γöé
  3848. Γöé       Γöé number                      Γöé                                      Γöé
  3849. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3850. Γöé FLOAT16   Γöé A 16-byte extended-precision floating-point   Γöé REAL FLOAT DECIMAL (33) or REAL FLOAT BINARY (109)             Γöé
  3851. Γöé       Γöé number                      Γöé                                      Γöé
  3852. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3853. Γöé COMPLEX8  Γöé Short floating-point complex hex number:  an   Γöé COMPLEX FLOAT DECIMAL(6)                          Γöé
  3854. Γöé       Γöé 8-byte complex number, whose real and imaginary Γöé                                      Γöé
  3855. Γöé       Γöé parts are each 4-byte single-precision      Γöé                                      Γöé
  3856. Γöé       Γöé floating-point numbers.             Γöé                                      Γöé
  3857. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3858. Γöé COMPLEX16  Γöé Long floating-point complex hex number:  a    Γöé COMPLEX FLOAT DECIMAL(16)                         Γöé
  3859. Γöé       Γöé 16-byte complex number, whose real and imagi-  Γöé                                      Γöé
  3860. Γöé       Γöé nary parts are each 8-byte double-precision   Γöé                                      Γöé
  3861. Γöé       Γöé floating-point numbers.             Γöé                                      Γöé
  3862. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3863. Γöé COMPLEX32  Γöé Extended floating-point hex number:  a 32-byte  Γöé COMPLEX FLOAT DECIMAL (33)                         Γöé
  3864. Γöé       Γöé complex number, whose real and imaginary parts  Γöé                                      Γöé
  3865. Γöé       Γöé are each 16-byte extended-precision floating-  Γöé                                      Γöé
  3866. Γöé       Γöé point numbers.                  Γöé                                      Γöé
  3867. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3868. Γöé POINTER   Γöé A platform-dependent address pointer       Γöé POINTER                                  Γöé
  3869. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3870. Γöé CHARn    Γöé A string (character array) of length n      Γöé CHAR(n)                                  Γöé
  3871. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3872. Γöé VSTRING   Γöé A length-prefixed string (for input); fixed-   Γöé  DCL string_in  CHAR(n) VARYING;                     Γöé
  3873. Γöé       Γöé length 80 for output parameters.         Γöé  DCL string_out CHAR(80);                         Γöé
  3874. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3875. Γöé FEED_BACK  Γöé A mapping of the condition token (fc)      Γöé Case 1:                                  Γöé
  3876. Γöé       Γöé                         Γöé DCL 1 FEEDBACK BASED,                           Γöé
  3877. Γöé       Γöé                         Γöé    3 SEVERITY  FIXED BINARY (15),                   Γöé
  3878. Γöé       Γöé                         Γöé    3 MSGNO    FIXED BINARY (15),                   Γöé
  3879. Γöé       Γöé                         Γöé    3 FLAGS,                               Γöé
  3880. Γöé       Γöé                         Γöé     5 CASE   BIT  (2),                        Γöé
  3881. Γöé       Γöé                         Γöé     5 SEVERITY BIT  (3),                        Γöé
  3882. Γöé       Γöé                         Γöé     5 CONTROL  BIT  (3),                        Γöé
  3883. Γöé       Γöé                         Γöé     3 FACID   CHAR (3),                        Γöé
  3884. Γöé       Γöé                         Γöé     3 ISI    FIXED BINARY (31);                   Γöé
  3885. Γöé       Γöé                         Γöé Case 2:                                  Γöé
  3886. Γöé       Γöé                         Γöé DCL 1 FEEDBACK BASED,                           Γöé
  3887. Γöé       Γöé                         Γöé    3 CLASS_CODE FIXED BINARY (15),                   Γöé
  3888. Γöé       Γöé                         Γöé    3 CAUSE_CODE FIXED BINARY (15),                   Γöé
  3889. Γöé       Γöé                         Γöé    3 FLAGS,                               Γöé
  3890. Γöé       Γöé                         Γöé     5 CASE   BIT (2),                        Γöé
  3891. Γöé       Γöé                         Γöé     5 SEVERITY BIT (3),                        Γöé
  3892. Γöé       Γöé                         Γöé     5 CONTROL  BIT (3),                        Γöé
  3893. Γöé       Γöé                         Γöé     3 FACID   CHAR (3),                        Γöé
  3894. Γöé       Γöé                         Γöé     3 ISI    FIXED BINARY (31);                   Γöé
  3895. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3896. Γöé CEE_ENTRY  Γöé An HLL-dependent entry constant         Γöé ENTRY                                   Γöé
  3897. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3898.  
  3899.  
  3900. ΓòÉΓòÉΓòÉ 3.3. Callable Services ΓòÉΓòÉΓòÉ
  3901.  
  3902. Following are the LE/370 callable services and examples of how to use them in 
  3903. C/370, COBOL/370, and PL/I. 
  3904.  
  3905.  
  3906. ΓòÉΓòÉΓòÉ 3.3.1. CEE3ABD-Terminate Enclave with an Abend ΓòÉΓòÉΓòÉ
  3907.  
  3908. CEE3ABD requests that LE/370 terminate the enclave with an abend. The issuing 
  3909. of the abend can be either with or without clean-up. There is no return from 
  3910. this service, nor is there any condition associated with it. 
  3911.  
  3912. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3913. Γöé                                                  Γöé
  3914. Γöé >>ΓöÇΓöÇCEE3ABDΓöÇΓöÇ(ΓöÇΓöÇabcodeΓöÇΓöÇ,ΓöÇΓöÇclean-upΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  3915. Γöé                                                  Γöé
  3916. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3917.  
  3918. abcode 
  3919.           A fullword integer, no greater than 4095, specifying the abend code 
  3920.           that is issued. When executing under CICS, this fullword integer is 
  3921.           converted to the equivalent EBCDIC and then issued. 
  3922.  
  3923. clean-up 
  3924.           Indicates whether the abend should result in clean-up of the 
  3925.           enclave's resources. The acceptable values for clean-up are as 
  3926.           follows: 
  3927.  
  3928.    Value     Meaning 
  3929.  
  3930.    0         Issue the abend without clean-up 
  3931.  
  3932.    1         Issue the abend with normal enclave termination processing. 
  3933.  
  3934.           If an illegal value for clean-up is passed, the abend is issued 
  3935.           without clean-up. 
  3936.  
  3937.           If clean-up is 0, no LE/370 dump is generated. A system dump, 
  3938.           however, is requested when issuing the abend. Under CICS, a 
  3939.           transaction dump is taken. To obtain a dump under CMS, specify 
  3940.           FILEDEF SYSABEND PRINTER or FILEDEF SYSUDUMP PRINTER. 
  3941.  
  3942.           If clean-up is 0, LE/370 condition handling is disabled for the 
  3943.           current enclave and termination activities are not performed. Event 
  3944.           handlers are not driven; CODE/370 is not invoked; user exits are not 
  3945.           invoked; and user condition handlers are not invoked. 
  3946.  
  3947.           When clean-up is 1, the abend is processed in the same manner as if 
  3948.           it were a non-LE/370 abend. Its processing is affected by the ABPERC 
  3949.           and TRAP options, the filedef abends percolated in the assembler user 
  3950.           exit, and other elements of the environment related to abend 
  3951.           processing. In particular, the condition handler can intercept the 
  3952.           abend and give the application a chance to handle the abend. If the 
  3953.           condition remains unhandled, normal termination activities are 
  3954.           performed: information such as an LE/370 dump is produced, depending 
  3955.           on the setting of the TERMTHDACT option; event handlers are driven; 
  3956.           Debug Tool/370 is invoked; and user exits are invoked. Assembler user 
  3957.           exit settings control whether the application actually terminates 
  3958.           with an abend. 
  3959.  
  3960. Usage Note 
  3961.  
  3962.  OpenEdition MVS consideration-CEE3ABD applies to the enclave. 
  3963.  
  3964. Examples 
  3965.  
  3966.  C/370 Example 
  3967.  
  3968.     /*COMPILATION UNIT: EDC3ABD   */
  3969.  
  3970.     #include <leawi.h>
  3971.  
  3972.     int main(void) {
  3973.  
  3974.       _INT4 code, timing;
  3975.  
  3976.       code = 0xdead; /* HEX value DEAD, see in R1 */
  3977.       timing = 0;
  3978.  
  3979.       CEE3ABD(CODE/370,&timing);
  3980.     }
  3981.  
  3982.  COBOL/370 Example 
  3983.  
  3984.     CBL LIB,APOST
  3985.           *COMPILATION UNIT: IGZT3ABD
  3986.           **********************************************
  3987.           ** Function: CEE3ABD - terminate            **
  3988.           ** enclave with an abend                    **
  3989.           **********************************************
  3990.            IDENTIFICATION DIVISION.
  3991.            PROGRAM-ID. CBL3ABD.
  3992.            DATA DIVISION.
  3993.            WORKING-STORAGE SECTION.
  3994.            01  ABDCODE                 PIC S9(9) COMP.
  3995.            01  TIMING                  PIC S9(9) COMP.
  3996.            PROCEDURE DIVISION.
  3997.            PARA-CBLMGET.
  3998.  
  3999.           ** 3415 is the abend code to be issued,     **
  4000.           ** a timing of zero requests an abend       **
  4001.           ** without clean-up                         **
  4002.                     MOVE 3415 TO ABDCODE.
  4003.                     MOVE 0 TO TIMING.
  4004.                     CALL 'CEE3ABD' USING ABDCODE , TIMING.
  4005.                     GOBACK.
  4006.  
  4007.  PL/I Example 
  4008.  
  4009.     *PROCESS MACRO;
  4010.      /*COMPILATION UNIT: IBM3ABD
  4011.      /****************************************************/
  4012.      /**                                                 */
  4013.      /** Function: CEE3ABD - terminate enclave with an   */
  4014.      /**                     abend                       */
  4015.      /**                                                 */
  4016.      /** In this example, CEE3ABD is called with a       */
  4017.      /** timing value of 1.  This requests an abend that */
  4018.      /** is deferred until clean-up takes place.         */
  4019.      /**                                                 */
  4020.      /****************************************************/
  4021.      PLI3ABD: PROC OPTIONS(MAIN);
  4022.  
  4023.         %INCLUDE  CEEIBMAW;
  4024.         %INCLUDE  CEEIBMCT;
  4025.  
  4026.         DCL ABDCODE INT4;
  4027.         DCL TIMING  INT4;
  4028.  
  4029.         ABDCODE = 3333; /* Choose code to abend with     */
  4030.         TIMING = 1;     /* Specify 1, for an abend with  */
  4031.                         /*    clean-up                   */
  4032.  
  4033.         /* Call CEE3ABD to request an abend 3333 with    */
  4034.         /*    clean-up                                   */
  4035.         CALL CEE3ABD ( ABDCODE, TIMING );
  4036.  
  4037.      END PLI3ABD;
  4038.  
  4039.  
  4040. ΓòÉΓòÉΓòÉ 3.3.2. CEE3CIB-Return Pointer to Condition Information Block ΓòÉΓòÉΓòÉ
  4041.  
  4042. CEE3CIB returns a pointer to a condition information block (CIB) associated 
  4043. with a given condition token. Use this service only during condition handling. 
  4044.  
  4045. For PL/I, and COBOL/370 applications, LE/370 provides macros (in SCEESAMP) that 
  4046. map to the CIB. For C/370 applications, the macros are in leawi.h. 
  4047.  
  4048. The CIB contains detailed information about the condition. Providing access to 
  4049. the CIB allows your application's condition handlers to make more informed 
  4050. decisions about the response to a condition. 
  4051.  
  4052. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4053. Γöé                                                  Γöé
  4054. Γöé >>ΓöÇΓöÇCEE3CIBΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇcib_ptrΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  4055. Γöé         ΓööΓöÇcond_tokenΓöÇΓöÿ                                  Γöé
  4056. Γöé                                                  Γöé
  4057. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4058.  
  4059. cond_token 
  4060.           The condition token passed to a user handler. If you do not specify 
  4061.           this parameter, LE/370 returns the address of the most 
  4062.           recently-raised condition. 
  4063.  
  4064. cib_ptr 
  4065.           The address of the CIB associated with the condition token. 
  4066.  
  4067.           fc
  4068.           A 12-byte feedback code, optional in some languages, that indicates 
  4069.           the results of this service. 
  4070.  
  4071. The following symbolic conditions can result from this service: 
  4072.  
  4073. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4074. Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  4075. Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  4076. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4077. Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  4078. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4079. Γöé CEE35S     Γöé 1        Γöé 3260      Γöé No condition was active when a call to a con-  Γöé
  4080. Γöé        Γöé         Γöé         Γöé dition management routine was made.       Γöé
  4081. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4082. Γöé CEE35U     Γöé 1        Γöé 3262      Γöé An invalid condition token was passed. The   Γöé
  4083. Γöé        Γöé         Γöé         Γöé condition token does not represent an active  Γöé
  4084. Γöé        Γöé         Γöé         Γöé condition.                   Γöé
  4085. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4086.  
  4087. Usage Notes 
  4088.  
  4089.  Because the CIB is used only for synchronous signals, you should not use 
  4090.   CEE3CIB in signal catchers that are driven for asynchronous signals. 
  4091.  
  4092.  After the condition handling functions return control to your application, 
  4093.   cib_ptr is no longer valid 
  4094.  
  4095.  OpenEdition MVS consideration-In multithread applications, CEE3CIB returns 
  4096.   the CIB associated with the current token on only the current thread. 
  4097.  
  4098. Examples 
  4099.  
  4100.  C/370 Example 
  4101.  
  4102.     /*COMPILATION UNIT: EDC3CIB   */
  4103.  
  4104.     #include <stdio.h>
  4105.     #include <leawi.h>
  4106.     #include <ceeedcct.h>
  4107.  
  4108.     void handler(_FEEDBACK *,_INT4 *,_INT4 *,_FEEDBACK *);
  4109.  
  4110.     int main(void) {
  4111.  
  4112.       _FEEDBACK fc;
  4113.       _ENTRY routine;
  4114.       _INT4 token;
  4115.       int x,y,z;
  4116.  
  4117.       /* set the routine structure to point to the handler */
  4118.       /* and use CEEHDLR to register the user handler      */
  4119.  
  4120.       token = 99;
  4121.       routine.address = (_POINTER)&handler;
  4122.       routine.nesting = NULL;
  4123.  
  4124.       CEEHDLR(&routine,&token,&fc);
  4125.  
  4126.       /* verify that CEEHDLR was successful */
  4127.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  4128.         printf("CEEHDLR failed with message number %d\n",
  4129.                fc.tok_msgno);
  4130.         exit(2999);
  4131.       }
  4132.       x = 5;
  4133.       y = 0;
  4134.       z = x / y;
  4135.     }
  4136.  
  4137.     /*******************************************************/
  4138.     /* handler is a user condition handler                 */
  4139.     /*******************************************************/
  4140.     void handler(_FEEDBACK *fc, _INT4 *token, _INT4 *result,
  4141.                  _FEEDBACK *newfc) {
  4142.  
  4143.        _CEECIB *cib_ptr;
  4144.        _FEEDBACK cibfc;
  4145.  
  4146.        CEE3CIB(fc, &cib_ptr, &cibfc);
  4147.  
  4148.       /* verify that CEE3CIB was successful */
  4149.       if ( _FBCHECK ( cibfc , CEE000 ) != 0 ) {
  4150.         printf("CEE3CIB failed with message number %d\n",
  4151.                cibfc.tok_msgno);
  4152.         exit(2999);
  4153.       }
  4154.  
  4155.        printf("%s \n",(*cib_ptr).cib_eye);
  4156.        printf("%d \n",cib_ptr->cib_cond.tok_msgno);
  4157.        printf("%s \n",cib_ptr->cib_cond.tok_facid);
  4158.        *result = 10;
  4159.     }
  4160.  
  4161.  COBOL/370 Example 
  4162.  
  4163.     CBL LIB,APOST
  4164.           *COMPILATION UNIT: IGZT3CIB
  4165.           *******************************************
  4166.           **
  4167.           ** Function: CEE3CIB - Return Pointer to
  4168.           **           Condition Information Block
  4169.           **
  4170.           *******************************************
  4171.            IDENTIFICATION DIVISION.
  4172.            PROGRAM-ID. CBL3CIB.
  4173.            DATA DIVISION.
  4174.            WORKING-STORAGE SECTION.
  4175.            01  ROUTINE  PROCEDURE-POINTER.
  4176.            01  TOKEN                   PIC S9(9) COMP.
  4177.            01  FC                      PIC X(12).
  4178.            PROCEDURE DIVISION.
  4179.            PARA-CBL3CIB.
  4180.                SET ROUTINE TO ENTRY 'HANDLER'.
  4181.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  4182.                GOBACK.
  4183.  
  4184.        CBL LIB
  4185.           *COMPILATION UNIT: HANDLER
  4186.            IDENTIFICATION DIVISION.
  4187.            PROGRAM-ID. HANDLER.
  4188.            DATA DIVISION.
  4189.            WORKING-STORAGE SECTION.
  4190.            01  CIB-PTR POINTER.
  4191.            01  FC                      PIC S9(9) COMP.
  4192.            LINKAGE SECTION.
  4193.            01  CURCOND                 PIC X(12).
  4194.            01  TOKEN                   PIC S9(9) COMP.
  4195.            01  RESULT                  PIC S9(9) COMP.
  4196.            01  NEWCOND                 PIC X(12).
  4197.            PROCEDURE DIVISION USING
  4198.                CURCOND, TOKEN, RESULT, NEWCOND.
  4199.            PARA-HANDLER.
  4200.                CALL 'CEE3CIB' USING CURCOND CIB-PTR FC.
  4201.                SET ADDRESS OF CEECIB TO CIB-PTR.
  4202.                DISPLAY 'In Handler'.
  4203.                DISPLAY CIB-EYE.
  4204.                DISPLAY CIB-TOK-MSGNO.
  4205.                DISPLAY CIB-TOK-FACID.
  4206.                GOBACK.
  4207.  
  4208.  PL/I Example 
  4209.  
  4210.     *PROCESS OPT(0), MACRO;
  4211.      /*COMPILATION UNIT: IBM3CIB
  4212.      /********************************************/
  4213.      /**                                        **/
  4214.      /** Function: CEE3CIB - example of CEE3CIB **/
  4215.      /**                     invoked from PL/I  **/
  4216.      /**                     ON-unit            **/
  4217.      /**                                        **/
  4218.      /********************************************/
  4219.  
  4220.      IBM3CIB:  PROCEDURE  OPTIONS(MAIN);
  4221.  
  4222.              %INCLUDE CEEIBMAW;
  4223.              %INCLUDE CEEIBMCT;
  4224.              %INCLUDE CEEIBMCI;
  4225.  
  4226.              DECLARE
  4227.                 CIB_PTR     POINTER,
  4228.                 01 FC       FEEDBACK,
  4229.                 divisor     FIXED BINARY(31) INITIAL(0);
  4230.  
  4231.              ON  ZERODIVIDE  BEGIN;
  4232.  
  4233.                 CALL CEE3CIB(*, CIB_PTR, FC);
  4234.                 IF  FBCHECK( FC, CEE000 )  THEN  DO;
  4235.                    PUT SKIP LIST('Found '
  4236.                       || CIB_PTR->CIB_EYE
  4237.                       || ' for message #'
  4238.                       || CIB_PTR->CIB_TOK_MSGNO
  4239.                       || ' from '
  4240.                       || CIB_PTR->CIB_TOK_FACID );
  4241.                    END;
  4242.                 ELSE  DO;
  4243.                    DISPLAY( 'CEE3CIB failed with msg '
  4244.                       || FC.MsgNo );
  4245.                    END;
  4246.  
  4247.                 END /* ON ZeroDivide */;
  4248.  
  4249.              divisor = 15 / divisor  /* signals ZERODIVIDE */;
  4250.  
  4251.      END IBM3CIB;
  4252.  
  4253.  
  4254. ΓòÉΓòÉΓòÉ 3.3.3. CEE3CTY-Set Default Country ΓòÉΓòÉΓòÉ
  4255.  
  4256. CEE3CTY sets the default country. A calling routine can change or query the 
  4257. current national country setting. The country setting affects the date format, 
  4258. the time format, the currency symbol, the decimal separator, and the thousands 
  4259. separator. 
  4260.  
  4261. CEE3CTY also affects the default symbols for the national language support and 
  4262. date and time callable services. For a list of the default settings for a 
  4263. specified country, see Defaults Currency and Picture Strings Based on COUNTRY 
  4264. Setting. 
  4265.  
  4266. If you need to override your default country setting, you can do so with 
  4267. CEE3CTY. For example, if you live in the United States, the code for the United 
  4268. States is specified as the default at installation. If in a certain application 
  4269. you want to use the French defaults, however, you could use CEE3CTY to SET 
  4270. France as the national country setting. Then when you again wanted the defaults 
  4271. for the United States, you would PUSH the code for United States back to the 
  4272. top of the stack. 
  4273.  
  4274. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4275. Γöé                                                  Γöé
  4276. Γöé >>ΓöÇΓöÇCEE3CTYΓöÇΓöÇ(ΓöÇΓöÇfunctionΓöÇΓöÇ,ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  4277. Γöé                                                  Γöé
  4278. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4279.  
  4280. function (input) 
  4281.           A fullword binary integer specifying the service to be performed. 
  4282.  
  4283.           The possible values for function are: 
  4284.  
  4285.    1-SET     Establishes the country_code parameter as the current country. The 
  4286.              top of the stack is, in effect, replaced with country_code. 
  4287.  
  4288.    2-QUERY   Returns the current country code on the top of the stack to the 
  4289.              calling routine. The current code is returned in the country_code 
  4290.              parameter. 
  4291.  
  4292.    3-PUSH    Pushes the country_code parameter onto the top of the country code 
  4293.              stack, making it the current country code. Previous country codes 
  4294.              on the stack are retained on a LIFO basis, which makes it possible 
  4295.              to return to a prior country code at a later time. 
  4296.  
  4297.    4-POP     Pops the current country code. The last country code that was 
  4298.              PUSHed now becomes the current country_code. On return to the 
  4299.              calling routine, the country_code parameter contains the discarded 
  4300.              country code. If the stack contains only one country code, the 
  4301.              code cannot be POPped because the stack would be empty after the 
  4302.              call. Therefore, no action is taken and a feedback code indicating 
  4303.              such is returned to the calling routine. 
  4304.  
  4305. country_code (input/output) 
  4306.           A 2-character fixed-length string. country_code is not 
  4307.           case-sensitive. It is used in the following ways for the different 
  4308.           functions: 
  4309.  
  4310.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4311.                     Γöé If function is   Γöé then country_code:                              Γöé
  4312.                     Γöé specified as:   Γöé                                        Γöé
  4313.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4314.                     Γöé 1 or 3       Γöé Contains the desired 2-character country code.  In this case, it is an input Γöé
  4315.                     Γöé          Γöé parameter.  Defaults Currency and Picture Strings Based on COUNTRY Setting  Γöé
  4316.                     Γöé          Γöé contains a list of valid country codes.                    Γöé
  4317.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4318.                     Γöé 2         Γöé Returns the current 2-character country code on top of the stack.  In this  Γöé
  4319.                     Γöé          Γöé case, it is an output parameter.                       Γöé
  4320.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4321.                     Γöé 4         Γöé Returns the discarded 2-character country code.  In this case, it is an    Γöé
  4322.                     Γöé          Γöé output parameter.                               Γöé
  4323.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4324.  
  4325. fc (output) 
  4326.           A 12-byte feedback code, optional in some languages, that indicates 
  4327.           the result of this service. 
  4328.  
  4329.           The following symbolic conditions can result from this service: 
  4330.  
  4331.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4332.                     Γöé LE FEEDBACK  Γöé         Γöé         Γöé                         Γöé
  4333.                     Γöé CODE (FC)   Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  4334.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4335.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  4336.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4337.                     Γöé CEE3BV     Γöé 2        Γöé 3455      Γöé Only one country code was on the stack when a  Γöé
  4338.                     Γöé        Γöé         Γöé         Γöé POP request was made to CEE3CTY.  The current  Γöé
  4339.                     Γöé        Γöé         Γöé         Γöé country code was returned in the country code  Γöé
  4340.                     Γöé        Γöé         Γöé         Γöé parameter.                   Γöé
  4341.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4342.                     Γöé CEE3C0     Γöé 3        Γöé 3456      Γöé The country code country-code for the PUSH or  Γöé
  4343.                     Γöé        Γöé         Γöé         Γöé SET function for CEE3CTY was invalid.  No    Γöé
  4344.                     Γöé        Γöé         Γöé         Γöé operation was performed.            Γöé
  4345.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4346.                     Γöé CEE3C1     Γöé 3        Γöé 3457      Γöé The function function specified for CEE3CTY   Γöé
  4347.                     Γöé        Γöé         Γöé         Γöé was not recognized.  No operation was per-   Γöé
  4348.                     Γöé        Γöé         Γöé         Γöé formed.                     Γöé
  4349.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4350.  
  4351. Usage Notes 
  4352.  
  4353.  The bytes X'0E' and X'0F' representing shift-out and shift-in codes are not 
  4354.   affected by any country_code setting. 
  4355.  
  4356.  The current national country setting affects the format of the date and time 
  4357.   in the reports generated by the RPTOPTS and RPTSTG run-time options. For more 
  4358.   information on these run-time options, see RPTOPTS and RPTSTG. 
  4359.  
  4360.  C/370 considerations-C/370 provides locales that map to German, Spanish, 
  4361.   French, U.S. English, and other languages. They establish default formats for 
  4362.   items such as currency symbols, and names of the days of the week. To change 
  4363.   the locale, you can use the setlocale() library function. 
  4364.  
  4365.   The settings of setlocale() and the CEE3CTY run-time option do not affect one 
  4366.   another. CEE3CTY affects only LE/370 services; setlocale() affects only C/370 
  4367.   functions. 
  4368.  
  4369.   To ensure that everything is set properly for your country, use both CEE3CTY 
  4370.   and setlocale(). 
  4371.  
  4372.  OpenEdition MVS considerations-CEE3CTY applies to the enclave. Every thread 
  4373.   in the enclave has the same country setting. 
  4374.  
  4375. Examples 
  4376.  
  4377.  C/370 Example 
  4378.  
  4379.     /*COMPILATION UNIT: EDC3CTY   */
  4380.  
  4381.     #include <stdio.h>
  4382.     #include <string.h>
  4383.     #include <leawi.h>
  4384.     #include <ceeedcct.h>
  4385.  
  4386.     int main(void) {
  4387.  
  4388.       _FEEDBACK fc;
  4389.       _INT4 function;
  4390.       _CHAR2 country;
  4391.  
  4392.       /* query the current country setting */
  4393.       function = 2; /* function 2 is query */
  4394.       CEE3CTY(&function,country,&fc);
  4395.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  4396.          printf("CEE3CTY failed with message number %d\n",
  4397.                  fc.tok_msgno);
  4398.          exit(2999);
  4399.       }
  4400.  
  4401.       /* if the current country is not Canada then set */
  4402.       /* it to Canada */
  4403.       if (memcmp(country,"CA",2) != 0) {
  4404.          memcpy(country,"CA",2);
  4405.          function = 1; /* function 1 is set */
  4406.          CEE3CTY(&function,country,&fc);
  4407.  
  4408.          if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  4409.             printf("CEE3CTY failed with message number %d\n",
  4410.                    fc.tok_msgno);
  4411.             exit(2999);
  4412.          }
  4413.       }
  4414.     }
  4415.  
  4416.  COBOL/370 Example 
  4417.  
  4418.     CBL LIB,APOST
  4419.           *COMPILATION UNIT: IGZT3CTY
  4420.           ************************************************
  4421.           **                                            **
  4422.           ** Function: CEE3CTY - set default country    **
  4423.           **                                            **
  4424.           ************************************************
  4425.            IDENTIFICATION DIVISION.
  4426.            PROGRAM-ID. CBL3CTY.
  4427.            DATA DIVISION.
  4428.            WORKING-STORAGE SECTION.
  4429.            01  FUNCTN                  PIC S9(9) COMP.
  4430.            01  COUNTRY                 PIC X(2).
  4431.            01  FC.
  4432.                02  Condition-Token-Value.
  4433.                COPY  CEEIGZCT.
  4434.                    03  Case-1-Condition-ID.
  4435.                        04  Severity        PIC S9(4) COMP.
  4436.                        04  Msg-No          PIC S9(4) COMP.
  4437.                    03  Case-2-Condition-ID
  4438.                              REDEFINES Case-1-Condition-ID.
  4439.                        04  Class-Code      PIC S9(4) COMP.
  4440.                        04  Cause-Code      PIC S9(4) COMP.
  4441.                    03  Case-Sev-Ctl    PIC X.
  4442.                    03  Facility-ID     PIC XXX.
  4443.                02  I-S-Info        PIC S9(9) COMP.
  4444.  
  4445.            PROCEDURE DIVISION.
  4446.  
  4447.            PARA-3CTYQRY.
  4448.           ** Call CEE3CTY with the QUERY function,
  4449.           **     and display current country code.
  4450.                MOVE 2 TO FUNCTN.
  4451.                CALL 'CEE3CTY' USING FUNCTN , COUNTRY , FC.
  4452.                IF CEE000 of FC  THEN
  4453.                    DISPLAY 'THE CURRENT COUNTRY CODE IS '
  4454.                        COUNTRY
  4455.                ELSE
  4456.                    DISPLAY 'CEE3CTY(query) failed with msg '
  4457.                        Msg-No of FC UPON CONSOLE;
  4458.                    STOP RUN;
  4459.                END-IF.
  4460.  
  4461.            PARA-3CTYSET.
  4462.           ** If the current country code is not the US, call
  4463.           **     CEE3CTY with the SET function to make it
  4464.           **     the US. display result.
  4465.                IF ( COUNTRY IS NOT = 'US' )
  4466.                  THEN
  4467.                    MOVE 1 TO FUNCTN;
  4468.                    MOVE 'US' TO COUNTRY;
  4469.                    CALL 'CEE3CTY' USING FUNCTN ,
  4470.                        COUNTRY , FC;
  4471.                    IF CEE000 of FC  THEN
  4472.                        DISPLAY 'THE NEW COUNTRY CODE IS ',
  4473.                            COUNTRY;
  4474.                    ELSE
  4475.                        DISPLAY 'CEE3CTY(set) failed with msg '
  4476.                            Msg-No of FC UPON CONSOLE;
  4477.                        STOP RUN;
  4478.                    END-IF;
  4479.                END-IF.
  4480.  
  4481.                GOBACK.
  4482.  
  4483.  PL/I Example 
  4484.  
  4485.     *PROCESS MACRO;
  4486.      /*COMPILATION UNIT: IBM3CTY                       */
  4487.      /**************************************************/
  4488.      /**                                               */
  4489.      /** Function: CEE3CTY - set current country       */
  4490.      /**                                               */
  4491.      /** In this example, a call is made to the query  */
  4492.      /** function of CEE3CTY to return the current     */
  4493.      /** default country setting.  This is then        */
  4494.      /** printed out. If the current country code is   */
  4495.      /** not 'US', then it is set to 'US' and printed. */
  4496.      /**                                               */
  4497.      /**************************************************/
  4498.      PLI3CTY: PROC OPTIONS(MAIN);
  4499.  
  4500.         %INCLUDE  CEEIBMAW;
  4501.         %INCLUDE  CEEIBMCT;
  4502.  
  4503.         DCL FUNCTN   INT4;
  4504.         DCL COUNTRY  CHARACTER ( 2 );
  4505.         DCL 01 FC    FEEDBACK;
  4506.  
  4507.         FUNCTN = 2; /* Specify 2 for the query function  */
  4508.  
  4509.         /* Call CEE3CTY with the query function to       */
  4510.         /*    return the current country setting         */
  4511.         CALL CEE3CTY ( FUNCTN, COUNTRY, FC );
  4512.  
  4513.         /* If CEE3CTY ran successfully, print the        */
  4514.         /*    current country                            */
  4515.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  4516.            PUT SKIP LIST( 'The current country code is "'
  4517.               || COUNTRY || '".' );
  4518.            END;
  4519.         ELSE  DO;
  4520.            DISPLAY( 'CEE3CTY failed with msg '
  4521.               || FC.MsgNo );
  4522.            STOP;
  4523.            END;
  4524.  
  4525.         /* If the current default country is not the US, */
  4526.         /*    set it to the US                           */
  4527.         IF  COUNTRY ╨║= 'US'  THEN DO;
  4528.            FUNCTN = 1; /* Specify 1 for the set function */
  4529.            COUNTRY = 'US'; /* Specify country code for US*/
  4530.            CALL CEE3CTY ( FUNCTN, COUNTRY, FC );
  4531.  
  4532.            /* If CEE3CTY ran successfully print the      */
  4533.            /*    current country                         */
  4534.            IF  FBCHECK( FC, CEE000)  THEN  DO;
  4535.               PUT SKIP LIST( 'The new country code is "'
  4536.                  || COUNTRY || '".' );
  4537.               END;
  4538.            ELSE  DO;
  4539.               DISPLAY( 'CEE3CTY failed with msg '
  4540.                  || FC.MsgNo );
  4541.               STOP;
  4542.               END;
  4543.  
  4544.            END;
  4545.  
  4546.      END PLI3CTY;
  4547.  
  4548.  
  4549. ΓòÉΓòÉΓòÉ 3.3.4. CEE3DMP-Generate Dump ΓòÉΓòÉΓòÉ
  4550.  
  4551. CEE3DMP generates a dump of LE/370 and the member language libraries. Sections 
  4552. of the dump are selectively included, depending on options specified with the 
  4553. options parameter. Output from CEE3DMP is written to the default ddname 
  4554. CEEDUMP, unless you specify the ddname of another file by using the FNAME 
  4555. option of CEE3DMP. (See the CEE3DMP OpenEdition MVS usage note for more 
  4556. information about the dump output filename.) 
  4557.  
  4558. Dumps are written only in mixed-case U.S. English. If longer than 60 
  4559. characters, the dump title is truncated to 60 characters in order to match the 
  4560. record size of the dump file. Only nested enclaves within a single process are 
  4561. supported. 
  4562.  
  4563. CEE3DMP establishes a condition handler that captures all conditions that occur 
  4564. during dump processing. It terminates the section of the dump in progress when 
  4565. a condition occurs and inserts the following line into the dump: 
  4566.  
  4567. Exception occurred during dump processing at
  4568. nnnnnnnn
  4569. nnnnnnnn is the instruction address at the time of the exception. After this 
  4570. line is inserted in the report, dump processing continues for other member 
  4571. languages until CEE3DMP is complete. 
  4572.  
  4573. If an abend occurs, or if any other condition occurs or is signaled, the 
  4574. condition manager attempts to handle it. If the condition remains unhandled, 
  4575. and it is of sufficient severity, the condition manager might (based on the 
  4576. TERMTHDACT option) invoke dump services and then terminate the program. You do 
  4577. not have to call CEE3DMP to use the dump services. Any routine can use them. To 
  4578. support this case, dump services are invoked as follows: 
  4579.  
  4580.  The title is 'Condition processing resulted in the unhandled condition' to 
  4581.   indicate why the dump was produced. 
  4582.  
  4583.  The dump options are 'TRACE COND THR(ALL) BLOCKS STOR NOENTRY' for dump 
  4584.   output and 'TRACE COND THR(ALL) NOBLOCK NOSTOR NOENTRY' for trace output. 
  4585.  
  4586. Reprinting of section title and control block name at the top of each page is 
  4587. suppressed. Only the main title 'CEE3DMP: ...' is reprinted. 
  4588.  
  4589. The IBM-supplied default settings for the CEE3DMP options are: 
  4590.  
  4591. TRACEBACK THREAD(CURRENT) FILES VARIABLES NOBLOCKS
  4592. NOSTORAGE STACKFRAME(ALL) PAGESIZE(60) FNAME(CEEDUMP)
  4593. CONDITION ENTRY
  4594.  
  4595. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4596. Γöé                                                  Γöé
  4597. Γöé >>ΓöÇΓöÇCEE3DMPΓöÇΓöÇ(ΓöÇΓöÇtitleΓöÇΓöÇ,ΓöÇΓöÇoptionsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  4598. Γöé                                                  Γöé
  4599. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4600.  
  4601. title (input) 
  4602.           An 80-byte fixed-length character string containing a title printed 
  4603.           at the top of each page of the dump. 
  4604.  
  4605. options 
  4606.           A 255-byte fixed-length character string enclosed in single quotes 
  4607.           containing options describing the type, format, and destination of 
  4608.           dump information. 
  4609.  
  4610.           Options are declared as a string of keywords separated by blanks or 
  4611.           commas. Some options have suboptions that follow the option keyword 
  4612.           and are contained in parentheses. The options can be specified in any 
  4613.           order, but the last option declaration is honored if there is a 
  4614.           conflict between it and any preceding options. 
  4615.  
  4616.           The following options are recognized by LE/370: 
  4617.  
  4618.    ENCLave(ALL | CURrent | n) 
  4619.              Dumps the current enclave, a fixed number of enclaves, or all 
  4620.              enclaves associated with the current process. n is an integer 
  4621.              ranging from 1 to 2**31-1, inclusive, that indicates the maximum 
  4622.              number of enclaves that should be dumped. ENCLAVE(CURRENT) and 
  4623.              ENCLAVE(1) are equivalent. 
  4624.  
  4625.    THRead(ALL|CURrent) 
  4626.              Dumps the current thread (the thread that invoked this service) or 
  4627.              all threads associated with the current enclave. 
  4628.  
  4629.              When you specify THREAD(ALL) and more than one thread is running, 
  4630.              the library quiesces all threads before writing the dump. 
  4631.              Therefore, the state of the library changes from the time the dump 
  4632.              is requested to the time the dump is written. 
  4633.  
  4634.    TRACEback 
  4635.              Includes a traceback of all routines on the call chain. The 
  4636.              traceback shows transfers of control from either calls or 
  4637.              exceptions. The traceback extends backwards to the main program of 
  4638.              the current thread. 
  4639.  
  4640.              PL/I transfers of control into BEGIN-END blocks or ON-units are 
  4641.              considered calls. 
  4642.  
  4643.    NOTRACEback 
  4644.              Does not include a traceback. 
  4645.  
  4646.    FILEs 
  4647.              Includes attributes of all open files and the buffer contents used 
  4648.              by the files. The particular attributes displayed are defined by 
  4649.              the member languages. 
  4650.  
  4651.              File buffers are dumped when FILE and STORAGE are specified. File 
  4652.              control blocks are dumped when FILE and BLOCKS are specified. 
  4653.  
  4654.    NOFILEs 
  4655.              Does not include file attributes of open files. 
  4656.  
  4657.    VARiables 
  4658.              Includes a symbolic dump of all variables, arguments, and 
  4659.              registers. 
  4660.  
  4661.              Variables include arrays and structures. Register values are those 
  4662.              saved in the stack frame at the time of call. There is no way to 
  4663.              print a subset of this information. 
  4664.  
  4665.              Variables and arguments are printed only if the symbol tables are 
  4666.              available. A symbol table is generated when a program is compiled 
  4667.              with the options shown below for each HLL, except for PL/I, which 
  4668.              does not support the VARIABLE option. 
  4669.  
  4670.       Language  Compile-Time Option 
  4671.       C         TEST(SYM) 
  4672.       COBOL     TEST or TEST(h,SYM) The variables, arguments, and registers are 
  4673.              dumped, beginning with the routine that called CEE3DMP. The dump 
  4674.              proceeds up the chain for the number of routines specified by the 
  4675.              STACKFRAME option. See below for a description of the STACKFRAME 
  4676.              option. 
  4677.  
  4678.    NOVARiables 
  4679.              Does not include a dump of variables, arguments, and registers. 
  4680.  
  4681.    BLOCKs 
  4682.              Dumps the control blocks used in LE/370 and member language 
  4683.              libraries. 
  4684.  
  4685.              Global control blocks, as well as control blocks associated with 
  4686.              routines on the call chain, are printed. Control blocks are 
  4687.              printed for the routine that called CEE3DMP. The dump proceeds up 
  4688.              the call chain for the number of routines specified by the 
  4689.              STACKFRAME option (see below). Control blocks for files are also 
  4690.              dumped if the FILES option was specified. See the FILES option 
  4691.              above for more information. 
  4692.  
  4693.              If the TRACE run-time option is set to ON, the trace table is 
  4694.              dumped when BLOCKS is specified. 
  4695.  
  4696.    NOBLOCKs 
  4697.              Suppresses the dump of control blocks. 
  4698.  
  4699.    STORage 
  4700.              Dumps the storage used by the program. 
  4701.  
  4702.              The storage is displayed in hexadecimal and character format. 
  4703.              Global storage, as well as storage associated with each routine on 
  4704.              the call chain, is printed. Storage is dumped for the routine that 
  4705.              called CEE3DMP, which proceeds up the call chain for the number of 
  4706.              routines specified by the STACKFRAME option. Storage for all file 
  4707.              buffers is also dumped if the FILES option was specified (see 
  4708.              above). 
  4709.  
  4710.    NOSTORage 
  4711.              Suppresses storage dumps. 
  4712.  
  4713.    StackFrame(n|ALL) 
  4714.              Specifies the number of stack frames dumped from the call chain. 
  4715.  
  4716.              If STACKFRAME(ALL) is specified, all stack frames are dumped. No 
  4717.              stack frame storage is dumped if STACKFRAME(0) is specified. 
  4718.  
  4719.              The particular information dumped for each stack frame depends on 
  4720.              the VARIABLE, BLOCK, and STORAGE option declarations specified for 
  4721.              CEE3DMP. The first stack frame dumped is the one associated with 
  4722.              the routine that called CEE3DMP, followed by its caller, and 
  4723.              proceeding backwards up the call chain. 
  4724.  
  4725.    PAGEsize(n) 
  4726.              Specifies the number of lines on each page of the dump. 
  4727.  
  4728.              This value must be greater than 9. A value of 0 indicates that 
  4729.              there should be no page breaks in the dump. The default setting is 
  4730.              PAGESIZE(60). 
  4731.  
  4732.    FNAME(ddname) 
  4733.              Specifies the ddname of the file to which the dump report is 
  4734.              written. 
  4735.  
  4736.              The ddname supplied in this option must be a valid ddname for the 
  4737.              system on which the application is running. CEE3DMP does not check 
  4738.              the ddname for validity, nor does CEE3DMP translate or modify the 
  4739.              ddname. Supplying an invalid ddname can result in unpredictable 
  4740.              behavior. 
  4741.  
  4742.              The default ddname CEEDUMP is used if this option is not 
  4743.              specified. 
  4744.  
  4745.    CONDition 
  4746.              Specifies that for each active condition on the call chain, the 
  4747.              following information is dumped from the CIB: 
  4748.  
  4749.        The address of the CIB. 
  4750.  
  4751.        The message associated with the current condition token. 
  4752.  
  4753.        The message associated with the original condition token, if different 
  4754.         from the current one. 
  4755.  
  4756.        The location of the error. 
  4757.  
  4758.        The machine state at the time the condition manager was invoked, if an 
  4759.         abend or hardware condition occurred. 
  4760.  
  4761.        The abend code and reason code, if the condition occurred as a result 
  4762.         of an abend. 
  4763.  
  4764.        Language-specific error information. 
  4765.  
  4766.         The information supplied by LE/370-conforming languages differs. PL/I 
  4767.         supplies DATAFIELD, ONCHAR, ONCOUNT, ONFILE, ONKEY, and ONSOURCE 
  4768.         values. These built-in function (BIF) values are shown in the context 
  4769.         of the condition raised. 
  4770.  
  4771.              This option does not apply to asynchronous signals. 
  4772.  
  4773.    NOCONDition 
  4774.              Does not dump condition information for active conditions on the 
  4775.              call chain. 
  4776.  
  4777.    ENTRY 
  4778.              Includes in the dump a description of the routine that called 
  4779.              CEE3DMP and the contents of the registers on entry to CEE3DMP. 
  4780.  
  4781.    NOENTRY 
  4782.              Does not include in the dump a description of the routine that 
  4783.              called CEE3DMP and the contents of the registers on entry to 
  4784.              CEE3DMP. 
  4785.  
  4786.    fc (output) 
  4787.              A 12-byte feedback code, optional in some languages, that 
  4788.              indicates the result of this service. 
  4789.  
  4790.              The following symbolic conditions can result from this service: 
  4791.  
  4792.                           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4793.                           Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  4794.                           Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  4795.                           Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4796.                           Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  4797.                           Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4798.                           Γöé CEE30U     Γöé 2        Γöé 3102      Γöé Unsupported or incompatible CEE3DMP options or Γöé
  4799.                           Γöé        Γöé         Γöé         Γöé suboptions were found and ignored.       Γöé
  4800.                           Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4801.                           Γöé CEE30V     Γöé 3        Γöé 3103      Γöé An error occurred in writing messages to the  Γöé
  4802.                           Γöé        Γöé         Γöé         Γöé dump file.                   Γöé
  4803.                           ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4804.  
  4805. Usage Notes 
  4806.  
  4807.  CICS consideration-Only ENCLAVE(CURRENT) and ENCLAVE(1) are supported on 
  4808.   CICS. 
  4809.  
  4810.  CMS considerations-All values for the ENCLAVE option are supported on CMS for 
  4811.   nested enclaves created by the C/370 system() function. Only ENCLAVE(CURRENT) 
  4812.   and ENCLAVE(1) are supported on CMS for nested enclaves created by SVC LINK, 
  4813.   CMSCALL or PL/I FETCH and CALL of a fetchable main. 
  4814.  
  4815.  MVS consideration-On MVS, all values for the ENCLAVE option are supported. 
  4816.  
  4817.  OpenEdition MVS consideration-CEE3DMP applies to the enclave. 
  4818.  
  4819.   When you call CEE3DMP in a multithread environment, the current thread or all 
  4820.   threads might be dumped. Enclave- and process-related storage (along with 
  4821.   storage related to threads other than the current thread) might have changed 
  4822.   in value from the time the dump request was issued. 
  4823.  
  4824.   If the CEEDUMP DD has a PATH= parameter, the dump is directed to the 
  4825.   hierarchic file system (HFS) file specified. 
  4826.  
  4827.   If your application is running under OpenEdition MVS and is either running in 
  4828.   an address space created by using the fork() function or is invoked by one of 
  4829.   the exec family of functions, the dump is written to the HFS. LE/370 writes 
  4830.   the dump to a file in your current working directory, unless that directory 
  4831.   is the root directory, in which case the dump is written to a file in the 
  4832.   directory /tmp.. 
  4833.  
  4834.   The name of this file changes with each dump and uses the following format: 
  4835.  
  4836.         /path/Fname.Date.Time.Pid
  4837.  
  4838.    path The current working directory 
  4839.  
  4840.    Fname The name specified in the FNAME parameter on the call to CEE3DMP 
  4841.        (default is CEEDUMP) 
  4842.  
  4843.    Date The date the dump is taken, appearing in the format YYYYMMDD (such as 
  4844.        19940325 for March 25, 1994) 
  4845.  
  4846.    Time The time the dump is taken, appearing in the format HHMMSS (such as 
  4847.        175501 for 05:01 PM) 
  4848.  
  4849.    Pid The process ID the application is running in when the dump is taken 
  4850.  
  4851. Examples 
  4852.  
  4853.  C/370 Example 
  4854.  
  4855.     /*COMPILATION UNIT: EDC3DMP   */
  4856.  
  4857.     #include <stdio.h>
  4858.     #include <leawi.h>
  4859.     #include <ceeedcct.h>
  4860.  
  4861.     int main(void) {
  4862.  
  4863.       _CHAR80 title =
  4864.                "This is the title of the dump report";
  4865.       _CHAR255 options = "THREAD(CURRENT) TRACEBACK FILES";
  4866.       FILE *f;
  4867.       _FEEDBACK fc;
  4868.  
  4869.       f = fopen("my.file","wb");
  4870.       fprintf(f,"my file record 1\n");
  4871.  
  4872.       CEE3DMP(title,options,&fc);
  4873.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  4874.          printf("CEE3DMP failed with msgno %d\n",
  4875.            fc.tok_msgno);
  4876.          exit(2999);
  4877.       }
  4878.     }
  4879.  
  4880.  COBOL/370 Example 
  4881.  
  4882.     CBL LIB,APOST
  4883.           *COMPILATION UNIT: IGZT3DMP
  4884.           *************************************************
  4885.           **                                             **
  4886.           ** Function: CEE3DMP - generate dump           **
  4887.           **                                             **
  4888.           ** In this example, a call to CEE3DMP is made  **
  4889.           ** to request a dump of the run-time           **
  4890.           ** environment. Several options are specified  **
  4891.           ** to customize the the dump.                  **
  4892.           **                                             **
  4893.           *************************************************
  4894.            IDENTIFICATION DIVISION.
  4895.            PROGRAM-ID. CBL3DMP.
  4896.            DATA DIVISION.
  4897.            WORKING-STORAGE SECTION.
  4898.            01  DMPTITL                 PIC X(80).
  4899.            01  OPTIONS                 PIC X(255).
  4900.            01  FC.
  4901.                02  Condition-Token-Value.
  4902.                COPY  CEEIGZCT.
  4903.                    03  Case-1-Condition-ID.
  4904.                        04  Severity        PIC S9(4) COMP.
  4905.                        04  Msg-No          PIC S9(4) COMP.
  4906.                    03  Case-2-Condition-ID
  4907.                              REDEFINES Case-1-Condition-ID.
  4908.                        04  Class-Code      PIC S9(4) COMP.
  4909.                        04  Cause-Code      PIC S9(4) COMP.
  4910.                    03  Case-Sev-Ctl    PIC X.
  4911.                    03  Facility-ID     PIC XXX.
  4912.                02  I-S-Info        PIC S9(9) COMP.
  4913.  
  4914.            PROCEDURE DIVISION.
  4915.  
  4916.           ** Specify title to appear on each page of the
  4917.           **     dump report.
  4918.           ** Specify options that will request that a
  4919.           **     traceback be provided, but no variables,
  4920.           **     stack frames, condition information, or
  4921.           **     registers be dumped.
  4922.            PARA-CBL3DMP.
  4923.                MOVE 'This is the title for the dump report.'
  4924.                      TO DMPTITL.
  4925.                MOVE 'TRACE NOVAR SF(0) NOCOND NOENTRY' TO
  4926.                      OPTIONS.
  4927.                CALL 'CEE3DMP' USING DMPTITL , OPTIONS , FC.
  4928.                IF NOT CEE000 of FC  THEN
  4929.                    DISPLAY 'CEE3DMP failed with msg '
  4930.                        Msg-No of FC UPON CONSOLE;
  4931.                    STOP RUN;
  4932.                END-IF.
  4933.                GOBACK.
  4934.  
  4935.  PL/I Example 
  4936.  
  4937.     *PROCESS MACRO;
  4938.      /*COMPILATION UNIT: IBM3DMP                        */
  4939.      /***************************************************/
  4940.      /**                                                */
  4941.      /** Function: CEE3DMP - generate dump              */
  4942.      /**                                                */
  4943.      /** In this example, a call to CEE3DMP is made to  */
  4944.      /** request a dump of the run-time environment.    */
  4945.      /** Several options are specified, to customize    */
  4946.      /** the dump.                                      */
  4947.      /**                                                */
  4948.      /**                                                */
  4949.      /***************************************************/
  4950.      PLI3DMP: PROC OPTIONS(MAIN);
  4951.  
  4952.         %INCLUDE  CEEIBMAW;
  4953.         %INCLUDE  CEEIBMCT;
  4954.  
  4955.         DCL DMPTITL  CHAR80;
  4956.         DCL OPTIONS  CHARACTER ( 255 );
  4957.         DCL 01 FC    FEEDBACK;
  4958.  
  4959.         /* Specify a string to be printed at the top of */
  4960.         /*    each page of dump                         */
  4961.         DMPTITL = 'This is the title for the dump report.';
  4962.  
  4963.         /* Request that a traceback be provided, but    */
  4964.         /*    no variables, stack frames, condition     */
  4965.         /*    information, or registers be dumped       */
  4966.         OPTIONS = 'TRACE NOVAR SF(0) NOCOND NOENTRY';
  4967.  
  4968.         /* Call CEE3DMP with options to customize dump   */
  4969.         CALL CEE3DMP ( DMPTITL, OPTIONS, FC );
  4970.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  4971.            PUT SKIP LIST( 'Successfully produced dump with'
  4972.               || ' title "' || DMPTITL || '"' );
  4973.            PUT SKIP LIST( ' and options:  ' || OPTIONS );
  4974.            END;
  4975.         ELSE  DO;
  4976.            DISPLAY( 'CEE3DMP failed with msg '
  4977.               || FC.MsgNo );
  4978.            STOP;
  4979.            END;
  4980.  
  4981.      END PLI3DMP;
  4982.  
  4983.  
  4984. ΓòÉΓòÉΓòÉ 3.3.5. CEE3GRC-Get the Enclave Return Code ΓòÉΓòÉΓòÉ
  4985.  
  4986. CEE3GRC retrieves the current value of the user enclave return code. Use 
  4987. CEE3GRC in conjunction with CEE3SRC (see CEE3SRC-Set the Enclave Return Code) 
  4988. to get and then set user enclave return codes. 
  4989.  
  4990. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4991. Γöé                                                  Γöé
  4992. Γöé >>ΓöÇΓöÇCEE3GRCΓöÇΓöÇ(ΓöÇΓöÇreturn_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  4993. Γöé                                                  Γöé
  4994. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4995.  
  4996. return_code(output) 
  4997.           The enclave return code. 
  4998.  
  4999. fc (output) 
  5000.           A feedback code, optional in some languages, that indicates the 
  5001.           result of this service. 
  5002.  
  5003.           The following symbolic conditions can result from this service: 
  5004.  
  5005.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5006.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  5007.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  5008.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5009.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  5010.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5011.  
  5012. Usage Note 
  5013.  
  5014.  OpenEdition MVS consideration-CEE3GRC applies to the enclave. 
  5015.  
  5016. Examples 
  5017.  
  5018.  C/370 Examples 
  5019.  
  5020.  
  5021.     C/370 main() Routine that Calls CEEHDLR and CEE3GRC
  5022.  
  5023.     /*COMPILATION UNIT: EDC3GRC   */
  5024.  
  5025.     #include <stdio.h>
  5026.     #include <string.h>
  5027.     #include <leawi.h>
  5028.     #include <ceeedcct.h>
  5029.  
  5030.      /*****************************************************/
  5031.      /**                                                  */
  5032.      /** Function: CEEHDLR - Register user condition      */
  5033.      /**                     handler                      */
  5034.      /**         : CEE3GRC - Get enclave return code      */
  5035.      /*                                                   */
  5036.      /* 1. Register the user-written condition handler    */
  5037.      /*    CESETRC.                                       */
  5038.      /* 2. Call CERCDIV, which performs a divide-by-zero. */
  5039.      /* 3. CESETRC is entered, sets the enclave return    */
  5040.      /*    code to 999998 and resumes.                    */
  5041.      /* 4. The main routine regains control and           */
  5042.      /*    retrieves the enclave return code              */
  5043.      /*****************************************************/
  5044.  
  5045.      /*****************************************************
  5046.        Declaration of user-written condition handler
  5047.       *****************************************************/
  5048.     void CESETRC(_FEEDBACK *, _INT4*, _INT4 *, _FEEDBACK *);
  5049.     void CERCDIV(int);
  5050.  
  5051.     main()
  5052.     {
  5053.      _INT4 idivisor = 0;
  5054.      _INT4 enclave_RC;
  5055.      _FEEDBACK feedback, new_feedback;
  5056.      _ENTRY pgmptr;
  5057.      _INT4 token;
  5058.  
  5059.      /*****************************************************
  5060.       The condition handler CESETRC is registered
  5061.       *****************************************************/
  5062.      pgmptr.address = (_POINTER)&CESETRC;
  5063.      pgmptr.nesting = NULL;
  5064.      token = 97;
  5065.      CEEHDLR(&pgmptr, &token, &feedback);
  5066.  
  5067.      /*****************************************************
  5068.       A divide-by-zero is accomplished by calling CERCDIV.
  5069.       *****************************************************/
  5070.      CERCDIV(idivisor);   /* this causes a zero divide    */
  5071.  
  5072.      /*****************************************************
  5073.       Call CEE3GRC and check that enclave return code was set.
  5074.       *****************************************************/
  5075.      CEE3GRC(&enclave_RC, &feedback);
  5076.        if ( _FBCHECK ( feedback , CEE000 ) != 0 ) {
  5077.           printf("CEE3GRC failed with message number %d\n",
  5078.                  feedback.tok_msgno);
  5079.           exit(2999);
  5080.        }
  5081.  
  5082.      if (enclave_RC != 999998)
  5083.        printf ("Error setting enclave return code");
  5084.     }
  5085.  
  5086.  
  5087.     C / 370User - WrittenConditionHandlerthatSetsaUserEnclaveReturnCode
  5088.  
  5089.     /*COMPILATION UNIT: EDC3SRC   */
  5090.      /*****************************************************/
  5091.      /**                                                  */
  5092.      /** Function: CEE3SRC - Set the enclave return code. */
  5093.      /*                                                   */
  5094.      /* This is the user-written condition handler        */
  5095.      /* registered by CEGETRC. It invokes CEE3SRC to set  */
  5096.      /* the enclave return code to 999998                 */
  5097.      /* when a divide-by-zero condition is encountered.   */
  5098.      /**                                                  */
  5099.      /*****************************************************/
  5100.     #include <stdio.h>
  5101.     #include <string.h>
  5102.     #include <leawi.h>
  5103.     #include <ceeedcct.h>
  5104.     #define RESUME 10
  5105.     #define PERCOLATE 20
  5106.      /*****************************************************/
  5107.  
  5108.     void CESETRC (_FEEDBACK *cond, _INT4 *input_token,
  5109.                    _INT4 *result, _FEEDBACK *new_cond)
  5110.     {
  5111.      _INT4 enclave_RC;
  5112.      _FEEDBACK feedback;
  5113.  
  5114.      if ( _FBCHECK ( *cond , CEE349 ) == 0 )
  5115.       {
  5116.        enclave_RC = 999998;
  5117.        CEE3SRC(&enclave_RC, &feedback);
  5118.        *result = RESUME;
  5119.       }
  5120.      else
  5121.       {
  5122.        *result = PERCOLATE;
  5123.       }
  5124.     }
  5125.  
  5126.  
  5127.     C/370 Subroutine that Generates the Divide-by-Zero Condition
  5128.  
  5129.     /*COMPILATION UNIT: EDCDIV    */
  5130.     #include <stdio.h>
  5131.     #include <string.h>
  5132.      /**************************************************/
  5133.      /**                                               */
  5134.      /* This is a divide-by-zero routine. It divides   */
  5135.      /* an input integer by a constant.                */
  5136.      /**                                               */
  5137.      /**************************************************/
  5138.  
  5139.     void CERCDIV (int Integer)
  5140.  
  5141.     {
  5142.      int num;
  5143.      num = 1/Integer;
  5144.     }
  5145.  
  5146.  COBOL/370 Examples 
  5147.  
  5148.  
  5149.     COBOL Main Routine that Calls CEEHDLR and CEE3GRC
  5150.  
  5151.     CBL LIB,APOST,C,RENT,OPTIMIZE,NODYNAM
  5152.           *COMPILATION UNIT: IGZT3GRC
  5153.           **************************************************
  5154.           **                                              **
  5155.           ** Function: CEEHDLR - register user condition  **
  5156.           **                     handler                  **
  5157.           **         : CEE3GRC - get enclave return code  **
  5158.           **                                              **
  5159.           ** 1. Registers user condition handler CESETRC. **
  5160.           ** 2. Program then calls CERCDIV which performs **
  5161.           **    a divide by zero operation.               **
  5162.           ** 3. CESETRC gets control and set the enclave  **
  5163.           **    return code to 999998 and resumes.        **
  5164.           ** 4. Regains control and retrieves the enclave **
  5165.           **    return code.                              **
  5166.           **************************************************
  5167.            IDENTIFICATION DIVISION.
  5168.            PROGRAM-ID.    CBL3GRC.
  5169.           **************************************************
  5170.           **           D A T A      D I V I S I O N      ***
  5171.           **************************************************
  5172.            DATA DIVISION.
  5173.            WORKING-STORAGE SECTION.
  5174.            01  TOKEN           PIC X(4).
  5175.            01  IDIVISOR        PIC S9(9)
  5176.                                COMP VALUE ZERO.
  5177.            01  ENCLAVE-RC      PIC S9(9) COMP.
  5178.           **
  5179.           **  Declares for condition handling
  5180.           **
  5181.            01  PGMPTR          USAGE IS PROCEDURE-POINTER.
  5182.            01  FBCODE.
  5183.                02  Condition-Token-Value.
  5184.                COPY  CEEIGZCT.
  5185.                    03  Case-1-Condition-ID.
  5186.                        04  Severity        PIC S9(4) COMP.
  5187.                        04  Msg-No          PIC S9(4) COMP.
  5188.                    03  Case-2-Condition-ID
  5189.                              REDEFINES Case-1-Condition-ID.
  5190.                        04  Class-Code      PIC S9(4) COMP.
  5191.                        04  Cause-Code      PIC S9(4) COMP.
  5192.                    03  Case-Sev-Ctl    PIC X.
  5193.                    03  Facility-ID     PIC XXX.
  5194.                02  I-S-Info        PIC S9(9) COMP.
  5195.  
  5196.           *************************************************
  5197.           **           P R O C      D I V I S I O N     ***
  5198.           *************************************************
  5199.            PROCEDURE DIVISION.
  5200.  
  5201.            0001-BEGIN-PROCESSING.
  5202.           ** **********************************************
  5203.           ** Register user condition handler CESETRC using
  5204.           **     CEEHDLR
  5205.           ** **********************************************
  5206.                SET PGMPTR TO ENTRY  'CESETRC'.
  5207.                MOVE 97 TO TOKEN
  5208.                CALL 'CEEHDLR' USING PGMPTR TOKEN FBCODE.
  5209.                IF NOT CEE000 of FBCODE  THEN
  5210.                    DISPLAY 'CEEHDLR failed with msg '
  5211.                        Msg-No of FBCODE UPON CONSOLE;
  5212.                    STOP RUN;
  5213.                END-IF.
  5214.  
  5215.           ** **********************************************
  5216.           ** Call CERCDIV  to cause a divide by zero
  5217.           **     condition
  5218.           ** **********************************************
  5219.                CALL 'CERCDIV' USING IDIVISOR.
  5220.  
  5221.           ** **********************************************
  5222.           ** Call CEE3GRC  to get the enclave return code
  5223.           ** **********************************************
  5224.                CALL 'CEE3GRC' USING ENCLAVE-RC FBCODE.
  5225.                IF NOT CEE000 of FBCODE  THEN
  5226.                    DISPLAY 'CEEHDLR failed with msg '
  5227.                        Msg-No of FBCODE UPON CONSOLE;
  5228.                    STOP RUN;
  5229.                END-IF.
  5230.  
  5231.                IF (ENCLAVE-RC =  999998) THEN
  5232.                    DISPLAY 'Enclave return code '
  5233.                        'set and retrieved.'
  5234.                ELSE
  5235.                    DISPLAY '*** Unexpected enclave return '
  5236.                        'code of ' ENCLAVE-RC ' encountered'
  5237.                END-IF.
  5238.  
  5239.                GOBACK.
  5240.            End program CBL3GRC.
  5241.  
  5242.  
  5243.     COBOL Condition Handler that Sets a User Enclave Return Code and Resumes when a Divide-by-Zero Condition Occurs
  5244.  
  5245.        CBL C,RENT,Q,OPTIMIZE,NODYNAM,LIB,APOST
  5246.           *COMPILATION UNIT: IGZT3SRC
  5247.           *************************************************
  5248.           **                                             **
  5249.           ** DRV3SRC - Drive sample program for CEE3SRC. **
  5250.           **                                             **
  5251.           *************************************************
  5252.            IDENTIFICATION DIVISION.
  5253.            PROGRAM-ID. DRV3SRC.
  5254.            DATA DIVISION.
  5255.            WORKING-STORAGE SECTION.
  5256.            01  ROUTINE             PROCEDURE-POINTER.
  5257.            01  DENOMINATOR         PIC S9(9) COMP.
  5258.            01  NUMERATOR           PIC S9(9) COMP.
  5259.            01  RATIO               PIC S9(9) COMP.
  5260.            01  TOKEN               PIC S9(9) COMP VALUE 0.
  5261.            01  FC.
  5262.                02  Condition-Token-Value.
  5263.                COPY  CEEIGZCT.
  5264.                    03  Case-1-Condition-ID.
  5265.                        04  Severity        PIC S9(4) COMP.
  5266.                        04  Msg-No          PIC S9(4) COMP.
  5267.                    03  Case-2-Condition-ID
  5268.                              REDEFINES Case-1-Condition-ID.
  5269.                        04  Class-Code      PIC S9(4) COMP.
  5270.                        04  Cause-Code      PIC S9(4) COMP.
  5271.                    03  Case-Sev-Ctl    PIC X.
  5272.                    03  Facility-ID     PIC XXX.
  5273.                02  I-S-Info        PIC S9(9) COMP.
  5274.  
  5275.            PROCEDURE DIVISION.
  5276.  
  5277.            REGISTER-HANDLER.
  5278.           ** Register handler
  5279.                SET ROUTINE TO ENTRY 'CBL3SRC'.
  5280.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  5281.                IF  NOT CEE000 of FC  THEN
  5282.                    DISPLAY 'CEEHDLR failed with msg '
  5283.                        Msg-No of FC UPON CONSOLE;
  5284.                    STOP RUN;
  5285.                END-IF.
  5286.  
  5287.            RAISE-CONDITION.
  5288.           ** Cause a zero-divide condition.
  5289.                MOVE 0 TO DENOMINATOR.
  5290.                MOVE 1 TO NUMERATOR.
  5291.                DIVIDE NUMERATOR BY DENOMINATOR, GIVING RATIO.
  5292.  
  5293.            UNREGISTER-HANDLER.
  5294.           ** UNregister handler
  5295.                CALL 'CEEHDLU' USING ROUTINE , TOKEN , FC.
  5296.                IF NOT CEE000 of FC  THEN
  5297.                    DISPLAY 'CEEHDLU failed with msg '
  5298.                        Msg-No of FC UPON CONSOLE;
  5299.                END-IF.
  5300.                STOP RUN.
  5301.            END PROGRAM DRV3SRC.
  5302.  
  5303.           *COMPILATION UNIT: CBL3SRC
  5304.           ************************************************
  5305.           **                                            **
  5306.           ** Function: CEE3SRC - Set the enclave        **
  5307.           **                     return code            **
  5308.           **                                            **
  5309.           ** This is an example of a user-written       **
  5310.           ** condition handler that sets a user         **
  5311.           ** enclave return code and resumes when       **
  5312.           ** a divide-by-zero condition occurs.         **
  5313.           ************************************************
  5314.            IDENTIFICATION DIVISION.
  5315.            PROGRAM-ID. CBL3SRC.
  5316.  
  5317.            DATA DIVISION.
  5318.  
  5319.            WORKING-STORAGE SECTION.
  5320.            01  ENCLAVE-RC              PIC S9(9) BINARY.
  5321.            01  FEEDBACK.
  5322.                02  Condition-Token-Value.
  5323.                COPY  CEEIGZCT.
  5324.                    03  Case-1-Condition-ID.
  5325.                        04  Severity        PIC S9(4) COMP.
  5326.                        04  Msg-No          PIC S9(4) COMP.
  5327.                    03  Case-2-Condition-ID
  5328.                              REDEFINES Case-1-Condition-ID.
  5329.                        04  Class-Code      PIC S9(4) COMP.
  5330.                        04  Cause-Code      PIC S9(4) COMP.
  5331.                    03  Case-Sev-Ctl    PIC X.
  5332.                    03  Facility-ID     PIC XXX.
  5333.                02  I-S-Info        PIC S9(9) COMP.
  5334.  
  5335.            LINKAGE SECTION.
  5336.            01  TOKEN                   PIC X(4).
  5337.            01  RESULT-CODE             PIC S9(9) BINARY.
  5338.                88 RESUME               VALUE +10.
  5339.                88 PERCOLATE            VALUE +20.
  5340.            01  CURRENT-CONDITION.
  5341.                02  Condition-Token-Value.
  5342.                COPY  CEEIGZCT.
  5343.                    03  Case-1-Condition-ID.
  5344.                        04  Severity        PIC S9(4) COMP.
  5345.                        04  Msg-No          PIC S9(4) COMP.
  5346.                    03  Case-2-Condition-ID
  5347.                              REDEFINES Case-1-Condition-ID.
  5348.                        04  Class-Code      PIC S9(4) COMP.
  5349.                        04  Cause-Code      PIC S9(4) COMP.
  5350.                    03  Case-Sev-Ctl    PIC X.
  5351.                    03  Facility-ID     PIC XXX.
  5352.                02  I-S-Info        PIC S9(9) COMP.
  5353.            01  NEW-CONDITION.
  5354.                02  Condition-Token-Value.
  5355.                COPY  CEEIGZCT.
  5356.                    03  Case-1-Condition-ID.
  5357.                        04  Severity        PIC S9(4) COMP.
  5358.                        04  Msg-No          PIC S9(4) COMP.
  5359.                    03  Case-2-Condition-ID
  5360.                              REDEFINES Case-1-Condition-ID.
  5361.                        04  Class-Code      PIC S9(4) COMP.
  5362.                        04  Cause-Code      PIC S9(4) COMP.
  5363.                    03  Case-Sev-Ctl    PIC X.
  5364.                    03  Facility-ID     PIC XXX.
  5365.                02  I-S-Info        PIC S9(9) COMP.
  5366.  
  5367.           *************************************************
  5368.           **           P R O C      D I V I S I O N     ***
  5369.           *************************************************
  5370.            PROCEDURE DIVISION
  5371.                USING CURRENT-CONDITION TOKEN RESULT-CODE
  5372.                      NEW-CONDITION.
  5373.  
  5374.            HANDLE-CONDITION.
  5375.           ** Check for divide-by-zero condition (CEE349)
  5376.                IF CEE349 of CURRENT-CONDITION  THEN
  5377.                    MOVE 761 TO ENCLAVE-RC
  5378.                    CALL 'CEE3SRC' USING ENCLAVE-RC, FEEDBACK
  5379.                    IF NOT CEE000 of FEEDBACK  THEN
  5380.                        DISPLAY 'CEE3SRC failed with msg '
  5381.                            Msg-No of FEEDBACK UPON CONSOLE;
  5382.                    END-IF;
  5383.                END-IF.
  5384.                SET PERCOLATE TO TRUE
  5385.  
  5386.                GOBACK.
  5387.  
  5388.            END PROGRAM CBL3SRC.
  5389.  
  5390.  
  5391.     COBOL Subroutine that Generates a Divide-by-Zero
  5392.  
  5393.     CBL LIB,APOST,C,RENT,OPTIMIZE,NODYNAM
  5394.           *COMPILATION UNIT: IGZTDIV
  5395.           ************************************************
  5396.           **                                            **
  5397.           **Function       :                            **
  5398.           **                                            **
  5399.           **     A divide by zero is attempted. This    **
  5400.           **  induces the invocation of user condition  **
  5401.           **  handler CESETRC registered in program     **
  5402.           **  CEGETRC.                                  **
  5403.           **               :                            **
  5404.           ************************************************
  5405.            IDENTIFICATION DIVISION.
  5406.            PROGRAM-ID.   CERCDIV.
  5407.           ************************************************
  5408.           **           D A T A      D I V I S I O N    ***
  5409.           ************************************************
  5410.            DATA DIVISION.
  5411.            WORKING-STORAGE SECTION.
  5412.            01  TO-DIVIDE               PIC S9(9)
  5413.                                        COMP VALUE 1.
  5414.            LINKAGE SECTION.
  5415.            01  IDIVISOR                PIC S9(9) COMP.
  5416.           ************************************************
  5417.           **           P R O C      D I V I S I O N    ***
  5418.           ************************************************
  5419.            PROCEDURE DIVISION USING IDIVISOR.
  5420.            PARA-CND01A.
  5421.           **
  5422.           **  divide a constant by IDIVISOR.
  5423.           **
  5424.                DIVIDE IDIVISOR INTO TO-DIVIDE.
  5425.                GOBACK.
  5426.            End program CERCDIV.
  5427.  
  5428.  PL/I Example 
  5429.  
  5430.  
  5431.     PL/I Example that Sets and Retrieves the User Enclave Return Code when a Divide-by-Zero is Generated
  5432.  
  5433.     *Process lc(101),opt(0),s,map,list,stmt,a(f),ag,macro ;
  5434.      /*COMPILATION UNIT: IBMDIV
  5435.      /****************************************************/
  5436.      /**                                                 */
  5437.      /** Function: CEE3SRC - Set the enclave return code */
  5438.      /**         : CEE3GRC - Get the enclave return code */
  5439.      /*                                                  */
  5440.      /* 1. A user ZERODIVIDE ON-unit is established by   */
  5441.      /*    CESETRC.                                      */
  5442.      /* 2. A sub-program, sdivide, is called and causes  */
  5443.      /*    a ZERODIVIDE condition to occur.              */
  5444.      /* 3. The ON-unit for ZERODIVIDE is entered.        */
  5445.      /*    The ON-unit calls CEE3GRC to get the current  */
  5446.      /*    enclave return code. It increments the return */
  5447.      /*    code by 4444, and sets the enclave return     */
  5448.      /*    code to this new value.                       */
  5449.      /* 4. On completion, the program prints the enclave */
  5450.      /*    return code.                                  */
  5451.      /****************************************************/
  5452.      CESETRC: Proc Options(Main)        ;
  5453.  
  5454.         %INCLUDE  CEEIBMAW;
  5455.         %INCLUDE  CEEIBMCT;
  5456.  
  5457.         DCL Enclave_RC INT4;
  5458.         DCL 01 FC      FEEDBACK ;
  5459.      /****************************************************/
  5460.      /* A ZERODIVIDE ON-unit is established              */
  5461.      /****************************************************/
  5462.         on zerodivide begin;
  5463.            call CEE3GRC (Enclave_RC, fc);
  5464.            IF  FBCHECK( FC, CEE000)  THEN  DO;
  5465.               PUT SKIP LIST( 'Original Enclave RC was '
  5466.                  || Enclave_RC );
  5467.               END;
  5468.            ELSE  DO;
  5469.               DISPLAY( 'CEE3GRC failed with msg '
  5470.                  || FC.MsgNo );
  5471.               STOP;
  5472.               END;
  5473.            Enclave_RC = Enclave_RC + 4444;
  5474.            call CEE3SRC (Enclave_RC, fc);
  5475.            IF  FBCHECK( FC, CEE000)  THEN  DO;
  5476.               PUT SKIP LIST( 'New Enclave RC is '
  5477.                  || Enclave_RC );
  5478.               END;
  5479.            ELSE  DO;
  5480.               DISPLAY( 'CEE3SRC failed with msg '
  5481.                  || FC.MsgNo );
  5482.               STOP;
  5483.               END;
  5484.            goto resume;
  5485.         end;
  5486.      /****************************************************/
  5487.      /* Call sdivide to cause a ZERODIVIDE condition.    */
  5488.      /****************************************************/
  5489.         call sdivide;
  5490.      resume:
  5491.         put skip edit('Enclave return code is ',
  5492.               Enclave_RC)  (A, F(10));
  5493.  
  5494.      /****************************************************/
  5495.      /* The sdivide routine causes a ZERODIVIDE condition*/
  5496.      /****************************************************/
  5497.      sdivide: proc;
  5498.         dcl int fixed bin (15,0);
  5499.         dcl int_2 fixed bin (15,0) init(5);
  5500.         dcl int_3 fixed bin (15,0) init(0);
  5501.         int = int_2 / int_3;
  5502.      end sdivide;
  5503.  
  5504.      End cesetrc;
  5505.  
  5506.  
  5507. ΓòÉΓòÉΓòÉ 3.3.6. CEE3GRN-Get Name of Routine that Incurred Condition ΓòÉΓòÉΓòÉ
  5508.  
  5509. CEE3GRN gets the name of the most current LE/370-conforming routine where a 
  5510. condition occurred. If there are nested conditions, the most recently signaled 
  5511. condition is used. 
  5512.  
  5513. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5514. Γöé                                                  Γöé
  5515. Γöé >>ΓöÇΓöÇCEE3GRNΓöÇΓöÇ(ΓöÇΓöÇnameΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  5516. Γöé                                                  Γöé
  5517. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5518.  
  5519. name (output) 
  5520.           VSTRING, a fixed-length 80-character string, that contains the name 
  5521.           of the routine that was executing when the condition was raised. name 
  5522.           is left-justified within the field and right-padded with blanks. If 
  5523.           there are nested conditions, the most recently activated condition is 
  5524.           used to determine name. 
  5525.  
  5526. fc (output) 
  5527.           A 12-byte feedback code, optional in some languages, that indicates 
  5528.           the result of this service. 
  5529.  
  5530.           The following symbolic conditions can result from this service: 
  5531.  
  5532.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5533.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  5534.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  5535.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5536.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  5537.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5538.                     Γöé CEE35S     Γöé 1        Γöé 3260      Γöé No condition was active when a call to a con-  Γöé
  5539.                     Γöé        Γöé         Γöé         Γöé dition management routine was made.       Γöé
  5540.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5541.  
  5542. Usage Note 
  5543.  
  5544.  OpenEdition MVS consideration-In multithread applications, CEE3GRN gets the 
  5545.   name of the routine that incurred the condition on the current thread. 
  5546.  
  5547. Examples 
  5548.  
  5549.  C/370 Example 
  5550.  
  5551.     /*COMPILATION UNIT: EDC3GRN   */
  5552.  
  5553.     #include <stdio.h>
  5554.     #include <string.h>
  5555.     #include <leawi.h>
  5556.     #include <ceeedcct.h>
  5557.  
  5558.     void handler(_FEEDBACK *,_INT4 *,_INT4 *,_FEEDBACK *);
  5559.  
  5560.     int main(void) {
  5561.  
  5562.       _FEEDBACK fc,condtok;
  5563.       _ENTRY routine;
  5564.       _INT4 token,qdata;
  5565.       _INT2 c_1,c_2,cond_case,sev,control;
  5566.       _CHAR3 facid;
  5567.       _INT4 isi;
  5568.  
  5569.      /* .
  5570.         .
  5571.         . */
  5572.       /* register condition handler */
  5573.       token = 99;
  5574.       routine.address = (_POINTER)&handler;
  5575.       routine.nesting = NULL;
  5576.       CEEHDLR(&routine,&token,&fc);
  5577.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  5578.          printf("CEEHDLR failed with message number %d\n",
  5579.                 fc.tok_msgno);
  5580.          exit (2999);
  5581.       }
  5582.  
  5583.      /* .
  5584.         .
  5585.         . */
  5586.  
  5587.       /* set up any condition sev 2 or higher */
  5588.       c_1 = 3;
  5589.       c_2 = 99;
  5590.       cond_case = 1;
  5591.       sev = 3;
  5592.       control = 0;
  5593.       memcpy(facid,"ZZZ",3);
  5594.       isi = 0;
  5595.  
  5596.       CEENCOD(&c_1,&c_2,&cond_case,&sev,&control,
  5597.               facid,&isi,&condtok,&fc);
  5598.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  5599.          printf("CEENCOD failed with message number %d\n",
  5600.                 fc.tok_msgno);
  5601.          exit(2999);
  5602.       }
  5603.  
  5604.       /* signal condition */
  5605.       CEESGL(&condtok,&qdata,&fc);
  5606.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  5607.          printf("CEESGL failed with message number %d\n",
  5608.                 fc.tok_msgno);
  5609.          exit (2999);
  5610.       }
  5611.     }
  5612.  
  5613.     void handler(_FEEDBACK *fc, _INT4 *token, _INT4 *result,
  5614.                  _FEEDBACK *newfc) {
  5615.  
  5616.        _CHAR80 name;
  5617.        _FEEDBACK grnfc;
  5618.  
  5619.        /* get name of the routine that signal the
  5620.        /* condition                                      */
  5621.        CEE3GRN(name,&grnfc);
  5622.       if ( _FBCHECK ( grnfc , CEE000 ) != 0 ) {
  5623.          printf("CEESGL failed with message number %d\n",
  5624.                 grnfc.tok_msgno);
  5625.          exit (2999);
  5626.       }
  5627.  
  5628.        printf("the routine that called this condition");
  5629.        printf(" handler is:\n %.80s\n",name);
  5630.        *result = 10;
  5631.        return;
  5632.     }
  5633.  
  5634.  COBOL/370 Example 
  5635.  
  5636.     CBL LIB,APOST,NOOPT
  5637.           *COMPILATION UNIT: IGZT3GRN
  5638.           *************************************************
  5639.           **                                             **
  5640.           ** DRV3GRN - Drive sample program for CEE3GRN. **
  5641.           **                                             **
  5642.           *************************************************
  5643.            IDENTIFICATION DIVISION.
  5644.            PROGRAM-ID. DRV3GRN.
  5645.            DATA DIVISION.
  5646.            WORKING-STORAGE SECTION.
  5647.            01  ROUTINE             PROCEDURE-POINTER.
  5648.            01  DENOMINATOR         PIC S9(9) COMP.
  5649.            01  NUMERATOR           PIC S9(9) COMP.
  5650.            01  RATIO               PIC S9(9) COMP.
  5651.            01  TOKEN               PIC S9(9) COMP VALUE 0.
  5652.            01  FC.
  5653.                02  Condition-Token-Value.
  5654.                COPY  CEEIGZCT.
  5655.                    03  Case-1-Condition-ID.
  5656.                        04  Severity        PIC S9(4) COMP.
  5657.                        04  Msg-No          PIC S9(4) COMP.
  5658.                    03  Case-2-Condition-ID
  5659.                              REDEFINES Case-1-Condition-ID.
  5660.                        04  Class-Code      PIC S9(4) COMP.
  5661.                        04  Cause-Code      PIC S9(4) COMP.
  5662.                    03  Case-Sev-Ctl    PIC X.
  5663.                    03  Facility-ID     PIC XXX.
  5664.                02  I-S-Info        PIC S9(9) COMP.
  5665.  
  5666.            PROCEDURE DIVISION.
  5667.  
  5668.            REGISTER-HANDLER.
  5669.           ** Register handler
  5670.                SET ROUTINE TO ENTRY 'CBL3GRN'.
  5671.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  5672.                IF  NOT CEE000 of FC  THEN
  5673.                    DISPLAY 'CEEHDLR failed with msg '
  5674.                        Msg-No of FC UPON CONSOLE;
  5675.                    STOP RUN;
  5676.                END-IF.
  5677.  
  5678.            RAISE-CONDITION.
  5679.           ** Cause a zero-divide condition.
  5680.                MOVE 0 TO DENOMINATOR.
  5681.                MOVE 1 TO NUMERATOR.
  5682.                DIVIDE NUMERATOR BY DENOMINATOR, GIVING RATIO.
  5683.  
  5684.            UNREGISTER-HANDLER.
  5685.           ** UNregister handler
  5686.                CALL 'CEEHDLU' USING ROUTINE , TOKEN , FC.
  5687.                IF NOT CEE000 of FC  THEN
  5688.                    DISPLAY 'CEEHDLU failed with msg '
  5689.                        Msg-No of FC UPON CONSOLE;
  5690.                END-IF.
  5691.                STOP RUN.
  5692.            END PROGRAM DRV3GRN.
  5693.  
  5694.           *COMPILATION UNIT: CBL3GRN
  5695.           **************************************************
  5696.           **                                              **
  5697.           ** Function: CEE3GRN - Get name of routine that **
  5698.           **                     incurred condition.      **
  5699.           **                                              **
  5700.           **************************************************
  5701.            IDENTIFICATION DIVISION.
  5702.            PROGRAM-ID. CBL3GRN.
  5703.            DATA DIVISION.
  5704.            WORKING-STORAGE SECTION.
  5705.            01  RNAME                   PIC X(80).
  5706.            01  FC.
  5707.                02  Condition-Token-Value.
  5708.                COPY  CEEIGZCT.
  5709.                    03  Case-1-Condition-ID.
  5710.                        04  Severity        PIC S9(4) COMP.
  5711.                        04  Msg-No          PIC S9(4) COMP.
  5712.                    03  Case-2-Condition-ID
  5713.                              REDEFINES Case-1-Condition-ID.
  5714.                        04  Class-Code      PIC S9(4) COMP.
  5715.                        04  Cause-Code      PIC S9(4) COMP.
  5716.                    03  Case-Sev-Ctl    PIC X.
  5717.                    03  Facility-ID     PIC XXX.
  5718.                02  I-S-Info        PIC S9(9) COMP.
  5719.            LINKAGE SECTION.
  5720.            01  TOKEN                   PIC S9(9) COMP.
  5721.            01  RESULT                  PIC S9(9) COMP.
  5722.                88 RESUME                   VALUE 10.
  5723.            01  CURCOND.
  5724.                02  Condition-Token-Value.
  5725.                COPY  CEEIGZCT.
  5726.                    03  Case-1-Condition-ID.
  5727.                        04  Severity        PIC S9(4) COMP.
  5728.                        04  Msg-No          PIC S9(4) COMP.
  5729.                    03  Case-2-Condition-ID
  5730.                              REDEFINES Case-1-Condition-ID.
  5731.                        04  Class-Code      PIC S9(4) COMP.
  5732.                        04  Cause-Code      PIC S9(4) COMP.
  5733.                    03  Case-Sev-Ctl    PIC X.
  5734.                    03  Facility-ID     PIC XXX.
  5735.                02  I-S-Info        PIC S9(9) COMP.
  5736.            01  NEWCOND.
  5737.                02  Condition-Token-Value.
  5738.                COPY  CEEIGZCT.
  5739.                    03  Case-1-Condition-ID.
  5740.                        04  Severity        PIC S9(4) COMP.
  5741.                        04  Msg-No          PIC S9(4) COMP.
  5742.                    03  Case-2-Condition-ID
  5743.                              REDEFINES Case-1-Condition-ID.
  5744.                        04  Class-Code      PIC S9(4) COMP.
  5745.                        04  Cause-Code      PIC S9(4) COMP.
  5746.                    03  Case-Sev-Ctl    PIC X.
  5747.                    03  Facility-ID     PIC XXX.
  5748.                02  I-S-Info        PIC S9(9) COMP.
  5749.  
  5750.            PROCEDURE DIVISION
  5751.                USING CURCOND, TOKEN, RESULT, NEWCOND.
  5752.            PARA-CBL3GRN.
  5753.                CALL 'CEE3GRN' USING RNAME , FC.
  5754.                IF  CEE000 of FC  THEN
  5755.                    DISPLAY 'Name of routine which '
  5756.                        'incurred the condition is:  ' RNAME;
  5757.                ELSE
  5758.                    DISPLAY 'CEE3GRN failed with msg '
  5759.                        Msg-No of FC UPON CONSOLE;
  5760.                    STOP RUN;
  5761.                END-IF.
  5762.  
  5763.            PARA-HANDLER.
  5764.           ** In user handler - resume execution
  5765.                SET RESUME TO TRUE.
  5766.                GOBACK.
  5767.  
  5768.            END PROGRAM CBL3GRN.
  5769.  
  5770.  PL/I Example 
  5771.  
  5772.     *PROCESS OPT(0), MACRO;
  5773.      /*COMPILATION UNIT: IBM3GRN
  5774.      /********************************************/
  5775.      /**                                        **/
  5776.      /** Function: CEE3GRN - example of CEE3GRN **/
  5777.      /**                     invoked from PL/I  **/
  5778.      /**                     ON-unit            **/
  5779.      /**                                        **/
  5780.      /********************************************/
  5781.  
  5782.      IBM3GRN:  PROCEDURE  OPTIONS(MAIN);
  5783.  
  5784.              %INCLUDE CEEIBMAW;
  5785.              %INCLUDE CEEIBMCT;
  5786.  
  5787.              DECLARE
  5788.                 RNAME       CHAR80,
  5789.                 01 FC       FEEDBACK,
  5790.                 divisor     FIXED BINARY(31) INITIAL(0);
  5791.  
  5792.              ON  ZERODIVIDE  BEGIN;
  5793.  
  5794.              /* Call CEE3GRN to get the name of the       */
  5795.              /* routine that incurred the most recently   */
  5796.              /* signaled condition                        */
  5797.                 CALL CEE3GRN ( RNAME, FC );
  5798.                 IF  FBCHECK( FC, CEE000)  THEN  DO;
  5799.                    PUT SKIP LIST( 'The most recently signaled'
  5800.                       || 'condition incurred by' || RNAME );
  5801.                    END;
  5802.                 ELSE  DO;
  5803.                    DISPLAY( 'CEE3GRN failed with msg '
  5804.                       || FC.MsgNo );
  5805.                    END;
  5806.  
  5807.                 END /* ON ZeroDivide */;
  5808.  
  5809.  
  5810.              divisor = 15 / divisor /* signal ZERODIVIDE */;
  5811.  
  5812.      END IBM3GRN;
  5813.  
  5814.  
  5815. ΓòÉΓòÉΓòÉ 3.3.7. CEE3LNG-Set National Language ΓòÉΓòÉΓòÉ
  5816.  
  5817. CEE3LNG sets or queries the current national language. The national language is 
  5818. recorded on a LIFO national language stack. Changing the national language 
  5819. changes the languages in which error messages are displayed and printed, and of 
  5820. the names of the days of the week, and the names of the months. 
  5821.  
  5822. More than one national language can be PUSHed. Languages are POPped in LIFO 
  5823. order. Message modules associated with a national language are not loaded until 
  5824. they are actually needed in order to format a message. 
  5825.  
  5826. If you specify a national_language not available on your system, the 
  5827. IBM-supplied default national_language is used. In LE/370, this is ENU 
  5828. (mixed-case U.S. English). CEEUOPT and CEEDOPT can specify an unknown national 
  5829. language code. They give a return code of 4 and a warning message. If an 
  5830. invalid language is specified, the IBM-supplied default ENU (mixed-case U.S. 
  5831. English) is used. 
  5832.  
  5833. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5834. Γöé                                                  Γöé
  5835. Γöé >>ΓöÇΓöÇCEE3LNGΓöÇΓöÇ(ΓöÇΓöÇfunctionΓöÇΓöÇ,ΓöÇΓöÇdesired_languageΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  5836. Γöé                                                  Γöé
  5837. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5838.  
  5839. function (input) 
  5840.           A fullword binary integer that specifies the service to perform. The 
  5841.           possible values for function are: 
  5842.  
  5843.    1-SET     Establishes the desired_language specified in the call to CEE3LNG 
  5844.              as the current language. In effect, it replaces the current 
  5845.              language on the top of the stack with the desired_language that 
  5846.              you specify. 
  5847.  
  5848.              When setting the national language, the desired_language is folded 
  5849.              to uppercase. "enu" and "ENU", for example, are considered to be 
  5850.              the same national language. 
  5851.  
  5852.    2-QUERY   Identifies the current language on the top of the stack to the 
  5853.              calling routine by returning it in the desired_language parameter 
  5854.              of CEE3LNG. The desired_language retained as the result of the 
  5855.              QUERY function is in uppercase. 
  5856.  
  5857.    3-PUSH    Pushes the desired_language specified in the call to CEE3LNG on to 
  5858.              the top of the language stack, making it the current language. 
  5859.              Previous languages are retained on the stack on a LIFO basis, 
  5860.              making it possible to return to a prior language at a later time. 
  5861.  
  5862.    4-POP     Pops the current language off the stack. The previous language 
  5863.              that was PUSHed on to the stack now becomes the new current 
  5864.              language. Upon return to the caller, the desired_language 
  5865.              parameter contains the discarded language. If the stack contains 
  5866.              only one language and would be empty after the call, no action is 
  5867.              taken and a feedback code indicating such is returned. 
  5868.  
  5869. desired_language (input/output) 
  5870.           A 3-character fixed-length string. The string is not case-sensitive 
  5871.           and is used in the following ways for different functions: 
  5872.  
  5873.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5874.                     Γöé If function is   Γöé Then desired_language:                            Γöé
  5875.                     Γöé specified as:   Γöé                                        Γöé
  5876.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5877.                     Γöé 1 or 3       Γöé Contains the desired national language identification.  In this case, it is  Γöé
  5878.                     Γöé          Γöé an input parameter.  National Language Codes contains a list of national   Γöé
  5879.                     Γöé          Γöé language identifiers.                             Γöé
  5880.                     Γöé          Γöé                                        Γöé
  5881.                     Γöé          Γöé NOTE:  LE/370 supports only these national languages:             Γöé
  5882.                     Γöé          Γöé                                        Γöé
  5883.                     Γöé          Γöé     ENU   Mixed-case U.S. English                    Γöé
  5884.                     Γöé          Γöé                                        Γöé
  5885.                     Γöé          Γöé     UEN   Uppercase U.S. English                     Γöé
  5886.                     Γöé          Γöé                                        Γöé
  5887.                     Γöé          Γöé     JPN   Japanese.                           Γöé
  5888.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5889.                     Γöé 2         Γöé Returns the current language on top of the stack.  In this case, it is an   Γöé
  5890.                     Γöé          Γöé output parameter.                               Γöé
  5891.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5892.                     Γöé 4         Γöé Returns the discarded national language.  In this case, it is an output    Γöé
  5893.                     Γöé          Γöé parameter.                                  Γöé
  5894.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5895.  
  5896. fc (output) 
  5897.           A 12-byte feedback code, optional in some languages, that indicates 
  5898.           the result of this service. 
  5899.  
  5900.           The following symbolic conditions can result from this service: 
  5901.  
  5902.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5903.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  5904.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  5905.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5906.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  5907.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5908.                     Γöé CEE3BQ     Γöé 2        Γöé 3450      Γöé Only one language was on the stack when a POP  Γöé
  5909.                     Γöé        Γöé         Γöé         Γöé request was made to CEE3LNG.  The current lan- Γöé
  5910.                     Γöé        Γöé         Γöé         Γöé guage was returned in the desired language   Γöé
  5911.                     Γöé        Γöé         Γöé         Γöé parameter.                   Γöé
  5912.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5913.                     Γöé CEE3BR     Γöé 3        Γöé 3451      Γöé The desired language desired-language for the  Γöé
  5914.                     Γöé        Γöé         Γöé         Γöé PUSH or SET function for CEE3LNG was invalid.  Γöé
  5915.                     Γöé        Γöé         Γöé         Γöé No operation was performed.           Γöé
  5916.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5917.                     Γöé CEE3BS     Γöé 3        Γöé 3452      Γöé The function function specified for CEE3LNG   Γöé
  5918.                     Γöé        Γöé         Γöé         Γöé was not recognized.  No operation was per-   Γöé
  5919.                     Γöé        Γöé         Γöé         Γöé formed.                     Γöé
  5920.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5921.  
  5922. Usage Notes 
  5923.  
  5924.  C/370 considerations-C/370 provides locales that map to German, Spanish, 
  5925.   French, U.S. English, and other languages. These locales establish default 
  5926.   formats for items such as currency symbols, and names of the days of the 
  5927.   week. To change the locale, you use the setlocale() library function. 
  5928.  
  5929.   The settings of setlocale() and the CEE3LNG run-time option do not affect one 
  5930.   another. CEE3LNG affects only LE/370 services and error messages; setlocale() 
  5931.   affects only C/370 functions. 
  5932.  
  5933.   To ensure that everything is set properly for your country, use both CEE3LNG 
  5934.   and setlocale(). 
  5935.  
  5936.  OpenEdition MVS consideration-CEE3LNG applies to the enclave. Each enclave 
  5937.   has a single current national language setting. 
  5938.  
  5939. Examples 
  5940.  
  5941.  C/370 Example 
  5942.  
  5943.     /*COMPILATION UNIT: EDC3LNG   */
  5944.  
  5945.     #include <stdio.h>
  5946.     #include <string.h>
  5947.     #include <leawi.h>
  5948.     #include <ceeedcct.h>
  5949.  
  5950.     int main(void) {
  5951.  
  5952.       _FEEDBACK fc;
  5953.       _INT4 function;
  5954.       _CHAR3 lang;
  5955.  
  5956.       /* Query the current language setting */
  5957.       function = 2; /* function 2 is query */
  5958.       CEE3LNG(&function,lang,&fc);
  5959.  
  5960.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  5961.          printf("CEE3LNG failed with message number %d\n",
  5962.                 fc.tok_msgno);
  5963.          exit(2999);
  5964.       }
  5965.  
  5966.       /* if the current language is not mixed-case */
  5967.       /* American English set the current language to */
  5968.       /* mixed-case American English */
  5969.       if (memcmp(lang,"ENU",3) != 0) {
  5970.          memcpy(lang,"ENU",3);
  5971.          function = 1; /* function 1 is set */
  5972.          CEE3LNG(&function,lang,&fc);
  5973.          if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  5974.             printf("CEE3LNG failed with message number %d\n",
  5975.                    fc.tok_msgno);
  5976.             exit(2999);
  5977.          }
  5978.       }
  5979.     }
  5980.  
  5981.  COBOL/370 Example 
  5982.  
  5983.     CBL LIB,APOST
  5984.           *COMPILATION UNIT: IGZT3LNG
  5985.           *************************************************
  5986.           **                                             **
  5987.           ** Function: CEE3LNG - Set national language   **
  5988.           **                                             **
  5989.           ** In this example, CEE3LNG is called to query **
  5990.           ** the current national language setting. If   **
  5991.           ** the setting is not mixed-case U.S. English, **
  5992.           ** CEE3LNG is called to change the setting.    **
  5993.           **                                             **
  5994.           *************************************************
  5995.            IDENTIFICATION DIVISION.
  5996.            PROGRAM-ID. CBL3LNG.
  5997.            DATA DIVISION.
  5998.            WORKING-STORAGE SECTION.
  5999.            01  FUNCTN                  PIC S9(9) COMP.
  6000.            01  LANG                    PIC X(3).
  6001.            01  FC.
  6002.                02  Condition-Token-Value.
  6003.                COPY  CEEIGZCT.
  6004.                    03  Case-1-Condition-ID.
  6005.                        04  Severity        PIC S9(4) COMP.
  6006.                        04  Msg-No          PIC S9(4) COMP.
  6007.                    03  Case-2-Condition-ID
  6008.                              REDEFINES Case-1-Condition-ID.
  6009.                        04  Class-Code      PIC S9(4) COMP.
  6010.                        04  Cause-Code      PIC S9(4) COMP.
  6011.                    03  Case-Sev-Ctl    PIC X.
  6012.                    03  Facility-ID     PIC XXX.
  6013.                02  I-S-Info        PIC S9(9) COMP.
  6014.  
  6015.            PROCEDURE DIVISION.
  6016.  
  6017.            PARA-3LNGQRY.
  6018.           ** Specify 2 for QUERY function.
  6019.           ** Call CEE3LNG to query the current
  6020.           **     national language setting
  6021.                MOVE 2 TO FUNCTN.
  6022.                CALL 'CEE3LNG' USING FUNCTN , LANG , FC.
  6023.                IF CEE000 of FC  THEN
  6024.                    DISPLAY 'Current National Language is: '
  6025.                        LANG;
  6026.                ELSE
  6027.                    DISPLAY 'CEE3LNG(query) failed with msg '
  6028.                        Msg-No of FC UPON CONSOLE;
  6029.                    STOP RUN;
  6030.                END-IF.
  6031.  
  6032.            PARA-3LNGSET.
  6033.           ** If the current national language is not
  6034.           **     mixed-case U.S. English, then call
  6035.           **     CEE3LNG with the SET function (1) to
  6036.           **     change the national language to mixed-case
  6037.           **     U.S. English
  6038.                IF ( LANG IS NOT  = 'ENU' )  THEN
  6039.                    MOVE 1 TO FUNCTN
  6040.                    CALL 'CEE3LNG' USING FUNCTN , LANG , FC
  6041.                    IF NOT CEE000 of FC  THEN
  6042.                        DISPLAY 'CEE3LNG(set) failed with msg '
  6043.                            Msg-No of FC UPON CONSOLE;
  6044.                        STOP RUN;
  6045.                    END-IF;
  6046.                    DISPLAY 'The national language has ',
  6047.                        'been changed to mixed-case '
  6048.                        'U.S. English (ENU).'
  6049.                END-IF.
  6050.                GOBACK.
  6051.  
  6052.  PL/I Example 
  6053.  
  6054.     *PROCESS MACRO;
  6055.      /*COMPILATION UNIT: IBM3LNG
  6056.      /****************************************************/
  6057.      /**                                                 */
  6058.      /** Function: CEE3LNG - set national language       */
  6059.      /**                                                 */
  6060.      /** In this example, CEE3LNG is called to query the */
  6061.      /** current national language setting.  If the      */
  6062.      /** setting is not mixed case American English,     */
  6063.      /** CEE3LNMG is called to change the setting to that*/
  6064.      /**                                                 */
  6065.      /****************************************************/
  6066.      PLI3LNG: PROC OPTIONS(MAIN);
  6067.  
  6068.         %INCLUDE  CEEIBMAW;
  6069.         %INCLUDE  CEEIBMCT;
  6070.  
  6071.         DCL FUNCTN  INT4;
  6072.         DCL LANG    CHARACTER ( 3 );
  6073.         DCL 01 FC   FEEDBACK;
  6074.  
  6075.         FUNCTN = 2; /* Specify code to query current     */
  6076.                     /* national language                 */
  6077.  
  6078.         /* Call CEE3LNG with function code 2 to query    */
  6079.         /*    national language                          */
  6080.         CALL CEE3LNG ( FUNCTN, LANG, FC );
  6081.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  6082.            PUT SKIP LIST('The current national language is '
  6083.               || LANG );
  6084.            END;
  6085.         ELSE  DO;
  6086.            DISPLAY( 'CEE3LNG failed with msg ' || FC.MsgNo );
  6087.            STOP;
  6088.            END;
  6089.  
  6090.         /* If the current language is not mixed-case     */
  6091.         /*    American English, set it to mixed-case     */
  6092.         /*    American English                           */
  6093.         IF  LANG ╨║=  'ENU'  THEN DO;
  6094.            FUNCTN = 1;
  6095.            CALL CEE3LNG ( FUNCTN, 'ENU', FC);
  6096.            IF  ╨║ FBCHECK( FC, CEE000)  THEN  DO;
  6097.               DISPLAY( 'CEE3LNG failed with msg '
  6098.                  || FC.MsgNo );
  6099.               STOP;
  6100.               END;
  6101.            CALL CEE3LNG ( 2, LANG, FC);
  6102.            IF  FBCHECK( FC, CEE000)  THEN  DO;
  6103.               PUT SKIP LIST('The national language is now '
  6104.                  || LANG );
  6105.               END;
  6106.            ELSE  DO;
  6107.               DISPLAY( 'CEE3LNG failed with msg '
  6108.                  || FC.MsgNo );
  6109.               STOP;
  6110.               END;
  6111.  
  6112.            END /* Language is not ENU */;
  6113.  
  6114.      END PLI3LNG;
  6115.  
  6116. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6117. Γöé Table 15. National Language Codes                                 Γöé
  6118. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6119. Γöé ID                        Γöé NATIONAL LANGUAGE                Γöé
  6120. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6121. Γöé AFR                       Γöé Afrikaans                    Γöé
  6122. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6123. Γöé ARA                       Γöé Arab Countries                 Γöé
  6124. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6125. Γöé BGR                       Γöé Bulgarian                    Γöé
  6126. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6127. Γöé CAT                       Γöé Catalan                     Γöé
  6128. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6129. Γöé CHT                       Γöé Traditional Chinese               Γöé
  6130. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6131. Γöé CHS                       Γöé Simplified Chinese               Γöé
  6132. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6133. Γöé CSY                       Γöé Czech                      Γöé
  6134. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6135. Γöé DAN                       Γöé Danish                     Γöé
  6136. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6137. Γöé DEU                       Γöé German                     Γöé
  6138. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6139. Γöé DES                       Γöé Swiss German                  Γöé
  6140. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6141. Γöé ELL                       Γöé Greek                      Γöé
  6142. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6143. Γöé ENG                       Γöé U.K. English                  Γöé
  6144. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6145. Γöé ENU                       Γöé U.S. English                  Γöé
  6146. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6147. Γöé ESP                       Γöé Spanish                     Γöé
  6148. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6149. Γöé FIN                       Γöé Finnish                     Γöé
  6150. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6151. Γöé FRA                       Γöé French                     Γöé
  6152. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6153. Γöé FRB                       Γöé Belgian French                 Γöé
  6154. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6155. Γöé FRC                       Γöé Canadian French                 Γöé
  6156. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6157. Γöé FRS                       Γöé Swiss French                  Γöé
  6158. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6159. Γöé HEB                       Γöé Hebrew                     Γöé
  6160. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6161. Γöé HUN                       Γöé Hungarian                    Γöé
  6162. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6163. Γöé ISL                       Γöé Icelandic                    Γöé
  6164. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6165. Γöé ITA                       Γöé Italian                     Γöé
  6166. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6167. Γöé ITS                       Γöé Swiss Italian                  Γöé
  6168. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6169. Γöé JPN                       Γöé Japanese                    Γöé
  6170. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6171. Γöé KOR                       Γöé Korean                     Γöé
  6172. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6173. Γöé NLD                       Γöé Dutch                      Γöé
  6174. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6175. Γöé NLB                       Γöé Belgian Dutch                  Γöé
  6176. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6177. Γöé NOR                       Γöé Norwegian - Bokmal               Γöé
  6178. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6179. Γöé NON                       Γöé Norwegian - Nynorsk               Γöé
  6180. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6181. Γöé PLK                       Γöé Polish                     Γöé
  6182. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6183. Γöé PTG                       Γöé Portuguese                   Γöé
  6184. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6185. Γöé PTB                       Γöé Brazilian Portuguese              Γöé
  6186. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6187. Γöé RMS                       Γöé Rhaeto-Romanic                 Γöé
  6188. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6189. Γöé ROM                       Γöé Romanian                    Γöé
  6190. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6191. Γöé RUS                       Γöé Russian                     Γöé
  6192. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6193. Γöé SHC                       Γöé Serbo-Croatian (Cyrillic)            Γöé
  6194. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6195. Γöé SHL                       Γöé Serbo-Croatian (Latin)             Γöé
  6196. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6197. Γöé SKY                       Γöé Slovakian                    Γöé
  6198. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6199. Γöé SQI                       Γöé Albanian                    Γöé
  6200. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6201. Γöé SVE                       Γöé Swedish                     Γöé
  6202. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6203. Γöé THA                       Γöé Thai                      Γöé
  6204. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6205. Γöé TRK                       Γöé Turkish                     Γöé
  6206. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6207. Γöé UEN                       Γöé U.S. Uppercase English             Γöé
  6208. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6209. Γöé URD                       Γöé Urdu                      Γöé
  6210. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6211. Γöé                                                  Γöé
  6212. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6213.  
  6214.  
  6215. ΓòÉΓòÉΓòÉ 3.3.8. CEE3MCS-Get Default Currency Symbol ΓòÉΓòÉΓòÉ
  6216.  
  6217. CEE3MCS returns the default currency symbol for the country you specify with 
  6218. country_code. 
  6219.  
  6220. If you specify an invalid country_code, the default currency symbol is X'9F40'. 
  6221. In the United States, it is shown as a '$'followed by three blanks. For a list 
  6222. of the default settings for a specified country, see Defaults Currency and 
  6223. Picture Strings Based on COUNTRY Setting. 
  6224.  
  6225. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6226. Γöé                                                  Γöé
  6227. Γöé >>ΓöÇΓöÇCEE3MCSΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇcurrency_symbolΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  6228. Γöé                                                  Γöé
  6229. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6230.  
  6231. country_code (input) 
  6232.           A 2-character fixed-length string representing one of the country 
  6233.           codes found in Defaults Currency and Picture Strings Based on COUNTRY 
  6234.           Setting. 
  6235.  
  6236.           country_code is not case-sensitive. If no value is specified, the 
  6237.           default country code, as set by the COUNTRY run-time option or the 
  6238.           CEE3CTY callable service, is used. See COUNTRY for an explanation of 
  6239.           the COUNTRY run-time option and CEE3CTY-Set Default Country for an 
  6240.           explanation of the CEE3CTY callable service. 
  6241.  
  6242. currency_symbol (output) 
  6243.           A 4-character fixed-length string returned to the calling routine. It 
  6244.           contains the default currency symbol for the country specified. The 
  6245.           currency symbol is left-justified and padded on the right with 
  6246.           blanks, if necessary. 
  6247.  
  6248. fc (output) 
  6249.           A feedback code, optional in some languages, that indicates the 
  6250.           result of this service. 
  6251.  
  6252.           The following symbolic conditions can result from this service: 
  6253.  
  6254.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6255.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  6256.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  6257.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6258.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  6259.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6260.                     Γöé CEE3C6     Γöé 2        Γöé 3462      Γöé The currency symbol 'currency-symbol' was    Γöé
  6261.                     Γöé        Γöé         Γöé         Γöé truncated and was not defined in CEE3MCS.    Γöé
  6262.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6263.                     Γöé CEE3C7     Γöé 2        Γöé 3463      Γöé The country code country-code was invalid for  Γöé
  6264.                     Γöé        Γöé         Γöé         Γöé CEE3MCS.  The default currency symbol      Γöé
  6265.                     Γöé        Γöé         Γöé         Γöé 'currency-symbol' was returned.         Γöé
  6266.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6267.  
  6268. Usage Note 
  6269.  
  6270.  OpenEdition MVS considerations-CEE3MCS applies to the enclave. Every enclave 
  6271.   has a single current country setting that has a single currency symbol. Every 
  6272.   thread in every enclave has the same default. 
  6273.  
  6274. Examples 
  6275.  
  6276.  C/370 Example 
  6277.  
  6278.     /*COMPILATION UNIT: EDC3MCS   */
  6279.  
  6280.     #include <stdio.h>
  6281.     #include <string.h>
  6282.     #include <leawi.h>
  6283.     #include <ceeedcct.h>
  6284.  
  6285.     int main(void) {
  6286.  
  6287.        _FEEDBACK fc;
  6288.        _CHAR2 country,currency;
  6289.  
  6290.        /* get the default currency symbol for Canada */
  6291.        memcpy(country,"CA",2);
  6292.        CEE3MCS(country,currency,&fc);
  6293.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  6294.           printf("CEE3MCS failed with message number %d\n",
  6295.                  fc.tok_msgno);
  6296.           exit(2999);
  6297.        }
  6298.        printf("The default currency symbol for Canada is:"
  6299.               " %.2s\n",currency);
  6300.     }
  6301.  
  6302.  COBOL/370 Example 
  6303.  
  6304.     CBL LIB,APOST
  6305.           *COMPILATION UNIT: IGZT3MCS
  6306.           **************************************************
  6307.           **                                              **
  6308.           ** FUNCTION: CEE3MCS - Obtain default currency  **
  6309.           **           symbol                             **
  6310.           **                                              **
  6311.           **************************************************
  6312.            IDENTIFICATION DIVISION.
  6313.            PROGRAM-ID. CBL3MCS.
  6314.            DATA DIVISION.
  6315.            WORKING-STORAGE SECTION.
  6316.            01  COUNTRY                 PIC X(2).
  6317.            01  CURSYM                  PIC X(2).
  6318.            01  FC.
  6319.                02  Condition-Token-Value.
  6320.                COPY  CEEIGZCT.
  6321.                    03  Case-1-Condition-ID.
  6322.                        04  Severity        PIC S9(4) COMP.
  6323.                        04  Msg-No          PIC S9(4) COMP.
  6324.                    03  Case-2-Condition-ID
  6325.                              REDEFINES Case-1-Condition-ID.
  6326.                        04  Class-Code      PIC S9(4) COMP.
  6327.                        04  Cause-Code      PIC S9(4) COMP.
  6328.                    03  Case-Sev-Ctl    PIC X.
  6329.                    03  Facility-ID     PIC XXX.
  6330.                02  I-S-Info        PIC S9(9) COMP.
  6331.  
  6332.            PROCEDURE DIVISION.
  6333.  
  6334.            PARA-CBL3MCS.
  6335.           ** Specify country code for the US in the call
  6336.           **     to CEE3MCS
  6337.                MOVE 'US' TO COUNTRY.
  6338.                CALL 'CEE3MCS' USING COUNTRY , CURSYM , FC.
  6339.  
  6340.           ** If CEE3MCS runs successfully, display result.
  6341.                IF CEE000 of FC  THEN
  6342.                    DISPLAY 'The default currency symbol '
  6343.                        'for the ' COUNTRY ' is: ' CURSYM
  6344.                ELSE
  6345.                    DISPLAY 'CEE3MCS failed with msg '
  6346.                        Msg-No of FC UPON CONSOLE;
  6347.                    STOP RUN;
  6348.                END-IF.
  6349.  
  6350.                GOBACK.
  6351.  
  6352.  PL/I Example 
  6353.  
  6354.     *PROCESS MACRO;
  6355.      /*COMPILATION UNIT: IBM3MCS                         */
  6356.      /****************************************************/
  6357.      /**                                                 */
  6358.      /** Function: CEE3MCS - Obtain default currency     */
  6359.      /**                     symbol                      */
  6360.      /**                                                 */
  6361.      /****************************************************/
  6362.      PLI3MCS: PROC OPTIONS(MAIN);
  6363.  
  6364.         %INCLUDE  CEEIBMAW;
  6365.         %INCLUDE  CEEIBMCT;
  6366.         DCL COUNTRY  CHARACTER ( 2 );
  6367.         DCL CURSYM   CHARACTER ( 4 );
  6368.         DCL 01 FC    FEEDBACK;
  6369.  
  6370.         COUNTRY = 'US'; /* Specify country code for the  */
  6371.                         /* United States                 */
  6372.  
  6373.         /* Call CEE3MCS to return currency symbol for    */
  6374.         /*    the United States                          */
  6375.         CALL CEE3MCS ( COUNTRY, CURSYM, FC );
  6376.  
  6377.         /* Print the default currency symbol for the US  */
  6378.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  6379.            PUT SKIP LIST(
  6380.               'The default currency symbol for the '
  6381.               || COUNTRY || ' is "' || CURSYM || '"');
  6382.            END;
  6383.         ELSE  DO;
  6384.            DISPLAY( 'CEE3MCS failed with msg '
  6385.               || FC.MsgNo );
  6386.            STOP;
  6387.            END;
  6388.  
  6389.      END PLI3MCS;
  6390.  
  6391.  
  6392. ΓòÉΓòÉΓòÉ 3.3.9. CEE3MDS-Get Default Decimal Separator ΓòÉΓòÉΓòÉ
  6393.  
  6394. CEE3MDS returns the default decimal separator for the country specified by 
  6395. country_code. 
  6396.  
  6397. If you specify an invalid country_code, the default decimal separator is a 
  6398. period (.). For a list of the default settings for a specified country, see 
  6399. Defaults Currency and Picture Strings Based on COUNTRY Setting. 
  6400.  
  6401. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6402. Γöé                                                  Γöé
  6403. Γöé >>ΓöÇΓöÇCEE3MDSΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇdecimal_separatorΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  6404. Γöé                                                  Γöé
  6405. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6406.  
  6407. country_code (input) 
  6408.           A 2-character fixed-length string representing one of the country 
  6409.           codes found in Defaults Currency and Picture Strings Based on COUNTRY 
  6410.           Setting. 
  6411.  
  6412.           country_code is not case-sensitive. If no value is specified, the 
  6413.           default country code, as set by the COUNTRY run-time option or the 
  6414.           CEE3CTY callable service, is used. See COUNTRY for an explanation of 
  6415.           the COUNTRY run-time option and CEE3CTY-Set Default Country for an 
  6416.           explanation of the CEE3CTY callable service. 
  6417.  
  6418. decimal_separator (output) 
  6419.           A 2-character fixed-length string containing the default decimal 
  6420.           separator for the country specified. The decimal separator is 
  6421.           left-justified and padded on the right with a blank. 
  6422.  
  6423. fc (output) 
  6424.           A 12-byte feedback code, optional in some languages, indicating the 
  6425.           service result. 
  6426.  
  6427.           The following symbolic conditions can result from this service: 
  6428.  
  6429.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6430.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  6431.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  6432.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6433.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  6434.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6435.                     Γöé CEE3C4     Γöé 2        Γöé 3460      Γöé The decimal separator 'decimal-separator' was  Γöé
  6436.                     Γöé        Γöé         Γöé         Γöé truncated and was not defined in CEE3MDS.    Γöé
  6437.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6438.                     Γöé CEE3C5     Γöé 2        Γöé 3461      Γöé The country code country-code was invalid for  Γöé
  6439.                     Γöé        Γöé         Γöé         Γöé CEE3MDS.  The default decimal separator     Γöé
  6440.                     Γöé        Γöé         Γöé         Γöé 'decimal-separator' was returned.        Γöé
  6441.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6442.  
  6443.  
  6444.  
  6445. Usage Note 
  6446.  
  6447.  OpenEdition MVS considerations-CEE3MDS applies to the enclave. Every enclave 
  6448.   has a single current country setting that has a single decimal separator. 
  6449.   Every thread in every enclave has the same default. 
  6450.  
  6451. Examples 
  6452.  
  6453.  C/370 Example 
  6454.  
  6455.     /*COMPILATION UNIT: EDC3MDS   */
  6456.  
  6457.     #include <stdio.h>
  6458.     #include <string.h>
  6459.     #include <leawi.h>
  6460.     #include <ceeedcct.h>
  6461.  
  6462.     int main(void) {
  6463.  
  6464.        _FEEDBACK fc;
  6465.        _CHAR2 country,decimal;
  6466.  
  6467.        /* get the default decimal separator for Canada */
  6468.        memcpy(country,"CA",2);
  6469.        CEE3MDS(country,decimal,&fc);
  6470.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  6471.           printf("CEE3MDS failed with message number %d\n",
  6472.                  fc.tok_msgno);
  6473.           exit(2999);
  6474.        }
  6475.        /* print out the default decimal separator */
  6476.        printf("The default decimal separator for");
  6477.        printf(" Canada is: %.2s\n",decimal);
  6478.     }
  6479.  
  6480.  COBOL/370 Example 
  6481.  
  6482.     CBL LIB,APOST
  6483.           *COMPILATION UNIT: IGZT3MDS
  6484.           *********************************************
  6485.           **                                         **
  6486.           ** Function: CEE3MDS - get default decimal **
  6487.           ** separator                               **
  6488.           **                                         **
  6489.           *********************************************
  6490.            IDENTIFICATION DIVISION.
  6491.            PROGRAM-ID. CBL3MDS.
  6492.            DATA DIVISION.
  6493.            WORKING-STORAGE SECTION.
  6494.            01  COUNTRY                 PIC X(2).
  6495.            01  DECSEP                  PIC X(2).
  6496.            01  FC.
  6497.                02  Condition-Token-Value.
  6498.                COPY  CEEIGZCT.
  6499.                    03  Case-1-Condition-ID.
  6500.                        04  Severity        PIC S9(4) COMP.
  6501.                        04  Msg-No          PIC S9(4) COMP.
  6502.                    03  Case-2-Condition-ID
  6503.                              REDEFINES Case-1-Condition-ID.
  6504.                        04  Class-Code      PIC S9(4) COMP.
  6505.                        04  Cause-Code      PIC S9(4) COMP.
  6506.                    03  Case-Sev-Ctl    PIC X.
  6507.                    03  Facility-ID     PIC XXX.
  6508.                02  I-S-Info        PIC S9(9) COMP.
  6509.  
  6510.            PROCEDURE DIVISION.
  6511.  
  6512.           ** Specify the country code for the US in the
  6513.           **     call to CEE3MDS.
  6514.           ** If call was successful, print result.
  6515.            PARA-CBL3MDS.
  6516.                MOVE 'US' TO COUNTRY.
  6517.                CALL 'CEE3MDS' USING COUNTRY , DECSEP , FC.
  6518.                IF CEE000 of FC  THEN
  6519.                    DISPLAY 'The default Decimal Separator '
  6520.                        'for ' COUNTRY ' is "' DECSEP '"'
  6521.                ELSE
  6522.                    DISPLAY 'CEE3MDS failed with msg '
  6523.                        Msg-No of FC UPON CONSOLE;
  6524.                    STOP RUN;
  6525.                END-IF.
  6526.  
  6527.                GOBACK.
  6528.  
  6529.  PL/I Example 
  6530.  
  6531.     *PROCESS MACRO;
  6532.      /*COMPILATION UNIT: IBM3MDS                       */
  6533.      /**************************************************/
  6534.      /**                                               */
  6535.      /** Function: CEE3MDS - get default decimal       */
  6536.      /**           separator                           */
  6537.      /**************************************************/
  6538.      PLI3MDS: PROC OPTIONS(MAIN);
  6539.  
  6540.         %INCLUDE  CEEIBMAW;
  6541.         %INCLUDE  CEEIBMCT;
  6542.  
  6543.         DCL COUNTRY  CHARACTER ( 2 );
  6544.         DCL DECSEP   CHARACTER ( 2 );
  6545.         DCL 01 FC    FEEDBACK;
  6546.  
  6547.         COUNTRY = 'US';   /* Specify country code for  */
  6548.                           /* the United States         */
  6549.  
  6550.         /* Call CEE3MDS to get default decimal         */
  6551.         /*    separator for the US                     */
  6552.         CALL CEE3MDS ( COUNTRY, DECSEP, FC );
  6553.  
  6554.         /*     Print the default decimal separator for */
  6555.         /* the US             */
  6556.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  6557.            PUT SKIP LIST(
  6558.               'The default decimal separator for the '
  6559.               || COUNTRY || ' is "' || DECSEP || '"' );
  6560.            END;
  6561.         ELSE  DO;
  6562.            DISPLAY( 'CEE3MDS failed with msg '
  6563.               || FC.MsgNo );
  6564.            STOP;
  6565.            END;
  6566.  
  6567.      END PLI3MDS;
  6568.  
  6569.  
  6570. ΓòÉΓòÉΓòÉ 3.3.10. CEE3MTS-Get Default Thousands Separator ΓòÉΓòÉΓòÉ
  6571.  
  6572. CEE3MTS returns the default thousands separator for the specified country with 
  6573. country_code. 
  6574.  
  6575. If you specify an invalid country_code, the default thousands separator is a 
  6576. comma (,). For a list of the default settings for a specified country, see 
  6577. Defaults Currency and Picture Strings Based on COUNTRY Setting. 
  6578.  
  6579. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6580. Γöé                                                  Γöé
  6581. Γöé >>ΓöÇΓöÇCEE3MTSΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇthousands_separatorΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  6582. Γöé                                                  Γöé
  6583. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6584.  
  6585. country_code (input) 
  6586.           A 2-character fixed-length string representing one of the country 
  6587.           codes found in Defaults Currency and Picture Strings Based on COUNTRY 
  6588.           Setting. 
  6589.  
  6590.           country_code is not case-sensitive. If no value is specified, the 
  6591.           default country code, as set by the COUNTRY run-time option or the 
  6592.           CEE3CTY callable service, is used. See COUNTRY for an explanation of 
  6593.           the COUNTRY run-time option, and CEE3CTY-Set Default Country for an 
  6594.           explanation of the CEE3CTY callable service. 
  6595.  
  6596. thousands_separator (output) 
  6597.           A 2-character fixed-length string representing the default thousands 
  6598.           separator for the country specified. The thousands separator is 
  6599.           left-justified and padded on the right with a blank. 
  6600.  
  6601. fc (output) 
  6602.           A 12-byte feedback code, optional in some languages, that indicates 
  6603.           the result of this service. 
  6604.  
  6605.           The following symbolic conditions can result from this service: 
  6606.  
  6607.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6608.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  6609.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  6610.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6611.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  6612.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6613.                     Γöé CEE3C8     Γöé 2        Γöé 3464      Γöé The thousands separator 'thousands-separator'  Γöé
  6614.                     Γöé        Γöé         Γöé         Γöé was truncated and was not defined in CEE3MTS.  Γöé
  6615.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6616.                     Γöé CEE3C9     Γöé 2        Γöé 3465      Γöé The country code country-code was invalid for  Γöé
  6617.                     Γöé        Γöé         Γöé         Γöé CEE3MTS.  The default thousands separator    Γöé
  6618.                     Γöé        Γöé         Γöé         Γöé 'thousands-separator' was returned.       Γöé
  6619.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6620.  
  6621. Usage Note 
  6622.  
  6623.  OpenEdition MVS considerations-CEE3MTS applies to the enclave. Every enclave 
  6624.   has a single current country setting that has a single thousands separator. 
  6625.   Every thread in every enclave has the same default. 
  6626.  
  6627. Examples 
  6628.  
  6629.  C/370 Example 
  6630.  
  6631.     /*COMPILATION UNIT: EDC3MTS   */
  6632.  
  6633.     #include <stdio.h>
  6634.     #include <string.h>
  6635.     #include <leawi.h>
  6636.     #include <ceeedcct.h>
  6637.  
  6638.     int main(void) {
  6639.  
  6640.        _FEEDBACK fc;
  6641.        _CHAR2 country,thousand;
  6642.  
  6643.        /* get the default thousands separator for Canada */
  6644.        memcpy(country,"CA",2);
  6645.        CEE3MTS(country,thousand,&fc);
  6646.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  6647.           printf("CEE3MTS failed with message number %d\n",
  6648.                  fc.tok_msgno);
  6649.           exit(2999);
  6650.        }
  6651.        /* print out the default thousands separator */
  6652.        printf("The default thousands separator for Canada");
  6653.        printf(" is:  %.2s\n",thousand);
  6654.     }
  6655.  
  6656.  COBOL/370 Example 
  6657.  
  6658.     CBL LIB,APOST
  6659.           *COMPILATION UNIT: IGZT3MTS
  6660.           **************************************************
  6661.           **                                              **
  6662.           ** Function: CEE3MTS - obtain default thousands **
  6663.           **                     separator                **
  6664.           **                                              **
  6665.           **************************************************
  6666.            IDENTIFICATION DIVISION.
  6667.            PROGRAM-ID. CBL3MTS.
  6668.            DATA DIVISION.
  6669.            WORKING-STORAGE SECTION.
  6670.            01  COUNTRY                 PIC X(2).
  6671.            01  THOUSEP                 PIC X(2).
  6672.            01  FC.
  6673.                02  Condition-Token-Value.
  6674.                COPY  CEEIGZCT.
  6675.                    03  Case-1-Condition-ID.
  6676.                        04  Severity        PIC S9(4) COMP.
  6677.                        04  Msg-No          PIC S9(4) COMP.
  6678.                    03  Case-2-Condition-ID
  6679.                              REDEFINES Case-1-Condition-ID.
  6680.                        04  Class-Code      PIC S9(4) COMP.
  6681.                        04  Cause-Code      PIC S9(4) COMP.
  6682.                    03  Case-Sev-Ctl    PIC X.
  6683.                    03  Facility-ID     PIC XXX.
  6684.                02  I-S-Info        PIC S9(9) COMP.
  6685.  
  6686.            PROCEDURE DIVISION.
  6687.  
  6688.            PARA-CBL3MTS.
  6689.           ** Specify the country code for the US in the
  6690.           **     call to CEE3MTS.
  6691.                MOVE 'US' TO COUNTRY.
  6692.                CALL 'CEE3MTS' USING COUNTRY , THOUSEP , FC.
  6693.  
  6694.           ** If CEE3MTS runs successfully, display result
  6695.                IF CEE000 of FC  THEN
  6696.                    DISPLAY 'The default Thousands Separator'
  6697.                        ' for ' COUNTRY ' is "' THOUSEP '"'
  6698.                ELSE
  6699.                    DISPLAY 'CEE3MDS failed with msg '
  6700.                        Msg-No of FC UPON CONSOLE;
  6701.                    STOP RUN;
  6702.                END-IF.
  6703.  
  6704.                GOBACK.
  6705.  
  6706.  PL/I Example 
  6707.  
  6708.     *PROCESS MACRO;
  6709.      /*COMPILATION UNIT: IBM3MTS                        */
  6710.      /***************************************************/
  6711.      /**                                                */
  6712.      /** Function: CEE3MTS - obtain default thousands   */
  6713.      /** separator                                      */
  6714.      /**                                                */
  6715.      /***************************************************/
  6716.      PLI3MTS: PROC OPTIONS(MAIN);
  6717.  
  6718.         %INCLUDE  CEEIBMAW;
  6719.         %INCLUDE  CEEIBMCT;
  6720.  
  6721.         DCL COUNTRY  CHARACTER ( 2 );
  6722.         DCL THOUSEP  CHARACTER ( 2 );
  6723.         DCL 01 FC    FEEDBACK;
  6724.  
  6725.         COUNTRY = 'US';   /* Specify US as the country  */
  6726.                           /* code for the United States */
  6727.  
  6728.         /* Call CEE3MTS to return default thousands     */
  6729.         /*    separator for the US                      */
  6730.         CALL CEE3MTS ( COUNTRY, THOUSEP, FC );
  6731.  
  6732.         /* If CEE3MTS ran successfully print out result */
  6733.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  6734.            PUT SKIP LIST(
  6735.               'The default thousands separator for the '
  6736.               || COUNTRY || ' is "' || THOUSEP || '"' );
  6737.            END;
  6738.         ELSE  DO;
  6739.            DISPLAY( 'CEE3MTS failed with msg '
  6740.               || FC.MsgNo );
  6741.            STOP;
  6742.            END;
  6743.  
  6744.      END PLI3MTS;
  6745.  
  6746.  
  6747. ΓòÉΓòÉΓòÉ 3.3.11. CEE3PRM-Query Parameter String ΓòÉΓòÉΓòÉ
  6748.  
  6749. CEE3PRM queries and returns to the calling routine the parameter string 
  6750. specified at invocation of the program. The returned parameter string contains 
  6751. only program arguments. If no program arguments are available, a blank string 
  6752. is returned. 
  6753.  
  6754. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6755. Γöé                                                  Γöé
  6756. Γöé >>ΓöÇΓöÇCEE3PRMΓöÇΓöÇ(ΓöÇΓöÇchar_parm_stringΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  6757. Γöé                                                  Γöé
  6758. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6759.  
  6760. char_parm_string (output) 
  6761.           An 80-byte fixed-length string passed by CEE3PRM. 
  6762.  
  6763.           On return from this service, the char_parm_string contains the 
  6764.           parameter string specified at invocation of the program. If this 
  6765.           parameter string is longer than 80 characters, it is truncated. If 
  6766.           the parameter string is shorter than 80 characters, the returned 
  6767.           string is padded with blanks. If the program argument passed to the 
  6768.           service is absent, or is not a character string, char_parm_string is 
  6769.           blank. 
  6770.  
  6771. fc (output) 
  6772.           A 12-byte feedback code, optional in some languages, that indicates 
  6773.           the result of this service. 
  6774.  
  6775.           The following symbolic conditions can result from this service: 
  6776.  
  6777.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6778.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  6779.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  6780.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6781.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  6782.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6783.                     Γöé CEE3I1     Γöé 1        Γöé 3649      Γöé The parameter string returned from CEE3PRM   Γöé
  6784.                     Γöé        Γöé         Γöé         Γöé exceeded the maximum length of 80 bytes and   Γöé
  6785.                     Γöé        Γöé         Γöé         Γöé was truncated.                 Γöé
  6786.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6787.  
  6788. Usage Notes 
  6789.  
  6790.  C/370 consideration-C users can use the __osplist to return a program 
  6791.   argument longer than 80 characters. 
  6792.  
  6793.  OpenEdition MVS considerations-CEE3PRM is allowed only in the initial thread. 
  6794.  
  6795. Examples 
  6796.  
  6797.  C/370 Example 
  6798.  
  6799.     /*COMPILATION UNIT: EDC3PRM   */
  6800.  
  6801.     #include <stdio.h>
  6802.     #include <leawi.h>
  6803.     #include <ceeedcct.h>
  6804.  
  6805.     int main() {
  6806.  
  6807.        _CHAR80 parm;
  6808.        _FEEDBACK fc;
  6809.  
  6810.        CEE3PRM(parm,&fc);
  6811.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  6812.           printf("CEE3PRM failed with message number %d\n",
  6813.                  fc.tok_msgno);
  6814.           exit(2999);
  6815.        }
  6816.        printf("%s\n",parm);
  6817.     }
  6818.  
  6819.  COBOL/370 Example 
  6820.  
  6821.     CBL LIB,APOST
  6822.           *COMPILATION UNIT: IGZT3PRM
  6823.           ************************************************
  6824.           **                                            **
  6825.           ** Function: CEE3PRM - query parameter string **
  6826.           **                                            **
  6827.           ** In this example, a call is made to         **
  6828.           ** CEE3PRM to return the parameter string     **
  6829.           ** that was specified at invocation of the    **
  6830.           ** program. The string is then displayed.     **
  6831.           **                                            **
  6832.           ************************************************
  6833.            IDENTIFICATION DIVISION.
  6834.            PROGRAM-ID. CBL3PRM.
  6835.            DATA DIVISION.
  6836.            WORKING-STORAGE SECTION.
  6837.            01  PARMSTR                 PIC X(80).
  6838.            01  FC.
  6839.                02  Condition-Token-Value.
  6840.                COPY  CEEIGZCT.
  6841.                    03  Case-1-Condition-ID.
  6842.                        04  Severity        PIC S9(4) COMP.
  6843.                        04  Msg-No          PIC S9(4) COMP.
  6844.                    03  Case-2-Condition-ID
  6845.                              REDEFINES Case-1-Condition-ID.
  6846.                        04  Class-Code      PIC S9(4) COMP.
  6847.                        04  Cause-Code      PIC S9(4) COMP.
  6848.                    03  Case-Sev-Ctl    PIC X.
  6849.                    03  Facility-ID     PIC XXX.
  6850.                02  I-S-Info        PIC S9(9) COMP.
  6851.  
  6852.            PROCEDURE DIVISION.
  6853.  
  6854.            PARA-CBL3PRM.
  6855.                CALL 'CEE3PRM' USING PARMSTR , FC.
  6856.                IF CEE000 THEN
  6857.                    DISPLAY 'Program arguments specified: "'
  6858.                        PARMSTR '"'
  6859.                ELSE
  6860.                    DISPLAY 'CEE3PRM failed with msg '
  6861.                        Msg-No of FC UPON CONSOLE;
  6862.                    STOP RUN;
  6863.                END-IF.
  6864.  
  6865.                GOBACK.
  6866.  
  6867.  PL/I Example 
  6868.  
  6869.     *PROCESS MACRO;
  6870.      /*COMPILATION UNIT: IBM3PRM                        */
  6871.      /***************************************************/
  6872.      /**                                                */
  6873.      /** Function: CEE3PRM - Query Parameter String     */
  6874.      /**                                                */
  6875.      /***************************************************/
  6876.      PLI3PRM: PROC OPTIONS(MAIN);
  6877.  
  6878.         %INCLUDE  CEEIBMAW;
  6879.         %INCLUDE  CEEIBMCT;
  6880.  
  6881.         DCL PARMSTR CHAR80;
  6882.         DCL 01 FC FEEDBACK;
  6883.  
  6884.        /* Call CEE3PRM to return the program arguments  */
  6885.        /* specified at invocation of the program        */
  6886.         CALL CEE3PRM ( PARMSTR, FC );
  6887.  
  6888.        /* There are no non-zero feedback codes to       */
  6889.        /* check, so print result                        */
  6890.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  6891.            PUT SKIP LIST(
  6892.               'These program arguments were specified:  "'
  6893.               || PARMSTR || '"');
  6894.            END;
  6895.         ELSE  DO;
  6896.            DISPLAY( 'CEE3PRM failed with msg '
  6897.               || FC.MsgNo );
  6898.            STOP;
  6899.            END;
  6900.  
  6901.      END PLI3PRM;
  6902.  
  6903.  
  6904. ΓòÉΓòÉΓòÉ 3.3.12. CEE3RPH-Set Report Heading ΓòÉΓòÉΓòÉ
  6905.  
  6906. CEE3RPH sets the heading displayed at the top of the storage or options report 
  6907. generated when you specify the RPTSTG(ON) or RPTOPTS(ON) run-time options. 
  6908. Storage Report Produced by LE/370 Run-Time Option RPTSTG(ON) contains a sample 
  6909. storage report, and Options Report Produced by LE/370 Run-Time Option 
  6910. RPTOPTS(ON) contains a sample options report. 
  6911.  
  6912. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6913. Γöé                                                  Γöé
  6914. Γöé >>ΓöÇΓöÇCEE3RPHΓöÇΓöÇ(ΓöÇΓöÇreport_headingΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  6915. Γöé                                                  Γöé
  6916. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6917.  
  6918. report_heading (input) 
  6919.           An 80-character fixed-length string. 
  6920.  
  6921.           report_heading sets the identifying character string displayed at the 
  6922.           top of the storage or options report. LE/370 uses only the first 79 
  6923.           bytes of report_heading; the last byte is ignored. report_heading can 
  6924.           contain DBCS characters surrounded by X'0E' (shift-out) and X'0F' 
  6925.           (shift-in). 
  6926.  
  6927. fc (output) 
  6928.           A 12-byte feedback code, optional in some languages, that indicates 
  6929.           the result of this service. 
  6930.  
  6931.           The following symbolic conditions can result from this service: 
  6932.  
  6933.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6934.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  6935.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  6936.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6937.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  6938.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6939.                     Γöé CEE3JK     Γöé 0        Γöé 3700      Γöé The storage and options report heading     Γöé
  6940.                     Γöé        Γöé         Γöé         Γöé replaced a previous heading.          Γöé
  6941.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6942.  
  6943. Usage Notes 
  6944.  
  6945.  PL/I considerations-CEE3RPH is designed to provide an equivalent function to 
  6946.   the special PL/I variable PLIXHD. 
  6947.  
  6948.  OpenEdition MVS considerations-CEE3RPH applies to the enclave. 
  6949.  
  6950. Examples 
  6951.  
  6952.  C/370 Example 
  6953.  
  6954.     /*COMPILATION UNIT: EDC3RPH   */
  6955.  
  6956.     #pragma runopts(REPORT)
  6957.     #include <string.h>
  6958.     #include <leawi.h>
  6959.     #include <ceeedcct.h>
  6960.  
  6961.     int main(void) {
  6962.  
  6963.        _CHAR80   heading;
  6964.  
  6965.        /* initialize heading to blanks and then set the */
  6966.        /* heading */
  6967.        memset(heading,' ',80);
  6968.        memcpy(heading,"User Defined Report Heading",27);
  6969.  
  6970.        /* set the report heading...do not need to check */
  6971.        /* feedback token because all return codes are */
  6972.        /* successful */
  6973.        CEE3RPH(heading,NULL);
  6974.       /* .
  6975.          .
  6976.          . */
  6977.     }
  6978.  
  6979.  COBOL/370 Example 
  6980.  
  6981.     CBL LIB,APOST
  6982.           *COMPILATION UNIT: IGZT3RPH
  6983.           **************************************************
  6984.           **                                              **
  6985.           ** Function: CEE3RPH - set report heading       **
  6986.           **                                              **
  6987.           ** In this example, a call is made to CEE3RPH   **
  6988.           ** to set the report heading that appears at    **
  6989.           ** the top of each page of the options report   **
  6990.           ** (generated by RPTOPTS) and storage report    **
  6991.           ** (generated by RPTSTG).                       **
  6992.           **                                              **
  6993.           **************************************************
  6994.            IDENTIFICATION DIVISION.
  6995.            PROGRAM-ID. CBL3RPH.
  6996.            DATA DIVISION.
  6997.            WORKING-STORAGE SECTION.
  6998.            01  RPTHEAD                 PIC X(80).
  6999.            01  FC.
  7000.                02  Condition-Token-Value.
  7001.                COPY  CEEIGZCT.
  7002.                    03  Case-1-Condition-ID.
  7003.                        04  Severity        PIC S9(4) COMP.
  7004.                        04  Msg-No          PIC S9(4) COMP.
  7005.                    03  Case-2-Condition-ID
  7006.                              REDEFINES Case-1-Condition-ID.
  7007.                        04  Class-Code      PIC S9(4) COMP.
  7008.                        04  Cause-Code      PIC S9(4) COMP.
  7009.                    03  Case-Sev-Ctl    PIC X.
  7010.                    03  Facility-ID     PIC XXX.
  7011.                02  I-S-Info        PIC S9(9) COMP.
  7012.  
  7013.            PROCEDURE DIVISION.
  7014.  
  7015.           ** Specify user-defined report heading via CEE3RPH
  7016.            PARA-CBL3RPH.
  7017.                MOVE 'My options and storage reports heading'
  7018.                    TO RPTHEAD.
  7019.                CALL 'CEE3RPH' USING RPTHEAD , FC.
  7020.                IF NOT CEE000 of FC  THEN
  7021.                    DISPLAY 'CEE3RPH failed with msg '
  7022.                        Msg-No of FC UPON CONSOLE;
  7023.                    STOP RUN;
  7024.                END-IF.
  7025.  
  7026.                GOBACK.
  7027.  
  7028.  PL/I Example 
  7029.  
  7030.     *PROCESS MACRO;
  7031.      /*COMPILATION UNIT: IBM3RPH                 */
  7032.      /********************************************/
  7033.      /**                                         */
  7034.      /** Function: CEE3RPH - set report heading  */
  7035.      /**                                         */
  7036.      /********************************************/
  7037.      PLI3RPH: PROC OPTIONS(MAIN);
  7038.  
  7039.         %INCLUDE  CEEIBMAW;
  7040.         %INCLUDE  CEEIBMCT;
  7041.  
  7042.         DCL RPTHEAD  CHAR80;
  7043.         DCL 01 FC    FEEDBACK;
  7044.  
  7045.         /* Define report heading                 */
  7046.         RPTHEAD = 'My storage report heading';
  7047.  
  7048.         /* Set report heading in call to CEE3RPH */
  7049.         CALL CEE3RPH ( RPTHEAD, FC );
  7050.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  7051.            PUT SKIP LIST( 'Report heading now set to "'
  7052.               || RPTHEAD || '"' );
  7053.            END;
  7054.         ELSE  DO;
  7055.            DISPLAY( 'CEE3RPH failed with msg '
  7056.               || FC.MsgNo );
  7057.            STOP;
  7058.            END;
  7059.  
  7060.  
  7061.      END PLI3RPH;
  7062.  
  7063.  
  7064. ΓòÉΓòÉΓòÉ 3.3.13. CEE3SPM-Query and Modify LE/370 Hardware Condition Enablement ΓòÉΓòÉΓòÉ
  7065.  
  7066. CEE3SPM queries and modifies the enablement of LE/370 hardware conditions. You 
  7067. can use the CEE3SPM service to: 
  7068.  
  7069.  Alter the settings of the LE/370 conditions to those specified by the caller. 
  7070.  
  7071.  Query the current settings of the LE/370 conditions and return the settings 
  7072.   to the caller. 
  7073.  
  7074.  Push the current settings of the LE/370 conditions on to the LE/370-managed 
  7075.   condition stack, where all program math settings are kept. 
  7076.  
  7077.  Pop the pushed settings of the LE/370 conditions from the LE/370-managed 
  7078.   condition stack and set the current settings of the LE/370 conditions to 
  7079.   those popped. 
  7080.  
  7081.  Push the current settings of the LE/370 conditions on to the LE/370-managed 
  7082.   condition stack and alter the settings of the LE/370 conditions to those 
  7083.   supplied by the caller. 
  7084.  
  7085. The enabled or disabled LE/370 conditions are: 
  7086.  
  7087. fixed-overflow      When enabled, raises the fixed-overflow condition when an 
  7088.                     overflow occurs during signed binary arithmetic or signed 
  7089.                     left-shift operations. 
  7090.  
  7091. decimal-overflow    When enabled, raises the decimal-overflow condition when 
  7092.                     one or more nonzero digits are lost because the destination 
  7093.                     field in a decimal operation is too short to contain the 
  7094.                     results. 
  7095.  
  7096. underflow           When enabled, raises the underflow condition when the 
  7097.                     result characteristic of a floating-point operation is less 
  7098.                     than zero and the result fraction is not zero. For an 
  7099.                     extended-format floating-point result, the condition is 
  7100.                     raised only when the high-order characteristic underflows. 
  7101.  
  7102. significance        When enabled, raises the significance condition when the 
  7103.                     resulting fraction in floating-point addition or 
  7104.                     subtraction is zero. 
  7105.  
  7106. When you use the CEE3SPM callable service, maintenance of the condition stack 
  7107. is required. For example, one user-written condition handler can disable a 
  7108. hardware condition while another enables it. Therefore, do not assume that the 
  7109. program mask is at a given setting. The program mask is set differently based 
  7110. on different HLL requirements. You can find out what the current setting is by 
  7111. using the QUERY function of CEE3SPM. 
  7112.  
  7113. LE/370 initialization sets conditions based on the languages in the initial 
  7114. load module. Each language present adds to the conditions that are enabled. 
  7115.  
  7116. Some S/370 hardware interrupt codes and their matching LE/370 feedback codes 
  7117. appear in S/370 Interrupt Code Descriptions. 
  7118.  
  7119. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7120. Γöé                                                  Γöé
  7121. Γöé >>ΓöÇΓöÇCEE3SPMΓöÇΓöÇ(ΓöÇΓöÇactionΓöÇΓöÇ,ΓöÇΓöÇcond_stringΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  7122. Γöé                                                  Γöé
  7123. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7124.  
  7125. action (input) 
  7126.           The action to be performed. action is specified as a fullword binary 
  7127.           signed integer corresponding to one of the numbers in the following 
  7128.           list: 
  7129.  
  7130.    1-SET          Alters the settings of the LE/370 conditions to those 
  7131.                   specified in the cond_string parameter. 
  7132.  
  7133.    2-QUERY        Queries the current settings of the LE/370 conditions and 
  7134.                   return the settings in the cond_string parameter. 
  7135.  
  7136.    3-PUSH         Pushes the current settings of the LE/370 conditions on to 
  7137.                   the LE/370-managed condition stack. 
  7138.  
  7139.    4-POP          Pops the pushed settings of the LE/370 conditions from the 
  7140.                   LE/370-managed condition stack and sets the current settings 
  7141.                   of the LE/370 conditions to those popped. 
  7142.  
  7143.    5-PUSH, SET    Pushes the current settings of the LE/370 conditions on to 
  7144.                   the LE/370-managed condition stack and alters the settings of 
  7145.                   the LE/370 conditions to those supplied by the caller in the 
  7146.                   cond_string parameter. 
  7147.  
  7148. cond_string (input/output) 
  7149.           A fixed-length string of 80 bytes containing a sequence of 
  7150.           identifiers representing the requested settings for the LE/370 
  7151.           conditions that can be enabled and disabled. 
  7152.  
  7153.           A list of conditions enabled and disabled and their associated 
  7154.           identifiers is given below: 
  7155.  
  7156.    Condition          Identifier 
  7157.  
  7158.    fixed-overflow     F  (NOF for disablement) 
  7159.  
  7160.    decimal-overflow   D  (NOD for disablement) 
  7161.  
  7162.    underflow          U  (NOU for disablement) 
  7163.  
  7164.    significance       S  (NOS for disablement) 
  7165.  
  7166.           An identifier with the 'NO' prefix is used to disable the condition 
  7167.           it represents. An identifier without the 'NO' prefix is used to 
  7168.           enable the condition that it represents. For example, the token 'F' 
  7169.           is used to enable the fixed-overflow condition. The identifier 'NOF' 
  7170.           is used to disable the fixed-overflow condition. The rightmost option 
  7171.           takes effect in the event of a conflict. Identifiers are separated by 
  7172.           blanks or commas. 
  7173.  
  7174. fc (output) 
  7175.           A 12-byte feedback code, optional in some languages, that indicates 
  7176.           the result of this service. 
  7177.  
  7178.           The following symbolic conditions can result from this service: 
  7179.  
  7180.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7181.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  7182.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  7183.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7184.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  7185.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7186.                     Γöé CEE36V     Γöé 4        Γöé 3295      Γöé The condition string from CEE3SPM did not    Γöé
  7187.                     Γöé        Γöé         Γöé         Γöé contain all of the settings, because the    Γöé
  7188.                     Γöé        Γöé         Γöé         Γöé returned string was truncated.         Γöé
  7189.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7190.                     Γöé CEE370     Γöé 4        Γöé 3296      Γöé Some of the data in the condition string from  Γöé
  7191.                     Γöé        Γöé         Γöé         Γöé CEE3SPM could not be recognized.        Γöé
  7192.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7193.                     Γöé CEE371     Γöé 4        Γöé 3297      Γöé The service completed successfully for recog-  Γöé
  7194.                     Γöé        Γöé         Γöé         Γöé nized condition(s), unsuccessfully for unrec-  Γöé
  7195.                     Γöé        Γöé         Γöé         Γöé ognized (unsupported) condition(s).       Γöé
  7196.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7197.                     Γöé CEE372     Γöé 4        Γöé 3298      Γöé A call to CEE3SPM attempted to PUSH settings  Γöé
  7198.                     Γöé        Γöé         Γöé         Γöé onto a full stack.               Γöé
  7199.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7200.                     Γöé CEE373     Γöé 4        Γöé 3299      Γöé A call to CEE3SPM attempted to POP settings   Γöé
  7201.                     Γöé        Γöé         Γöé         Γöé off an empty stack.               Γöé
  7202.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7203.                     Γöé CEE374     Γöé 4        Γöé 3300      Γöé The action parameter in CEE3SPM was not one of Γöé
  7204.                     Γöé        Γöé         Γöé         Γöé the digits 1 to 5.               Γöé
  7205.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7206.  
  7207. Usage Notes 
  7208.  
  7209.  C/370 consideration-C/370 ignores the fixed-overflow, decimal-overflow, 
  7210.   underflow, and significance interrupts, no matter what you specify in 
  7211.   CEE3SPM. 
  7212.  
  7213.  COBOL/370 consideration-COBOL/370 ignores the fixed-overflow and 
  7214.   decimal-overflow interrupts, no matter what you specify in CEE3SPM. 
  7215.  
  7216.  OpenEdition MVS consideration-In multithread applications, CEE3SPM affects 
  7217.   only the calling thread. 
  7218.  
  7219. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7220. Γöé Table 16. S/370 Interrupt Code Descriptions                            Γöé
  7221. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7222. Γöé S/370    Γöé DESCRIPTION             Γöé MASKABLE Γöé SYMBOLIC  Γöé MESSAGE  Γöé SEVERITY  Γöé
  7223. Γöé INTERRUPT  Γöé                   Γöé      Γöé FEEDBACK  Γöé NUMBER   Γöé       Γöé
  7224. Γöé CODE    Γöé                   Γöé      Γöé CODE    Γöé      Γöé       Γöé
  7225. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7226. Γöé 0001    Γöé Operation exception         Γöé No    Γöé CEE341   Γöé 3201    Γöé 3      Γöé
  7227. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7228. Γöé 0002    Γöé Privileged operation exception   Γöé No    Γöé CEE342   Γöé 3202    Γöé 3      Γöé
  7229. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7230. Γöé 0003    Γöé Execute exception          Γöé No    Γöé CEE343   Γöé 3203    Γöé 3      Γöé
  7231. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7232. Γöé 0004    Γöé Protection exception        Γöé No    Γöé CEE344   Γöé 3204    Γöé 3      Γöé
  7233. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7234. Γöé 0005    Γöé Addressing exception        Γöé No    Γöé CEE345   Γöé 3205    Γöé 3      Γöé
  7235. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7236. Γöé 0006    Γöé Specification exception       Γöé No    Γöé CEE346   Γöé 3206    Γöé 3      Γöé
  7237. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7238. Γöé 0007    Γöé Data exception           Γöé No    Γöé CEE347   Γöé 3207    Γöé 3      Γöé
  7239. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7240. Γöé 0008    Γöé Fixed-point overflow exception   Γöé Yes    Γöé CEE348   Γöé 3208    Γöé 3      Γöé
  7241. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7242. Γöé 0009    Γöé Fixed-point divide exception    Γöé No    Γöé CEE349   Γöé 3209    Γöé 3      Γöé
  7243. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7244. Γöé 000A    Γöé Decimal-overflow exception     Γöé Yes    Γöé CEE34A   Γöé 3210    Γöé 3      Γöé
  7245. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7246. Γöé 000B    Γöé Decimal divide exception      Γöé No    Γöé CEE34B   Γöé 3211    Γöé 3      Γöé
  7247. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7248. Γöé 000C    Γöé Exponent-overflow exception     Γöé No    Γöé CEE34C   Γöé 3212    Γöé 3      Γöé
  7249. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7250. Γöé 000D    Γöé Exponent-underflow exception    Γöé Yes    Γöé CEE34D   Γöé 3213    Γöé 3      Γöé
  7251. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7252. Γöé 000E    Γöé Significance exception       Γöé Yes    Γöé CEE34E   Γöé 3214    Γöé 3      Γöé
  7253. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7254. Γöé nn0F    Γöé Floating-point divide exception   Γöé No    Γöé CEE34F   Γöé 3215    Γöé 3      Γöé
  7255. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7256.  
  7257. Examples 
  7258.  
  7259.  C/370 Example 
  7260.  
  7261.   You cannot use CEE3SPM to enable the fixed-overflow, decimal-overflow, 
  7262.   underflow or significance interrupts. You can, however, query the settings of 
  7263.   CEE3SPM. 
  7264.  
  7265.     /*COMPILATION UNIT: EDC3SPM   */
  7266.  
  7267.     /*****************************************************/
  7268.     /* This example queries the enablement of LE/370     */
  7269.     /* hardware conditions.                              */
  7270.     /*****************************************************/
  7271.     #include <stdio.h>
  7272.     #include <string.h>
  7273.     #include <leawi.h>
  7274.     #include <ceeedcct.h>
  7275.  
  7276.     int main(void) {
  7277.  
  7278.       _FEEDBACK fc;
  7279.       _INT4 action;
  7280.       _CHAR80 cond_string;
  7281.       char *cond;
  7282.  
  7283.       /* query the current settings */
  7284.       action = 2;
  7285.       CEE3SPM(&action,cond_string,&fc);
  7286.  
  7287.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  7288.          printf("CEE3SPM query failed with message %\n",
  7289.                 fc.tok_msgno);
  7290.          exit(2999);
  7291.        }
  7292.     }
  7293.  
  7294.  COBOL/370 Example 
  7295.  
  7296.     CBL LIB,APOST
  7297.           *COMPILATION UNIT: IGZT3SPM
  7298.           *************************************************
  7299.           **                                             **
  7300.           ** Function: CEE3SPM - query and modify LE/370 **
  7301.           **               hardware condition enablement **
  7302.           **                                             **
  7303.           ** In this example, a call is made to CEE3SPM  **
  7304.           ** to check the setting of the program mask.   **
  7305.           ** See the parameter list of CEE3SPM to        **
  7306.           ** interpret what is returned as CONDSTR in    **
  7307.           ** this example.                               **
  7308.           **                                             **
  7309.           *************************************************
  7310.            IDENTIFICATION DIVISION.
  7311.            PROGRAM-ID. CBL3SPM.
  7312.            DATA DIVISION.
  7313.            WORKING-STORAGE SECTION.
  7314.            01  ACTION                  PIC S9(9) COMP.
  7315.            01  CONDSTR                 PIC X(80).
  7316.            01  FC.
  7317.                02  Condition-Token-Value.
  7318.                COPY  CEEIGZCT.
  7319.                    03  Case-1-Condition-ID.
  7320.                        04  Severity        PIC S9(4) COMP.
  7321.                        04  Msg-No          PIC S9(4) COMP.
  7322.                    03  Case-2-Condition-ID
  7323.                              REDEFINES Case-1-Condition-ID.
  7324.                        04  Class-Code      PIC S9(4) COMP.
  7325.                        04  Cause-Code      PIC S9(4) COMP.
  7326.                    03  Case-Sev-Ctl    PIC X.
  7327.                    03  Facility-ID     PIC XXX.
  7328.                02  I-S-Info        PIC S9(9) COMP.
  7329.  
  7330.            PROCEDURE DIVISION.
  7331.  
  7332.           ** Specify 2 for the QUERY function.
  7333.           ** Pass ACTION in the call to CEE3SPM to return
  7334.           **     the condition string DISPLAY results.
  7335.            PARA-CBL3SPM.
  7336.                MOVE 2 TO ACTION.
  7337.                CALL 'CEE3SPM' USING ACTION , CONDSTR , FC.
  7338.                IF  CEE000 of FC  THEN
  7339.                    DISPLAY 'The current setting of the ',
  7340.                        'program mask is: ' CONDSTR
  7341.                ELSE
  7342.                    DISPLAY 'CEE3SPM failed with msg '
  7343.                        Msg-No of FC UPON CONSOLE;
  7344.                    STOP RUN;
  7345.                END-IF.
  7346.                GOBACK.
  7347.  
  7348.  PL/I Example 
  7349.  
  7350.     *PROCESS MACRO;
  7351.      /*COMPILATION UNIT: IBM3SPM                         */
  7352.      /****************************************************/
  7353.      /**                                                 */
  7354.      /** Function: CEE3SPM - Query and Modify LE/370     */
  7355.      /**                   Hardware Condition Enablement */
  7356.      /**                                                 */
  7357.      /** This example calls CEE3SPM to query the current */
  7358.      /** setting of the program mask. See the parameter  */
  7359.      /** list of CEE3SPM to interpret what is returned   */
  7360.      /** as CONDSTR in this example.                     */
  7361.      /**                                                 */
  7362.      /****************************************************/
  7363.      PLI3SPM: PROC OPTIONS(MAIN);
  7364.  
  7365.         %INCLUDE  CEEIBMAW;
  7366.         %INCLUDE  CEEIBMCT;
  7367.  
  7368.         DCL ACTION   INT4;
  7369.         DCL CONDSTR  CHAR80;
  7370.         DCL 01 FC    FEEDBACK;
  7371.  
  7372.         /* Call CEE3SPM to query the current setting of */
  7373.         /*    the program mask                          */
  7374.  
  7375.         ACTION = 2  /* Specify action code 2 to query   */
  7376.                     /* the program mask                */;
  7377.         CALL CEE3SPM ( ACTION, CONDSTR, FC );
  7378.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  7379.            PUT SKIP LIST(
  7380.               'The initial setting of the program mask is: '
  7381.               || CONDSTR );
  7382.            END;
  7383.         ELSE  DO;
  7384.            DISPLAY( 'CEE3SPM failed with msg ' || FC.MsgNo );
  7385.            STOP;
  7386.            END;
  7387.  
  7388.         /* Call CEE3SPM to enable specification exceptions */
  7389.  
  7390.         ACTION = 1  /* Specify action code 1 to SET the    */
  7391.                     /*    program mask                    */;
  7392.         CONDSTR = 'S'  /* Specify a program mask that will */
  7393.                        /*   allow specification exceptions */
  7394.                        /*   (all others remain unchanged) */;
  7395.         CALL CEE3SPM ( ACTION, CONDSTR, FC );
  7396.         IF  ╨║ FBCHECK( FC, CEE000)  THEN  DO;
  7397.            DISPLAY( 'CEE3SPM failed with msg ' || FC.MsgNo );
  7398.            STOP;
  7399.            END;
  7400.  
  7401.         CALL CEE3SPM ( 2, CONDSTR, FC ); /* Query settings */
  7402.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  7403.            PUT SKIP LIST(
  7404.               'The new setting of the program mask is: '
  7405.               || CONDSTR );
  7406.            END;
  7407.         ELSE  DO;
  7408.            DISPLAY( 'CEE3SPM failed with msg ' || FC.MsgNo );
  7409.            STOP;
  7410.            END;
  7411.  
  7412.      END PLI3SPM;
  7413.  
  7414.  
  7415. ΓòÉΓòÉΓòÉ 3.3.14. CEE3SRC-Set the Enclave Return Code ΓòÉΓòÉΓòÉ
  7416.  
  7417. CEE3SRC sets the user enclave return code. The value set is used in the 
  7418. calculation of the final enclave return code at enclave termination. 
  7419.  
  7420. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7421. Γöé                                                  Γöé
  7422. Γöé >>ΓöÇΓöÇCEE3SRCΓöÇΓöÇ(ΓöÇΓöÇreturn_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  7423. Γöé                                                  Γöé
  7424. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7425.  
  7426. return_code(input) 
  7427.           The enclave return code to be set should be <= 999,999 and >= 0 to be 
  7428.           in the LE/370-preferred range, but other values are accepted. (The 
  7429.           initial value is 0.) 
  7430.  
  7431. fc (output) 
  7432.           A 12-byte feedback code, optional in some languages, that indicates 
  7433.           the result of this service. 
  7434.  
  7435.           The following symbolic conditions can result from this service: 
  7436.  
  7437.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7438.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  7439.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  7440.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7441.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  7442.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7443.                     Γöé CEE0HA     Γöé 1        Γöé 0554      Γöé A value outside the LE/370-preferred range of  Γöé
  7444.                     Γöé        Γöé         Γöé         Γöé 0 through 999,999 was supplied.  However, the  Γöé
  7445.                     Γöé        Γöé         Γöé         Γöé value was still used as the enclave return   Γöé
  7446.                     Γöé        Γöé         Γöé         Γöé code.                      Γöé
  7447.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7448.  
  7449. Usage Note 
  7450.  
  7451.  OpenEdition MVS consideration-CEE3SRC applies to the enclave. 
  7452.  
  7453. Examples 
  7454.  
  7455. CEE3SRC is used with Cee3GRC-see the examples for CEE3GRC, Examples. 
  7456.  
  7457.  
  7458. ΓòÉΓòÉΓòÉ 3.3.15. CEE3USR-Set or Query User Area Fields ΓòÉΓòÉΓòÉ
  7459.  
  7460. CEE3USR sets or queries one of two 4-byte fields known as the user area fields. 
  7461. The user area fields are associated with an enclave and are maintained on an 
  7462. enclave basis. A user area can be used by vendor or application programs to 
  7463. store a pointer to a global data area or keep a recursion counter. 
  7464.  
  7465. Be careful not to confuse the LE/370 user area fields with the PL/I user area. 
  7466. The PL/I user area is a 4-byte field in the PL/I TCA and can be accessed only 
  7467. through assembler language. The PL/I user area continues to be supported for 
  7468. compatibility. 
  7469.  
  7470. LE/370 initializes both user area fields to X'00000000' during enclave 
  7471. initialization. 
  7472.  
  7473. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7474. Γöé                                                  Γöé
  7475. Γöé >>ΓöÇΓöÇCEE3USRΓöÇΓöÇ(ΓöÇΓöÇfunction_codeΓöÇΓöÇ,ΓöÇΓöÇfield_numberΓöÇΓöÇ,ΓöÇΓöÇfield_valueΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  7476. Γöé                                                  Γöé
  7477. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7478.  
  7479. function_code(input) 
  7480.           A fullword binary integer representing the function performed: 
  7481.  
  7482.    1-SET          User area field according to the value specified in 
  7483.                   field_value. 
  7484.  
  7485.    2-QUERY        User area field; return current value in field_value. 
  7486.  
  7487. field_number(input) 
  7488.           A fullword binary integer indicating the field to set or query. 
  7489.           field_number must be specified as either 1 or 2. 
  7490.  
  7491. field_value(input/output) 
  7492.           A fullword binary integer. 
  7493.  
  7494.           If function_code is specified as 1 (meaning SET user area field), 
  7495.           field_value contains the value to be copied to the user area. 
  7496.  
  7497.           If function_code is specified as 2 (meaning QUERY user field area), 
  7498.           the value in the user area is copied to field_value. 
  7499.  
  7500. fc (output) 
  7501.           A 12-byte feedback code, optional in some languages, that indicates 
  7502.           the result of this service. 
  7503.  
  7504.           The following symbolic conditions can result from this service: 
  7505.  
  7506.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7507.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  7508.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  7509.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7510.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  7511.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7512.                     Γöé CEE3PS     Γöé 3        Γöé 3900      Γöé The function code passed to CEE3USR was not 1  Γöé
  7513.                     Γöé        Γöé         Γöé         Γöé or 2.                      Γöé
  7514.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7515.                     Γöé CEE3PT     Γöé 3        Γöé 3901      Γöé The field number passed to CEE3USR was not 1  Γöé
  7516.                     Γöé        Γöé         Γöé         Γöé or 2.                      Γöé
  7517.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7518.  
  7519. Usage Note 
  7520.  
  7521.  OpenEdition MVS consideration-CEE3USR applies to the enclave. 
  7522.  
  7523. Examples 
  7524.  
  7525.  C/370 Example 
  7526.  
  7527.     /*COMPILATION UNIT: EDC3USR   */
  7528.  
  7529.     #include <stdio.h>
  7530.     #include <stdlib.h>
  7531.     #include <leawi.h>
  7532.     #include <ceeedcct.h>
  7533.  
  7534.     typedef struct {
  7535.        int value1,value2,value3;
  7536.        char slot1[80];
  7537.     } info_struct;
  7538.  
  7539.     int main (void) {
  7540.  
  7541.        _INT4 function_code, field_number, field_value;
  7542.        _FEEDBACK fc;
  7543.        info_struct *info;
  7544.  
  7545.        info = (info_struct *)malloc(sizeof(info_struct));
  7546.       /* .
  7547.          .
  7548.          . */
  7549.        /* Set User field 1 to point to info_struct */
  7550.        function_code = 1;
  7551.        field_number = 1;
  7552.        field_value = (int)info;
  7553.  
  7554.        CEE3USR(&function_code,&field_number,&field_value,&fc);
  7555.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  7556.           printf("CEE3USR failed with message number %d\n",
  7557.                  fc.tok_msgno);
  7558.           exit(2999);
  7559.        }
  7560.       /* .
  7561.          .
  7562.          . */
  7563.        /* get the value of field 2 */
  7564.        function_code = 2;
  7565.        field_number = 1;
  7566.  
  7567.        CEE3USR(&function_code,&field_number,&field_value,&fc);
  7568.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  7569.           printf("CEE3USR failed with message number %d\n",
  7570.                  fc.tok_msgno);
  7571.           exit(2999);
  7572.        }
  7573.       /* .
  7574.          .
  7575.          . */
  7576.     }
  7577.  
  7578.  COBOL/370 Example 
  7579.  
  7580.     CBL LIB,APOST
  7581.           *COMPILATION UNIT: IGZT3USR
  7582.           ****************************************************
  7583.           **                                                **
  7584.           ** Function: CEE3USR - set or query user area     **
  7585.           **                     fields                     **
  7586.           **                                                **
  7587.           ** In this example, CEE3USR is called twice: once **
  7588.           ** to set the value of a user area, and once to   **
  7589.           ** query it.                                      **
  7590.           **                                                **
  7591.           ****************************************************
  7592.            IDENTIFICATION DIVISION.
  7593.            PROGRAM-ID. CBL3USR.
  7594.            DATA DIVISION.
  7595.            WORKING-STORAGE SECTION.
  7596.            01  FUNCODE                 PIC S9(9) COMP.
  7597.            01  FIELDNO                 PIC S9(9) COMP.
  7598.            01  INVALUE                 PIC S9(9) COMP.
  7599.            01  FC.
  7600.                02  Condition-Token-Value.
  7601.                COPY  CEEIGZCT.
  7602.                    03  Case-1-Condition-ID.
  7603.                        04  Severity        PIC S9(4) COMP.
  7604.                        04  Msg-No          PIC S9(4) COMP.
  7605.                    03  Case-2-Condition-ID
  7606.                              REDEFINES Case-1-Condition-ID.
  7607.                        04  Class-Code      PIC S9(4) COMP.
  7608.                        04  Cause-Code      PIC S9(4) COMP.
  7609.                    03  Case-Sev-Ctl    PIC X.
  7610.                    03  Facility-ID     PIC XXX.
  7611.                02  I-S-Info        PIC S9(9) COMP.
  7612.  
  7613.            PROCEDURE DIVISION.
  7614.  
  7615.           ** Specify 1 for SET function.
  7616.           ** Specify field number 1 to set the value field
  7617.           **     number 1.
  7618.           ** Specify 23 to make the value of field number 1
  7619.           **     equal to 23.
  7620.            PARA-3USRSET.
  7621.                MOVE 1  TO FUNCODE.
  7622.                MOVE 1  TO FIELDNO.
  7623.                MOVE 23 TO INVALUE.
  7624.                CALL 'CEE3USR' USING FUNCODE , FIELDNO ,
  7625.                    INVALUE , FC.
  7626.                IF NOT CEE000 of FC  THEN
  7627.                    DISPLAY 'CEE3USR failed with msg '
  7628.                        Msg-No of FC UPON CONSOLE;
  7629.                    STOP RUN;
  7630.                END-IF.
  7631.  
  7632.           ** Specify 2 for QUERY function.
  7633.           ** Specify field number 1 to query the value
  7634.           **     of field number 1.
  7635.            PARA-3USRQRY.
  7636.                MOVE 2 TO FUNCODE.
  7637.                MOVE 1 TO FIELDNO.
  7638.                CALL 'CEE3USR' USING FUNCODE , FIELDNO ,
  7639.                      INVALUE , FC.
  7640.                IF CEE000 of FC  THEN
  7641.                    DISPLAY 'User Area field ' FIELDNO
  7642.                        ' is: ' INVALUE;
  7643.                ELSE
  7644.                    DISPLAY 'CEE3USR failed with msg '
  7645.                        Msg-No of FC UPON CONSOLE;
  7646.                    STOP RUN;
  7647.                END-IF.
  7648.  
  7649.                GOBACK.
  7650.  
  7651.  PL/I Example 
  7652.  
  7653.     *PROCESS MACRO;
  7654.      /*COMPILATION UNIT: IBM3USR
  7655.      /****************************************************/
  7656.      /**                                                 */
  7657.      /** Function: CEE3USR - set/query user area fields  */
  7658.      /**                                                 */
  7659.      /** In this example, CEE3USR is called twice: once  */
  7660.      /** to set the value of a user area, and once to    */
  7661.      /** query it.                                       */
  7662.      /****************************************************/
  7663.      PLI3USR: PROC OPTIONS(MAIN);
  7664.  
  7665.         %INCLUDE  CEEIBMAW;
  7666.         %INCLUDE  CEEIBMCT;
  7667.  
  7668.         DCL FUNCODE   INT4;
  7669.         DCL FIELDNO   INT4;
  7670.         DCL OUTVALUE  INT4;
  7671.         DCL INVALUE   INT4;
  7672.         DCL 01 FC     FEEDBACK;
  7673.  
  7674.         FUNCODE = 1; /* Specify 1 for the set function   */
  7675.         FIELDNO = 1; /* Specify field 1 of two           */
  7676.         INVALUE = 5; /* Value to put in field 1          */
  7677.  
  7678.         /* Call CEE3USR to set user field 1 to 5         */
  7679.         CALL CEE3USR ( FUNCODE, FIELDNO, INVALUE, FC );
  7680.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  7681.            PUT SKIP LIST( 'LE/370 User field ' || FIELDNO
  7682.               || ' has been set to ' || INVALUE );
  7683.            END;
  7684.         ELSE  DO;
  7685.            DISPLAY( 'CEE3USR failed with msg '
  7686.               || FC.MsgNo );
  7687.            STOP;
  7688.            END;
  7689.  
  7690.         /* Call CEE3USR to query the value of field 1    */
  7691.  
  7692.         FUNCODE = 2; /* Specify 2 for query function     */
  7693.         FIELDNO = 1; /* Specify field 1 of two           */
  7694.  
  7695.         CALL CEE3USR ( FUNCODE, FIELDNO, OUTVALUE, FC );
  7696.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  7697.            PUT SKIP LIST( 'LE/370 User field ' || FIELDNO
  7698.               || ' is currently set to ' || OUTVALUE );
  7699.            END;
  7700.         ELSE  DO;
  7701.            DISPLAY( 'CEE3USR failed with msg '
  7702.               || FC.MsgNo );
  7703.            STOP;
  7704.            END;
  7705.  
  7706.      END PLI3USR;
  7707.  
  7708.  
  7709. ΓòÉΓòÉΓòÉ 3.3.16. CEECBLDY-Convert Date to COBOL Lilian Format ΓòÉΓòÉΓòÉ
  7710.  
  7711. CEECBLDY converts a string representing a date into a COBOL Lilian format, 
  7712. which is the number of days since 31 December 1600. This service is similar to 
  7713. CEEDAYS, except that it provides an answer in COBOL Lilian format, so that it 
  7714. is compatible with ANSI intrinsic functions. Use CEECBLDY to access the century 
  7715. window of LE/370 and to perform date calculations with intrinsic functions. 
  7716.  
  7717. Call CEECBLDY only from COBOL programs that use the returned value as input for 
  7718. COBOL intrinsic functions. You should not use the returned value with other 
  7719. LE/370 callable services, nor should you call CEECBLDY from any non-COBOL 
  7720. programs. Unlike CEEDAYS, there is no inverse function for CEECBLDY, because it 
  7721. is only for COBOL users who want to use the LE/370 century window service 
  7722. together with COBOL intrinsic functions for date calculations. The inverse 
  7723. function for CEECBLDY is provided by the DATE-OF-INTEGER and DAY-OF-INTEGER 
  7724. intrinsic functions. 
  7725.  
  7726. To handle dates earlier than 1582, add 4000 to each year, convert to Lilian, 
  7727. calculate, subtract 4000 from the result, and then convert back to character 
  7728. format. By default, 2-digit years lie within the 100-year range starting 80 
  7729. years prior to the system date. Thus, in 1993, all 2-digit years represent 
  7730. dates between 1913 and 2012, inclusive. You change this default range by using 
  7731. the CEESCEN callable service (see CEESCEN-Set the Century Window). 
  7732.  
  7733. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7734. Γöé                                                  Γöé
  7735. Γöé >>ΓöÇΓöÇCEECBLDYΓöÇΓöÇ(ΓöÇΓöÇinput_char_dateΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_Lilian_dateΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  7736. Γöé                                                  Γöé
  7737. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7738.  
  7739. input_char_date (input) 
  7740.           A character string representing a date or timestamp, in a format 
  7741.           conforming to that specified by picture_string. 
  7742.  
  7743.           The character string must contain between 5 and 255 characters, 
  7744.           inclusive. input_char_date can contain leading or trailing blanks. 
  7745.           Parsing for a date begins with the first nonblank character (unless 
  7746.           the picture string itself contains leading blanks, in which case 
  7747.           CEECBLDY skips exactly that many positions before parsing begins). 
  7748.  
  7749.           After parsing a valid date, as determined by the format of the date 
  7750.           specified in picture_string, CEECBLDY ignores all remaining 
  7751.           characters. Valid dates range between and include 01 January 1600 to 
  7752.           31 December 9999. 
  7753.  
  7754.           See Picture Terms Used in Picture Strings for a list of valid picture 
  7755.           character terms that can be specified in input_char_date. 
  7756.  
  7757. picture_string (input) 
  7758.           A VSTRING, that is, a length-prefixed character string, indicating 
  7759.           the format of the date specified in input_char_date. 
  7760.  
  7761.           Each character in the picture_string corresponds to a character in 
  7762.           input_char_date. For example, if you specify MMDDYY as the 
  7763.           picture_string, CEECBLDY reads an input_char_date of 060288 as 02 
  7764.           June 1988. 
  7765.  
  7766.           If delimiters such as the slash (/) appear in the picture string, 
  7767.           leading zeros can be omitted. For example, the following calls to 
  7768.           CEECBLDY: 
  7769.  
  7770.                     MOVE '6/2/88' TO DATEVAL.
  7771.                     MOVE 'MM/DD/YY' TO PICTSTR.
  7772.                     CALL CEECBLDY USING DATEVAL, PICSTR, lildate, fc);
  7773.  
  7774.                     MOVE '06/02/88' TO DATEVAL.
  7775.                     MOVE 'MM/DD/YY' TO PICTSTR.
  7776.                     CALL CEECBLDY USING DATEVAL, PICSTR, lildate, fc);
  7777.  
  7778.                     MOVE '060288' TO DATEVAL.
  7779.                     MOVE 'MM/DD/YY' TO PICTSTR.
  7780.                     CALL CEECBLDY USING DATEVAL, PICSTR, lildate, fc);
  7781.  
  7782.                     MOVE '88154' TO DATEVAL.
  7783.                     MOVE 'MM/DD/YY' TO PICTSTR.
  7784.                     CALL CEECBLDY USING DATEVAL, PICSTR, lildate, fc);
  7785.           would each assign the same value, 148155 (02 June 1988), to lildate. 
  7786.  
  7787.           Whenever characters such as colons or slashes are included in the 
  7788.           picture_string (such as HH:MI:SS YY/MM/DD), they count as 
  7789.           place-holders but are otherwise ignored. 
  7790.  
  7791.           See Picture Terms Used in Picture Strings for a list of valid picture 
  7792.           characters, and Examples of Picture Terms Recognized by Date/Time 
  7793.           Services for examples of valid picture strings. 
  7794.  
  7795.           If picture_string includes a Japanese Era symbol <JJJJ>, the YY 
  7796.           position in input_char_date is replaced by the year number within the 
  7797.           Japanese Era. For example, the year 1988 equals the Japanese year 63 
  7798.           in the Showa era. See Examples of Picture Terms Recognized by 
  7799.           Date/Time Services for an additional example. See also Japanese Eras 
  7800.           Used by Date/Time Services when <JJJJ> Specified for a list of 
  7801.           Japanese Eras supported by CEEDATE. 
  7802.  
  7803.           If picture_string includes an ROC Era symbol <CCCC> or <CCCCCCCC>, 
  7804.           the YY position in input_char_date is replaced by the year number 
  7805.           within the ROC (Republic of China) Era. For example, the year 1988 
  7806.           equals the ROC year 77 in the MinKow Era. See Examples of Picture 
  7807.           Terms Recognized by Date/Time Services for an additional example. See 
  7808.           Republic of China Eras Used by Date/Time Services when <CCCC>or 
  7809.           <CCCCCCCC> Specified for a list of ROC Eras supported by CEEDATE. 
  7810.  
  7811. output_Lilian_date (output) 
  7812.           A 32-bit binary integer representing the COBOL Lilian date, the 
  7813.           number of days since 31 December 1600. For example, 16 May 1988 is 
  7814.           day number 141485. 
  7815.  
  7816.           If input_char_date does not contain a valid date, output_Lilian_date 
  7817.           is set to 0 and CEECBLDY terminates with a non-CEE000 symbolic 
  7818.           feedback code. 
  7819.  
  7820.           Date calculations are performed easily on the output_Lilian_date, 
  7821.           because it is an integer. Leap year and end-of-year anomalies are 
  7822.           avoided. 
  7823.  
  7824. fc (output) 
  7825.           A 12-byte feedback code, optional in some languages, that indicates 
  7826.           the result of this service. 
  7827.  
  7828.           The following symbolic conditions can result from this service: 
  7829.  
  7830.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7831.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  7832.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  7833.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7834.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  7835.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7836.                     Γöé CEE2EB     Γöé 3        Γöé 2507      Γöé Insufficient data was passed to CEEDAYS or   Γöé
  7837.                     Γöé        Γöé         Γöé         Γöé CEESECS.  The Lilian value was not calculated. Γöé
  7838.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7839.                     Γöé CEE2EC     Γöé 3        Γöé 2508      Γöé The date value passed to CEEDAYS or CEESECS   Γöé
  7840.                     Γöé        Γöé         Γöé         Γöé was invalid.                  Γöé
  7841.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7842.                     Γöé CEE2ED     Γöé 3        Γöé 2509      Γöé The Japanese or Republic of China Era passed  Γöé
  7843.                     Γöé        Γöé         Γöé         Γöé to CEEDAYS or CEESECS was not recognized.    Γöé
  7844.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7845.                     Γöé CEE2EH     Γöé 3        Γöé 2513      Γöé The input date was not within the supported   Γöé
  7846.                     Γöé        Γöé         Γöé         Γöé range.                     Γöé
  7847.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7848.                     Γöé CEE2EL     Γöé 3        Γöé 2517      Γöé The month value was not recognized.       Γöé
  7849.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7850.                     Γöé CEE2EM     Γöé 3        Γöé 2518      Γöé An invalid picture string was specified.    Γöé
  7851.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7852.                     Γöé CEE2EO     Γöé 3        Γöé 2520      Γöé CEEDAYS detected non-numeric data in a numeric Γöé
  7853.                     Γöé        Γöé         Γöé         Γöé field, or the date string did not match the   Γöé
  7854.                     Γöé        Γöé         Γöé         Γöé picture string.                 Γöé
  7855.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7856.                     Γöé CEE2EP     Γöé 3        Γöé 2521      Γöé The Japanese or Chinese year-within-Era value  Γöé
  7857.                     Γöé        Γöé         Γöé         Γöé passed to CEEDAYS or CEESECS was zero.     Γöé
  7858.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7859.  
  7860. Usage Notes 
  7861.  
  7862.  The probable cause for receiving message number 2518 is a picture string that 
  7863.   contains an invalid DBCS string. You should verify that the data in the 
  7864.   picture string is correct. 
  7865.  
  7866.  OpenEdition MVS consideration-In multithread applications, CEECBLDY affects 
  7867.   only the calling thread. 
  7868.  
  7869. Examples 
  7870.  
  7871.  COBOL/370 Example 
  7872.  
  7873.     CBL LIB,APOST
  7874.           *COMPILATION UNIT: IGZTCBLD
  7875.           *******************************************
  7876.           **                                       **
  7877.           ** Function: CEECBLDY - convert date to  **
  7878.           ** COBOL Lilian format.  This service is **
  7879.           ** used when using the LE/370 Century    **
  7880.           ** Window mixed with COBOL Intrinsic     **
  7881.           ** Functions.                            **
  7882.           **                                       **
  7883.           *******************************************
  7884.            IDENTIFICATION DIVISION.
  7885.            PROGRAM-ID. CBLDY.
  7886.            DATA DIVISION.
  7887.            WORKING-STORAGE SECTION.
  7888.            01  CHRDATE.
  7889.                02  Vstring-length      PIC S9(4) COMP.
  7890.                02  Vstring-text.
  7891.                    03  Vstring-char    PIC X,
  7892.                                OCCURS 0 TO 256 TIMES,
  7893.                                DEPENDING ON Vstring-length
  7894.                                    of CHRDATE.
  7895.            01  PICSTR.
  7896.                02  Vstring-length      PIC S9(4) COMP.
  7897.                02  Vstring-text.
  7898.                    03  Vstring-char    PIC X,
  7899.                                OCCURS 0 TO 256 TIMES,
  7900.                                DEPENDING ON Vstring-length
  7901.                                    of  PICSTR.
  7902.            01  LILIAN                  PIC S9(9) COMP.
  7903.            01  NEWDATE                 PIC 9(8).
  7904.            01  FC.
  7905.                02  Condition-Token-Value.
  7906.                COPY  CEEIGZCT.
  7907.                    03  Case-1-Condition-ID.
  7908.                        04  Severity        PIC S9(4) COMP.
  7909.                        04  Msg-No          PIC S9(4) COMP.
  7910.                    03  Case-2-Condition-ID
  7911.                              REDEFINES Case-1-Condition-ID.
  7912.                        04  Class-Code      PIC S9(4) COMP.
  7913.                        04  Cause-Code      PIC S9(4) COMP.
  7914.                    03  Case-Sev-Ctl    PIC X.
  7915.                    03  Facility-ID     PIC XXX.
  7916.                02  I-S-Info            PIC S9(9) COMP.
  7917.            PROCEDURE DIVISION.
  7918.            PARA-CBLDAYS.
  7919.           ** Specify input date and length
  7920.                MOVE 25 TO Vstring-length of CHRDATE.
  7921.                MOVE '1 January 00'
  7922.                    to Vstring-text of CHRDATE.
  7923.  
  7924.           ** Specify a picture string that describes
  7925.           **     input date, and the picture string's length.
  7926.                MOVE 23 TO Vstring-length of PICSTR.
  7927.                MOVE 'ZD Mmmmmmmmmmmmmmz YY'
  7928.                    TO Vstring-text of PICSTR.
  7929.  
  7930.           ** Call CEECBLDY to convert input date to a
  7931.           **     COBOL Lilian date
  7932.                CALL 'CEECBLDY' USING CHRDATE , PICSTR ,
  7933.                    LILIAN , FC.
  7934.  
  7935.           ** If CEECBLDY runs successfully, then compute
  7936.           **     the date of the the 90th day after the
  7937.           **     input date using Intrinsic Functions
  7938.                IF CEE000 of FC  THEN
  7939.                    COMPUTE LILIAN = LILIAN + 90
  7940.                    COMPUTE NEWDATE = FUNCTION
  7941.                        DATE-OF-INTEGER (LILIAN)
  7942.                    DISPLAY NEWDATE
  7943.                        ' is Lilian day: ' LILIAN
  7944.                ELSE
  7945.                    DISPLAY 'CEEBLDY failed with msg '
  7946.                        Msg-No of FC UPON CONSOLE;
  7947.                    STOP RUN;
  7948.                END-IF.
  7949.                GOBACK.
  7950.  
  7951.  
  7952. ΓòÉΓòÉΓòÉ 3.3.17. CEECMI-Store and Load Message Insert Data ΓòÉΓòÉΓòÉ
  7953.  
  7954. CEECMI copies message insert data and loads the address of that data into the 
  7955. Instance Specific Information (ISI) associated with the condition being 
  7956. processed, after allocating storage for the ISI, if necessary. The number of 
  7957. ISIs per thread is determined by the MSGQ run-time option. See MSGQ. 
  7958.  
  7959. ISIs are released when the value specified in the MSGQ run-time option is 
  7960. exceeded. The least recently used ISI is overwritten. 
  7961.  
  7962. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7963. Γöé                                                  Γöé
  7964. Γöé >>ΓöÇΓöÇCEECMIΓöÇΓöÇ(ΓöÇΓöÇcond_repΓöÇΓöÇ,ΓöÇΓöÇ insert_seq_numΓöÇΓöÇ,ΓöÇΓöÇinsert_dataΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  7965. Γöé                                                  Γöé
  7966. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  7967.  
  7968. cond_rep (input/output) 
  7969.           A condition token that defines the condition for which the 
  7970.           q_data_token is retrieved. 
  7971.  
  7972. insert_seq_num (input) 
  7973.           A 4-byte integer that contains the insert sequence number (such as 
  7974.           insert 1 insert 2). It corresponds to an insert number specified with 
  7975.           an ins tag in the message source file created by the CEEBLDTX 
  7976.           utility. 
  7977.  
  7978. insert_data (input) 
  7979.           A halfword prefixed length string that represents the insert data. 
  7980.           The entire length described in the halfword prefix is used without 
  7981.           truncation. DBCS strings must be enclosed within shift-out (X'0E') 
  7982.           and shift-in (X'0F') characters. 
  7983.  
  7984.           The maximum size for an individual insert_data item is 254 bytes. 
  7985.  
  7986. fc (output) 
  7987.           A 12-byte feedback code, optional in some languages, that indicates 
  7988.           the result of this service. 
  7989.  
  7990.           The following symbolic conditions can result from this service: 
  7991.  
  7992.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  7993.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  7994.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  7995.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7996.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  7997.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  7998.                     Γöé CEE0EB     Γöé 3        Γöé 0459      Γöé Not enough storage was available to create a  Γöé
  7999.                     Γöé        Γöé         Γöé         Γöé new instance specific information block.    Γöé
  8000.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8001.                     Γöé CEE0EC     Γöé 1        Γöé 0460      Γöé Multiple instances of the condition token with Γöé
  8002.                     Γöé        Γöé         Γöé         Γöé message number message-number and facility ID  Γöé
  8003.                     Γöé        Γöé         Γöé         Γöé facility-id were detected.           Γöé
  8004.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8005.                     Γöé CEE0ED     Γöé 3        Γöé 0461      Γöé The maximum number of unique message insert   Γöé
  8006.                     Γöé        Γöé         Γöé         Γöé blocks was reached.  This condition token had  Γöé
  8007.                     Γöé        Γöé         Γöé         Γöé its IS-data field set to 1.           Γöé
  8008.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8009.                     Γöé CEE0EE     Γöé 3        Γöé 0462      Γöé Instance specific information for the condi-  Γöé
  8010.                     Γöé        Γöé         Γöé         Γöé tion token with message number message-number  Γöé
  8011.                     Γöé        Γöé         Γöé         Γöé and facility ID facility-id could not be    Γöé
  8012.                     Γöé        Γöé         Γöé         Γöé found.                     Γöé
  8013.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8014.                     Γöé CEE0EF     Γöé 3        Γöé 0463      Γöé The maximum size for an insert data item was  Γöé
  8015.                     Γöé        Γöé         Γöé         Γöé exceeded.                    Γöé
  8016.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8017.                     Γöé CEE0H9     Γöé 3        Γöé 0553      Γöé An internal error was detected in populating  Γöé
  8018.                     Γöé        Γöé         Γöé         Γöé the inserts for a condition.          Γöé
  8019.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  8020.  
  8021. Usage Note 
  8022.  
  8023.  OpenEdition MVS consideration-In multithread applications, CEECMI affects 
  8024.   message insert data for only the calling thread. 
  8025.  
  8026. Examples 
  8027.  
  8028.  C/370 Example 
  8029.  
  8030.     /*COMPILATION UNIT: EDCCMI    */
  8031.        /**************************************************
  8032.         **                                               *
  8033.         ** FUNCTION: CEENCOD - set up a condition token  *
  8034.         **         : CEECMI  - store and load message    *
  8035.         **                     insert data               *
  8036.         **         : CEEMSG  - retrieve, format, and     *
  8037.         **                     dispatch a message to     *
  8038.         **                     message file              *
  8039.         **                                               *
  8040.         **   This example illustrates the invocation of  *
  8041.         **   the LE/370 message services to store and     *
  8042.         **   load message insert data.                   *
  8043.         **   The resulting message and insert is written *
  8044.         **   to the LE/370 MSGFILE ddname.                *
  8045.         **                                               *
  8046.         **************************************************/
  8047.     #include <stdio.h>
  8048.     #include <string.h>
  8049.     #include <leawi.h>
  8050.     #include <ceeedcct.h>
  8051.  
  8052.     void main ()
  8053.     {
  8054.       _INT2 c_1,c_2,cond_case,sev,control;
  8055.       _CHAR3 facid;
  8056.       _INT4 isi;
  8057.       _VSTRING insert;
  8058.       _FEEDBACK ctok;
  8059.       _FEEDBACK fbcode;
  8060.       _INT4 MSGFILE;
  8061.       _INT4 insert_no ;
  8062.       /* Condition Token Declarations */
  8063.  
  8064.       /****************************************************
  8065.        * EXMPLMSG is a token that represents message      *
  8066.        * number 10 in a user message file constructed     *
  8067.        * using the CEEBLDTXT facility.                    *
  8068.        * Message 10 is designed to allow one insert.      *
  8069.        ****************************************************/
  8070.       insert.length = 18;
  8071.       memcpy(insert.string ,"<CEPGCMI's insert>",
  8072.              insert.length);
  8073.  
  8074.       /*give ctok value of hex 0000000A40E7D4D700000000   */
  8075.       /*sev = 0  msgno =  10 facid = XMP                  */
  8076.        c_1 = 0;
  8077.        c_2 = 10;
  8078.        cond_case = 1;
  8079.        sev = 0;
  8080.        control = 0;
  8081.        memcpy(facid,"XMP",3);
  8082.        isi = 0;
  8083.  
  8084.       /********************************************/
  8085.       /* Call CEENCOD to set-up a condition token */
  8086.       /********************************************/
  8087.        CEENCOD(&c_1,&c_2,&cond_case,&sev,&control,
  8088.                facid,&isi,&ctok,&fbcode);
  8089.        if ( _FBCHECK ( fbcode , CEE000 ) != 0 )
  8090.         printf("CEENCOD failed with message number %d\n",
  8091.                 fbcode.tok_msgno);
  8092.  
  8093.       /******************************************/
  8094.       /* Call CEECMI to create a message insert */
  8095.       /******************************************/
  8096.        CEECMI(&ctok, &insert_no, &insert, &fbcode);
  8097.       /* ADDED BY ROB */
  8098.        if ( _FBCHECK ( fbcode , CEE000 ) != 0 )
  8099.         printf("CEECMI failed with message number %d\n",
  8100.                 fbcode.tok_msgno);
  8101.  
  8102.       /******************************************/
  8103.       /* Call CEEMSG to issue the message       */
  8104.       /******************************************/
  8105.        CEEMSG(&ctok, &MSGFILE , &fbcode);
  8106.       /* ADDED BY ROB */
  8107.        if ( _FBCHECK ( fbcode , CEE000 ) != 0 )
  8108.         printf("CEEMSG failed with message number %d\n",
  8109.                 fbcode.tok_msgno);
  8110.  
  8111.      }
  8112.  
  8113.  COBOL/370 Example 
  8114.  
  8115.     CBL LIB,APOST
  8116.           *COMPILATION UNIT: IGZTCMI
  8117.           ***********************************************
  8118.           **                                            *
  8119.           ** Function: CEECMI  - Store and load message *
  8120.           **                     insert data            *
  8121.           **         : CEENCOD - Construct a condition  *
  8122.           **                     token                  *
  8123.           **         : CEEMSG  - Dispatch a Message.    *
  8124.           **                                            *
  8125.           **   This example illustrates the invocation  *
  8126.           **   of the LE/370 message services to        *
  8127.           **   store and load message insert data.      *
  8128.           **   CEENCOD is called to construct a token   *
  8129.           **   for a user defined message (message 10)  *
  8130.           **   in a user message file.                  *
  8131.           **   CEECMI is called to insert text into     *
  8132.           **   message 10. The resulting message and    *
  8133.           **   insert is written to the MSGFILE.        *
  8134.           **                                            *
  8135.           ***********************************************
  8136.            IDENTIFICATION DIVISION.
  8137.            PROGRAM-ID. CBLCMI.
  8138.            DATA DIVISION.
  8139.            WORKING-STORAGE SECTION.
  8140.            01  INSERTNO                PIC S9(9) COMP.
  8141.            01  CTOK                    PIC X(12).
  8142.            01  FBCODE.
  8143.                02  Condition-Token-Value.
  8144.                COPY  CEEIGZCT.
  8145.                    03  Case-1-Condition-ID.
  8146.                        04  Severity        PIC S9(4) COMP.
  8147.                        04  Msg-No          PIC S9(4) COMP.
  8148.                    03  Case-2-Condition-ID
  8149.                              REDEFINES Case-1-Condition-ID.
  8150.                        04  Class-Code      PIC S9(4) COMP.
  8151.                        04  Cause-Code      PIC S9(4) COMP.
  8152.                    03  Case-Sev-Ctl    PIC X.
  8153.                    03  Facility-ID     PIC XXX.
  8154.                02  I-S-Info            PIC S9(9) COMP.
  8155.            01  MSGDEST                 PIC S9(9) COMP.
  8156.            01  SEV                     PIC S9(4) COMP.
  8157.            01  MSGNO                   PIC S9(4) COMP.
  8158.            01  CASE                    PIC S9(4) COMP.
  8159.            01  SEV2                    PIC S9(4) COMP.
  8160.            01  CNTRL                   PIC S9(4) COMP.
  8161.            01  FACID                   PIC X(3).
  8162.            01  ISINFO                  PIC S9(9) COMP.
  8163.            01  VSTRING.
  8164.                05  INSERT-TXTL         PIC S9(4) COMP.
  8165.                05  INSERT-TXT          PIC X(80).
  8166.            PROCEDURE DIVISION.
  8167.            PARA-CEPGCMI.
  8168.           *  ********************************************
  8169.           *   Set up token fields for creation of a
  8170.           *   condition token for the user defined
  8171.           *   message file and message number.
  8172.           *  ********************************************
  8173.                MOVE   0 TO SEV.
  8174.                MOVE  10 TO MSGNO.
  8175.                MOVE   1 TO CASE.
  8176.                MOVE   0 TO SEV2.
  8177.                MOVE   0 TO CNTRL.
  8178.                MOVE 'XMP' TO FACID.
  8179.                MOVE   0 TO ISINFO.
  8180.           *  ********************************************
  8181.           *   Call CEENCOD to construct a condition token
  8182.           *  ********************************************
  8183.                CALL 'CEENCOD' USING SEV , MSGNO , CASE ,
  8184.                    SEV2 , CNTRL , FACID , ISINFO ,
  8185.                    CTOK , FBCODE.
  8186.                IF NOT CEE000 of FBCODE  THEN
  8187.                    DISPLAY 'CEENCOD failed with msg'
  8188.                        Msg-No of FBCODE UPON CONSOLE;
  8189.                    STOP RUN;
  8190.                END-IF.
  8191.           *  ********************************************
  8192.           *   Call CEECMI to store and load message
  8193.           *   insert 1.
  8194.           *  ********************************************
  8195.                MOVE '<CEPGCMI''s insert>' TO INSERT-TXT.
  8196.                MOVE 19 TO INSERT-TXTL.
  8197.                MOVE 1 TO INSERTNO.
  8198.                CALL 'CEECMI' USING CTOK, INSERTNO, VSTRING.
  8199.           *  ********************************************
  8200.           *   Call CEEMSG to write message to MSGFILE
  8201.           *  ********************************************
  8202.                MOVE 2 TO MSGDEST.
  8203.                CALL 'CEEMSG' USING CTOK , MSGDEST , FBCODE.
  8204.                IF  NOT CEE000 of FBCODE  THEN
  8205.                    DISPLAY 'CEEMSG failed with msg '
  8206.                        Msg-No of FBCODE UPON CONSOLE;
  8207.                    STOP RUN;
  8208.                END-IF.
  8209.                GOBACK.
  8210.  
  8211.  PL/I Example 
  8212.  
  8213.     *PROCESS MACRO;
  8214.      IBMCMI: Proc Options(Main);
  8215.  
  8216.        /***************************************************
  8217.         **                                                *
  8218.         ** FUNCTION  : CEECMI  - store and load message   *
  8219.         **                      insert data               *
  8220.         **           : CEEMSG  - retrieve, format, and    *
  8221.         **                      dispatch a message to     *
  8222.         **                      message file              *
  8223.         **                                                *
  8224.         **   This example illustrates the invocation of   *
  8225.         **   LE/370 message services to store and load    *
  8226.         **   message insert data. The resulting message   *
  8227.         **   and insert are written to the MSGFILE.       *
  8228.         **                                                *
  8229.         **************************************************/
  8230.  
  8231.         %INCLUDE  CEEIBMAW;
  8232.         %INCLUDE  CEEIBMCT;
  8233.  
  8234.         DECLARE INSERT     VSTRING;
  8235.         DECLARE 01 CTOK    FEEDBACK;
  8236.  
  8237.         DECLARE 01 FBCODE  FEEDBACK;
  8238.         DECLARE MSGFILE    INT4;
  8239.         DECLARE INSERT_NO  INT4;
  8240.  
  8241.         /*************************************************/
  8242.         /* Ctok is initialized in the DECLARE statement  */
  8243.         /* to message 10 in a user message file          */
  8244.         /* constructed using the CEEBLDTX tool.          */
  8245.         /* Message 10 is designed to allow one insert.   */
  8246.         /* The message facility ID is XMP.               */
  8247.         /*************************************************/
  8248.         insert = '<CEPGCMI''s insert>';
  8249.         insert_no = 1;
  8250.  
  8251.         /******************************************/
  8252.         /* Call CEECMI to create a message insert */
  8253.         /******************************************/
  8254.         Call CEECMI(ctok, insert_no, insert, *);
  8255.  
  8256.         /******************************************/
  8257.         /* Call CEEMSG to issue the message       */
  8258.         /******************************************/
  8259.         MSGFILE = 2;
  8260.         Call CEEMSG(ctok, MSGFILE, *);
  8261.  
  8262.      End IBMCMI;
  8263.  
  8264.  
  8265. ΓòÉΓòÉΓòÉ 3.3.18. CEECRHP-Create New Additional Heap ΓòÉΓòÉΓòÉ
  8266.  
  8267. CEECRHP lets you define additional heaps. It returns a unique heap_id. The 
  8268. heaps defined by CEECRHP can be used just like the initial heap (heap_id=0), 
  8269. below heap, and anywhere heap. Unlike the heaps created by these heap services, 
  8270. all heap elements within an additional heap can be quickly freed by a single 
  8271. call to CEEDSHP (discard heap). See CEEDSHP-Discard Heap. 
  8272.  
  8273. The opposite of CEECRHP is CEEDSHP, which discards an entire heap. The number 
  8274. of heaps supported by LE/370 is limited only by the amount of virtual storage 
  8275. available. 
  8276.  
  8277. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  8278. Γöé                                                  Γöé
  8279. Γöé >>ΓöÇΓöÇCEECRHPΓöÇΓöÇ(ΓöÇΓöÇheap_idΓöÇΓöÇ,ΓöÇΓöÇinitial_sizeΓöÇΓöÇ,ΓöÇΓöÇincrementΓöÇΓöÇ,ΓöÇΓöÇoptionsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  8280. Γöé                                                  Γöé
  8281. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  8282.  
  8283. heap_id (output) 
  8284.           A fullword binary signed integer. heap_id is the heap identifier of 
  8285.           the created heap. If a new heap cannot be created, the value of 
  8286.           heap_id remains undefined. 
  8287.  
  8288.           Storage obtained from heap_ids 79 and 80 is set to binary 0 
  8289.           independent of any initialization value specified by the STORAGE 
  8290.           option. 
  8291.  
  8292. initial_size (input) 
  8293.           A fullword binary signed integer. initial_size is the initial amount 
  8294.           of storage, in bytes, allocated for the new heap. initial_size is 
  8295.           rounded up to the nearest increment of 4096 bytes. 
  8296.  
  8297.           If initial_size is specified as 0, then the init_size specified in 
  8298.           the HEAP run-time option is used. If no HEAP run-time option was 
  8299.           provided and initial_size is specified as 0, CEECRHP uses the 
  8300.           installation default. See HEAP for more information about the HEAP 
  8301.           run-time option and IBM-supplied defaults. 
  8302.  
  8303. increment (input) 
  8304.           A fullword binary signed integer. When it is necessary to enlarge the 
  8305.           heap to satisfy an allocation request, increment represents the 
  8306.           number of bytes by which the heap is extended. increment is rounded 
  8307.           up to the nearest 4096 bytes. 
  8308.  
  8309.           If increment is specified as 0, then the incr_size specified in the 
  8310.           HEAP run time option is used. If no HEAP run-time option was provided 
  8311.           and increment equals 0, CEECRHP uses the installation default. See 
  8312.           HEAP for more information about the HEAP run-time option and 
  8313.           IBM-supplied defaults. 
  8314.  
  8315. options (input) 
  8316.           A fullword binary signed integer. options are specified with the 
  8317.           decimal codes as shown in HEAP Attributes Based on the Setting of the 
  8318.           options Parameter. 
  8319.  
  8320.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  8321.                     Γöé Table 17. HEAP Attributes Based on the Setting of the options Parameter              Γöé
  8322.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8323.                     Γöé OPTION SETTING   Γöé HEAP ATTRIBUTES                                Γöé
  8324.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8325.                     Γöé 00         Γöé Use same attributes as the initial heap (copy them from the HEAP run-time   Γöé
  8326.                     Γöé          Γöé option)                                    Γöé
  8327.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8328.                     Γöé 01         Γöé HEAP(,,,FREE) (location inherited from HEAP run-time option)         Γöé
  8329.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8330.                     Γöé 70         Γöé HEAP(,,,KEEP) (location inherited from HEAP run-time option)         Γöé
  8331.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8332.                     Γöé 71         Γöé HEAP(,,ANYWHERE,KEEP)                             Γöé
  8333.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8334.                     Γöé 72         Γöé HEAP(,,ANYWHERE,FREE)                             Γöé
  8335.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8336.                     Γöé 73         Γöé HEAP(,,BELOW,KEEP)                              Γöé
  8337.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8338.                     Γöé 74         Γöé HEAP(,,BELOW,FREE)                              Γöé
  8339.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8340.                     Γöé 75         Γöé HEAP(,,ANYWHERE,)(disposition inherited from the HEAP run-time option)    Γöé
  8341.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8342.                     Γöé 76         Γöé HEAP(,,BELOW,)(disposition inherited from the HEAP run-time option)      Γöé
  8343.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8344.                     Γöé 77         Γöé HEAP(,,ANYWHERE,KEEP) (all heap storage obtained using this heap_id is allo- Γöé
  8345.                     Γöé          Γöé cated on a 4K boundary)                            Γöé
  8346.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8347.                     Γöé 78         Γöé HEAP(,,ANYWHERE,FREE) (all heap storage obtained using this heap_id is allo- Γöé
  8348.                     Γöé          Γöé cated on a 4K boundary)                            Γöé
  8349.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8350.                     Γöé 79         Γöé HEAP(,,ANYWHERE,KEEP) (all heap storage obtained using this heap_id is set  Γöé
  8351.                     Γöé          Γöé to binary 0 when allocated using CEEGTST)                   Γöé
  8352.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8353.                     Γöé 80         Γöé HEAP(,,ANYWHERE,FREE) (all heap storage obtained using this heap_id is set  Γöé
  8354.                     Γöé          Γöé to binary 0 when allocated using CEEGTST)                   Γöé
  8355.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  8356.  
  8357. fc (output) 
  8358.           A 12-byte feedback code, optional in some languages, that indicates 
  8359.           the result of this service. 
  8360.  
  8361.           The following symbolic conditions can result from this service: 
  8362.  
  8363.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  8364.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  8365.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  8366.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8367.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  8368.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8369.                     Γöé CEE0P2     Γöé 4        Γöé 0802      Γöé Heap storage control information was damaged.  Γöé
  8370.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8371.                     Γöé CEE0P4     Γöé 3        Γöé 0804      Γöé The initial size value supplied in a create   Γöé
  8372.                     Γöé        Γöé         Γöé         Γöé heap request was unsupported.          Γöé
  8373.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8374.                     Γöé CEE0P5     Γöé 3        Γöé 0805      Γöé The increment size value supplied in a create  Γöé
  8375.                     Γöé        Γöé         Γöé         Γöé heap request was unsupported.          Γöé
  8376.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8377.                     Γöé CEE0P6     Γöé 3        Γöé 0806      Γöé The options value supplied in a create heap   Γöé
  8378.                     Γöé        Γöé         Γöé         Γöé request was unrecognized.            Γöé
  8379.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8380.                     Γöé CEE0PD     Γöé 3        Γöé 0813      Γöé Insufficient storage was available to satisfy  Γöé
  8381.                     Γöé        Γöé         Γöé         Γöé a get storage request.             Γöé
  8382.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  8383.  
  8384. Usage Note 
  8385.  
  8386.  OpenEdition MVS consideration-CEECRHP applies to the enclave. 
  8387.  
  8388. Examples 
  8389.  
  8390.  C/370 Example 
  8391.  
  8392.     /*COMPILATION UNIT: EDCCRHP   */
  8393.  
  8394.     #include <stdio.h>
  8395.     #include <string.h>
  8396.     #include <leawi.h>
  8397.     #include <ceeedcct.h>
  8398.  
  8399.     int main(void) {
  8400.  
  8401.        _INT4 heapid, size, increment, options;
  8402.        _FEEDBACK fc;
  8403.      /*  .
  8404.          .
  8405.          .  */
  8406.        heapid = 0;        /* heap identifier is set */
  8407.                           /* by CEECRHP */
  8408.        size = 4096;       /* initial size of heap  (in */
  8409.                           /* bytes) */
  8410.        increment = 4096;  /* increment to extend heap by */
  8411.        options = 72;      /* set up heap as */
  8412.                           /* (,,ANYWHERE,FREE) */
  8413.  
  8414.        /* create heap using CEECRHP */
  8415.        CEECRHP(&heapid,&size,&increment,&options,&fc);
  8416.  
  8417.        /* check the first 4 bytes of the feedback token */
  8418.        /* (0 if successful)  */
  8419.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  8420.           printf("CEECRHP failed with message number %d\n",
  8421.                  fc.tok_msgno);
  8422.           exit(99);
  8423.        }
  8424.      /*  .
  8425.          .
  8426.          .  */
  8427.        /* discard the heap that was previously created  */
  8428.        /* using CEECRHP */
  8429.        CEEDSHP(&heapid,&fc);
  8430.  
  8431.        /* check the first 4 bytes of the feedback token */
  8432.        /* (0 if successful) */
  8433.        if ( _FBCHECK ( fc , CEE000) != 0 ) {
  8434.           printf("CEEDSHP failed with message number %d\n",
  8435.                  fc.tok_msgno);
  8436.           exit(99);
  8437.        }
  8438.      /*  .
  8439.          .
  8440.          .  */
  8441.     }
  8442.  
  8443.  COBOL/370 Example 
  8444.  
  8445.     CBL LIB,APOST
  8446.           *COMPILATION UNIT: IGZTCRHP
  8447.           ***********************************************
  8448.           **                                           **
  8449.           ** Function: CEECRHP - create new additional **
  8450.           **                     heap                  **
  8451.           **                                           **
  8452.           ***********************************************
  8453.            IDENTIFICATION DIVISION.
  8454.            PROGRAM-ID. CBLCRHP.
  8455.            DATA DIVISION.
  8456.            WORKING-STORAGE SECTION.
  8457.            01  HEAPID                  PIC S9(9) COMP.
  8458.            01  HPSIZE                  PIC S9(9) COMP.
  8459.            01  INCR                    PIC S9(9) COMP.
  8460.            01  OPTS                    PIC S9(9) COMP.
  8461.            01  FC.
  8462.                02  Condition-Token-Value.
  8463.                COPY  CEEIGZCT.
  8464.                    03  Case-1-Condition-ID.
  8465.                        04  Severity        PIC S9(4) COMP.
  8466.                        04  Msg-No          PIC S9(4) COMP.
  8467.                    03  Case-2-Condition-ID
  8468.                              REDEFINES Case-1-Condition-ID.
  8469.                        04  Class-Code      PIC S9(4) COMP.
  8470.                        04  Cause-Code      PIC S9(4) COMP.
  8471.                    03  Case-Sev-Ctl    PIC X.
  8472.                    03  Facility-ID     PIC XXX.
  8473.                02  I-S-Info            PIC S9(9) COMP.
  8474.            PROCEDURE DIVISION.
  8475.           ** Specify 0 for HEAPID, and heap id will be
  8476.           **     set by CEECRHP.
  8477.           ** Heap size and increment will each be
  8478.           **     4096 bytes.
  8479.           ** Specify 00 for OPTS, and HEAP attributes
  8480.           **     will be inherited from the initial heap
  8481.           **     (copied from the HEAP run-time option).
  8482.                MOVE 0 TO HEAPID.
  8483.                MOVE 4096 TO HPSIZE.
  8484.                MOVE 4096 TO INCR.
  8485.                MOVE 00 TO OPTS.
  8486.  
  8487.                CALL 'CEECRHP' USING HEAPID , HPSIZE ,
  8488.                    INCR , OPTS , FC.
  8489.                IF CEE000 of FC  THEN
  8490.                    DISPLAY 'Created heap number ' HEAPID
  8491.                         ' which is ' HPSIZE ' bytes long'
  8492.                ELSE
  8493.                    DISPLAY 'CEECRHP failed with msg '
  8494.                        Msg-No of FC UPON CONSOLE;
  8495.                    STOP RUN;
  8496.                END-IF.
  8497.                GOBACK.
  8498.  
  8499.  PL/I Example 
  8500.  
  8501.     *PROCESS MACRO;
  8502.      /*COMPILATION UNIT: IBMCRHP                       */
  8503.  
  8504.      /**************************************************/
  8505.      /**                                               */
  8506.      /** Function: CEECRHP - create new additional     */
  8507.      /**                     heap                      */
  8508.      /**                                               */
  8509.      /** In this example, CEECRHP is called to set up  */
  8510.      /** a new additional heap of 4096 bytes. Each     */
  8511.      /** time the heap needs to be extended, an        */
  8512.      /** increment of 4096 bytes will be added.        */
  8513.      /**                                               */
  8514.      /**************************************************/
  8515.      PLICRHP: PROC OPTIONS(MAIN);
  8516.  
  8517.         %INCLUDE  CEEIBMAW;
  8518.         %INCLUDE  CEEIBMCT;
  8519.         DCL HEAPID  INT4 ;
  8520.         DCL HPSIZE  INT4 ;
  8521.         DCL INCR    INT4 ;
  8522.         DCL OPTS    INT4 ;
  8523.         DCL 01 FC   FEEDBACK ;
  8524.  
  8525.         HEAPID = 0;    /* HEAPID will be set and     */
  8526.                        /* returned by CEECRHP        */
  8527.         HPSIZE = 4096; /* Initial size of heap,      */
  8528.                        /* in bytes                   */
  8529.         INCR = 4096;   /* Number of bytes to extend  */
  8530.                        /* heap by                    */
  8531.         OPTS = 00;     /* Set up heap with the same  */
  8532.                        /* attributes as the          */
  8533.                        /* initial heap (HEAPID = 0)  */
  8534.  
  8535.         /* Call CEECRHP to set up new heap  */
  8536.         CALL CEECRHP ( HEAPID, HPSIZE, INCR, OPTS, FC );
  8537.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  8538.            PUT SKIP LIST( 'Created heap number ' || HEAPID
  8539.               || ' consisting of ' || HPSIZE || ' bytes' );
  8540.            END;
  8541.         ELSE  DO;
  8542.            DISPLAY( 'CEECRHP failed with msg '
  8543.               || FC.MsgNo );
  8544.            STOP;
  8545.            END;
  8546.  
  8547.      END PLICRHP;
  8548.  
  8549.  
  8550. ΓòÉΓòÉΓòÉ 3.3.19. CEECZST-Reallocate (Change Size of) Storage ΓòÉΓòÉΓòÉ
  8551.  
  8552. CEECZST changes the size of a previously allocated heap element. The address 
  8553. parameter points to the beginning of the heap element. The new_size parameter 
  8554. gives the new size of the heap element, in bytes. The contents of the heap 
  8555. element are unchanged up to the shorter of the new and old sizes. 
  8556.  
  8557. The CEECZST service returns a pointer to the reallocated heap element. It can 
  8558. move the storage location of the heap element. As a result, the address 
  8559. parameter passed to CEECZST is not necessarily the same as the value returned. 
  8560.  
  8561. Because the new storage might be allocated at a different location from the 
  8562. existing allocation, any pointers (specifically any machine addresses) that 
  8563. referred to the old storage become invalid. Continued use of such dangling 
  8564. pointers gives unpredictable, and almost certainly incorrect, results. 
  8565.  
  8566. The heap identifier is inferred from the address. The new storage block is 
  8567. allocated from the same heap that contained the old block. 
  8568.  
  8569. The contents of the old storage are preserved in the following manner: 
  8570.  
  8571.  If new_size is equal to or greater than the old size, the entire contents of 
  8572.   the old storage block are copied to the new block. The remaining bytes in the 
  8573.   new element are left uninitialized (unless the STORAGE run-time option is in 
  8574.   effect-see STORAGE for more information). 
  8575.  If new_size is less than the old size, the contents of the old block are 
  8576.   truncated to the size of the new block. 
  8577.  If new_size is equal to the old size, no operations are performed; a 
  8578.   successful feedback code is returned. 
  8579.  
  8580. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  8581. Γöé                                                  Γöé
  8582. Γöé >>ΓöÇΓöÇCEECZSTΓöÇΓöÇ(ΓöÇΓöÇaddressΓöÇΓöÇ,ΓöÇΓöÇnew_sizeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  8583. Γöé                                                  Γöé
  8584. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  8585.  
  8586. address (input/output) 
  8587.           A fullword address pointer. On input, this parameter contains an 
  8588.           address returned by a previous CEEGTST call. For information about 
  8589.           CEEGTST, see CEEGTST-Get Heap Storage. On output, the address of the 
  8590.           first byte of the newly allocated storage is returned in this 
  8591.           parameter. 
  8592.  
  8593. new_size (input) 
  8594.           A fullword binary signed integer. new_size is the number of bytes of 
  8595.           storage to be allocated for the new heap element. 
  8596.  
  8597. fc (output) 
  8598.           A 12-byte feedback code, optional in some languages, that indicates 
  8599.           the result of this service. 
  8600.  
  8601.           The following symbolic conditions can result from this service: 
  8602.  
  8603.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  8604.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  8605.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  8606.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8607.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  8608.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8609.                     Γöé CEE0P2     Γöé 4        Γöé 0802      Γöé Heap storage control information was damaged.  Γöé
  8610.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8611.                     Γöé CEE0P8     Γöé 3        Γöé 0808      Γöé Storage size in a get storage request or a   Γöé
  8612.                     Γöé        Γöé         Γöé         Γöé re-allocate request was not a positive number. Γöé
  8613.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8614.                     Γöé CEE0PA     Γöé 3        Γöé 0810      Γöé The storage address in a free storage request  Γöé
  8615.                     Γöé        Γöé         Γöé         Γöé was not recognized, or heap storage control   Γöé
  8616.                     Γöé        Γöé         Γöé         Γöé information was damaged.            Γöé
  8617.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8618.                     Γöé CEE0PD     Γöé 3        Γöé 0813      Γöé Insufficient storage was available to satisfy  Γöé
  8619.                     Γöé        Γöé         Γöé         Γöé a get storage request.             Γöé
  8620.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  8621.  
  8622. Usage Notes 
  8623.  
  8624.  Storage that is reallocated maintains the same mark/release status as the old 
  8625.   storage block. If the old storage block was marked, the new storage block 
  8626.   carries the same mark and is released by a release operation that specifies 
  8627.   that mark. 
  8628.  
  8629.  OpenEdition MVS consideration-CEECZST applies to the enclave. 
  8630.  
  8631. Examples 
  8632.  
  8633.  C/370 Example 
  8634.  
  8635.     /*COMPILATION UNIT: EDCCZST   */
  8636.  
  8637.     #include <stdio.h>
  8638.     #include <string.h>
  8639.     #include <leawi.h>
  8640.     #include <ceeedcct.h>
  8641.  
  8642.     int main(void) {
  8643.  
  8644.        _INT4 heapid, size;
  8645.        _POINTER address;
  8646.        _FEEDBACK fc;
  8647.       /* .
  8648.          .
  8649.          .  */
  8650.        heapid = 0;    /* get storage from initial heap */
  8651.        size = 4000;   /* number of bytes of heap storage */
  8652.  
  8653.        /* obtain the storage using CEEGTST */
  8654.        CEEGTST(&heapid,&size,&address,&fc);
  8655.  
  8656.        /* check the first 4 bytes of the feedback token */
  8657.        /* (0 if successful) */
  8658.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  8659.           printf("CEEGTST failed with message number %d\n",
  8660.                  fc.tok_msgno);
  8661.           exit(99);
  8662.        }
  8663.       /* .
  8664.          .
  8665.          .  */
  8666.        size = 2000;  /* new size of storage element */
  8667.  
  8668.        /* change the size of the storage element */
  8669.        CEECZST(&address,&size,&fc);
  8670.  
  8671.        /* check the first 4 bytes of the feedback token */
  8672.        /* (0 if successful) */
  8673.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  8674.           printf("CEECZST failed with message number %d\n",
  8675.                   fc.tok_msgno);
  8676.           exit(99);
  8677.        }
  8678.       /* .
  8679.          .
  8680.          .  */
  8681.        /* free the storage that was previously obtained */
  8682.        /* using CEEGTST */
  8683.        CEEFRST(&address,&fc);
  8684.  
  8685.        /* check the first 4 bytes of the feedback token */
  8686.        /* (0 if successful) */
  8687.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  8688.           printf("CEEFRST failed with message number %d\n",
  8689.                   fc.tok_msgno);
  8690.           exit(99);
  8691.        }
  8692.       /* .
  8693.          .
  8694.          .  */
  8695.     }
  8696.  
  8697.  COBOL/370 Example 
  8698.  
  8699.     CBL LIB,APOST
  8700.           *COMPILATION UNIT: IGZTCZST
  8701.           ************************************************
  8702.           **                                            **
  8703.           ** Function: CEECZST - reallocate storage     **
  8704.           **                                            **
  8705.           ** In this example, CEEGTST is called to      **
  8706.           ** request storage from HEAPID = 0, and       **
  8707.           ** CEECZST is called to change the size of    **
  8708.           ** that storage request.                      **
  8709.           **                                            **
  8710.           **                                            **
  8711.           ************************************************
  8712.            IDENTIFICATION DIVISION.
  8713.            PROGRAM-ID. CBLCZST.
  8714.            DATA DIVISION.
  8715.            WORKING-STORAGE SECTION.
  8716.            01   HEAPID                 PIC S9(9) COMP.
  8717.            01   HPSIZE                 PIC S9(9) COMP.
  8718.            01   ADDRSS                 PIC S9(9) COMP.
  8719.            01   NEWSIZE                PIC S9(9) COMP.
  8720.            01   FC.
  8721.                02  Condition-Token-Value.
  8722.                COPY  CEEIGZCT.
  8723.                    03  Case-1-Condition-ID.
  8724.                        04  Severity        PIC S9(4) COMP.
  8725.                        04  Msg-No          PIC S9(4) COMP.
  8726.                    03  Case-2-Condition-ID
  8727.                              REDEFINES Case-1-Condition-ID.
  8728.                        04  Class-Code      PIC S9(4) COMP.
  8729.                        04  Cause-Code      PIC S9(4) COMP.
  8730.                    03  Case-Sev-Ctl    PIC X.
  8731.                    03  Facility-ID     PIC XXX.
  8732.                02  I-S-Info            PIC S9(9) COMP.
  8733.            PROCEDURE DIVISION.
  8734.            PARA-CBLGTST.
  8735.           ** Specify 0 to get storage from the initial
  8736.           **     heap. Specify 4000 to get 4000 bytes of
  8737.           **     storage.
  8738.                MOVE 0 TO HEAPID.
  8739.                MOVE 4000 TO HPSIZE.
  8740.  
  8741.           ** Call CEEGTST to obtain storage.
  8742.                CALL 'CEEGTST' USING HEAPID , HPSIZE ,
  8743.                    ADDRSS , FC.
  8744.  
  8745.           ** If CEEGTST runs successfully, display result.
  8746.                IF CEE000 OF FC THEN
  8747.                    DISPLAY ' ' HPSIZE
  8748.                        ' bytes have been allocated.'
  8749.                ELSE
  8750.                    DISPLAY 'CEEGTST failed with msg '
  8751.                        Msg-No of FC UPON CONSOLE;
  8752.                    STOP RUN;
  8753.                END-IF.
  8754.  
  8755.           ** Specify a new size of 2000 bytes.
  8756.                MOVE 2000 TO NEWSIZE.
  8757.  
  8758.           ** Call CEECZST to change the size of the
  8759.           **     storage allocated in the call to CEEGTST.
  8760.                CALL 'CEECZST' USING ADDRSS ,
  8761.                    NEWSIZE , FC.
  8762.  
  8763.           ** If CEECZST runs successfully, display result.
  8764.                IF CEE000 OF FC THEN
  8765.                    DISPLAY
  8766.                        'The storage element now contains '
  8767.                        NEWSIZE ' bytes.'
  8768.                ELSE
  8769.                    DISPLAY 'CEEGTST failed with msg '
  8770.                        Msg-No of FC UPON CONSOLE;
  8771.                    STOP RUN;
  8772.                END-IF.
  8773.                GOBACK.
  8774.  
  8775.  PL/I Example 
  8776.  
  8777.     *PROCESS MACRO;
  8778.      /*COMPILATION UNIT: IBMCZST                        */
  8779.      /***************************************************/
  8780.      /**                                               **/
  8781.      /** Function: CEECZST - reallocate storage        **/
  8782.      /**                                               **/
  8783.      /** In this example, CEEGTST is called to request **/
  8784.      /** storage from HEAPID = 0, and CEECZST is called**/
  8785.      /** to change the size of that storage request.   **/
  8786.      /**                                               **/
  8787.      /**                                               **/
  8788.      /***************************************************/
  8789.      PLICZST: PROC OPTIONS(MAIN);
  8790.  
  8791.         %INCLUDE  CEEIBMAW;
  8792.         %INCLUDE  CEEIBMCT;
  8793.  
  8794.         DCL HEAPID   INT4 ;
  8795.         DCL STGSIZE  INT4 ;
  8796.         DCL ADDRSS1  POINTER;
  8797.         DCL 01 FC1   FEEDBACK ;
  8798.  
  8799.         DCL ADDRSS2  POINTER;
  8800.         DCL NEWSIZE  INT4 ;
  8801.         DCL 01 FC2   FEEDBACK ;
  8802.  
  8803.         HEAPID = 0;    /* get storage from initial heap */
  8804.         STGSIZE = 4000; /* get 4000 bytes of storage    */
  8805.  
  8806.         /* Call CEEGTST to obtain the storage           */
  8807.         CALL CEEGTST ( HEAPID, STGSIZE, ADDRSS1, FC1 );
  8808.         IF  FBCHECK( FC1, CEE000)  THEN  DO;
  8809.            PUT SKIP LIST( 'Obtained ' || STGSIZE
  8810.               || ' bytes of storage at location '
  8811.               || DECIMAL( UNSPEC( ADDRSS1 ) )
  8812.               || ' from heap ' || HEAPID );
  8813.            END;
  8814.         ELSE  DO;
  8815.            DISPLAY( 'CEEGTST failed with msg '
  8816.               || FC1.MsgNo );
  8817.            STOP;
  8818.            END;
  8819.  
  8820.         NEWSIZE = 2000;
  8821.                /* change size of HEAPID 0 to 2000 bytes */
  8822.  
  8823.         /* Call CEECZST to change the size of storage   */
  8824.         ADDRSS2 = ADDRSS1;
  8825.         CALL CEECZST ( ADDRSS2, NEWSIZE , FC2 );
  8826.         IF  FBCHECK( FC2, CEE000)  THEN  DO;
  8827.            PUT SKIP LIST( 'Obtained ' || NEWSIZE
  8828.               || ' bytes of storage at location '
  8829.               || DECIMAL( UNSPEC( ADDRSS1 ) ) );
  8830.            PUT SKIP LIST( 'Original ' || STGSIZE
  8831.               || ' bytes of storage at location '
  8832.               || DECIMAL( UNSPEC( ADDRSS1 ) )
  8833.               || ' no longer valid' );
  8834.            END;
  8835.         ELSE  DO;
  8836.            DISPLAY( 'CEECZST failed with msg '
  8837.               || FC2.MsgNo );
  8838.            STOP;
  8839.            END;
  8840.  
  8841.      END PLICZST;
  8842.  
  8843.  
  8844. ΓòÉΓòÉΓòÉ 3.3.20. CEEDATE-Convert Lilian Date to Character Format ΓòÉΓòÉΓòÉ
  8845.  
  8846. CEEDATE converts a number representing a Lilian date to a date written in 
  8847. character format. The output is a character string, such as 1993/09/09. 
  8848.  
  8849. The inverse of CEEDATE is CEEDAYS, which converts character dates to the Lilian 
  8850. format. 
  8851.  
  8852. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  8853. Γöé                                                  Γöé
  8854. Γöé >>ΓöÇΓöÇCEEDATEΓöÇΓöÇ(ΓöÇΓöÇinput_Lilian_dateΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_char_dateΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  8855. Γöé                                                  Γöé
  8856. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  8857.  
  8858. input_Lilian_date (input) 
  8859.           A 32-bit integer representing the Lilian date. The Lilian date is the 
  8860.           number of days since 14 October 1582. For example, 16 May 1988 is 
  8861.           Lilian day number 148138. The valid range of Lilian dates is 1 to 
  8862.           3,074,324 (15 October 1582 to 31 December 9999). 
  8863.  
  8864. picture_string (input) 
  8865.           VSTRING, a length-prefixed character string, representing the desired 
  8866.           format of output_char_date, for example MM/DD/YY. Each character in 
  8867.           picture_string represents a character in output_char_date. If 
  8868.           delimiters such as the slash (/) appear in the picture string, they 
  8869.           are copied as is to output_char_date. 
  8870.  
  8871.           See Picture Terms Used in Picture Strings for a list of valid picture 
  8872.           characters, and Examples of Picture Terms Recognized by Date/Time 
  8873.           Services for examples of valid picture strings. 
  8874.  
  8875.           If picture_string is null or blank, CEEDATE obtains picture_string 
  8876.           based on the current value of the COUNTRY run-time option. For 
  8877.           example, if the current value of the COUNTRY run-time option is US 
  8878.           (United States), the date format would be MM/DD/YY. If the current 
  8879.           COUNTRY value is FR (France), the date format would be MM/DD/YY 
  8880.           HH:MM:SS AM (or PM)., for instance,  09/09/93 4:29 PM. This default 
  8881.           mechanism makes it easy for translation centers to specify the 
  8882.           preferred date, and for applications and library routines to use this 
  8883.           format automatically. See COUNTRY for more information about the 
  8884.           COUNTRY run-time option and CEEFMDA-Get Default Date Format for 
  8885.           information about how to obtain the default format for a given 
  8886.           country code. 
  8887.  
  8888.           If picture_string includes a Japanese Era symbol <JJJJ>, the YY 
  8889.           position in output_char_date is replaced by the year number within 
  8890.           the Japanese Era. For example, the year 1988 equals the Japanese year 
  8891.           63 in the Showa era. See Examples of Picture Terms Recognized by 
  8892.           Date/Time Services for an additional example. Also see Japanese Eras 
  8893.           Used by Date/Time Services when <JJJJ> Specified for a list of 
  8894.           Japanese Eras supported by CEEDATE. 
  8895.  
  8896.           If picture_string includes an ROC Era symbol <CCCC> or <CCCCCCCC>, 
  8897.           the YY position in output_char_date is replaced by the year number 
  8898.           within the ROC (Republic of China) Era. For example, the year 1988 
  8899.           equals the ROC year 77 in the MinKow Era. See Examples of Picture 
  8900.           Terms Recognized by Date/Time Services for an additional example. 
  8901.           Also see Republic of China Eras Used by Date/Time Services when 
  8902.           <CCCC>or <CCCCCCCC> Specified for the list of ROC Eras supported by 
  8903.           CEEDATE. 
  8904.  
  8905. output_char_date (output) 
  8906.           VSTRING, a fixed-length 80-character string, is the result of 
  8907.           converting input_Lilian_date to the format specified by 
  8908.           picture_string. See Sample Output of CEEDATE for sample output dates. 
  8909.           If input_Lilian_date is invalid, output_char_  date is set to all 
  8910.           blanks. CEEDATE terminates with a non-CEE000 symbolic feedback code. 
  8911.  
  8912. fc (output) 
  8913.           A 12-byte feedback code, optional in some languages, that indicates 
  8914.           the result of this service. 
  8915.  
  8916.           The following symbolic conditions can result from this service: 
  8917.  
  8918.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  8919.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  8920.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  8921.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8922.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  8923.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8924.                     Γöé CEE2EG     Γöé 3        Γöé 2512      Γöé The Lilian date value was not within the sup-  Γöé
  8925.                     Γöé        Γöé         Γöé         Γöé ported range.                  Γöé
  8926.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8927.                     Γöé CEE2EM     Γöé 3        Γöé 2518      Γöé An invalid picture string was specified.    Γöé
  8928.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8929.                     Γöé CEE2EQ     Γöé 3        Γöé 2522      Γöé <JJJJ>, <CCCC> or <CCCCCCCC> was used in a   Γöé
  8930.                     Γöé        Γöé         Γöé         Γöé picture string passed to CEEDATE, but the    Γöé
  8931.                     Γöé        Γöé         Γöé         Γöé Lilian date value was not within the supported Γöé
  8932.                     Γöé        Γöé         Γöé         Γöé range.  The Era could not be determined.    Γöé
  8933.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  8934.                     Γöé CEE2EU     Γöé 2        Γöé 2526      Γöé The date string returned by CEEDATE was trun-  Γöé
  8935.                     Γöé        Γöé         Γöé         Γöé cated.                     Γöé
  8936.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  8937.  
  8938. Usage Notes 
  8939.  
  8940.  The probable cause for receiving message number 2518 is a picture string that 
  8941.   contains an invalid DBCS string. You should verify that the data in the 
  8942.   picture string is correct. 
  8943.  
  8944.  OpenEdition MVS consideration-In multithread applications, CEEDATE applies to 
  8945.   the enclave. 
  8946.  
  8947. Examples 
  8948.  
  8949.  C/370 Example 
  8950.  
  8951.     /*COMPILATION UNIT: EDCDATE   */
  8952.  
  8953.     #include <leawi.h>
  8954.     #include <stdio.h>
  8955.     #include <string.h>
  8956.     #include <ceeedcct.h>
  8957.  
  8958.     int main(void) {
  8959.  
  8960.        _FEEDBACK fc;
  8961.        _INT4 lil_date = 139370;   /* May 14, 1964 */
  8962.        _VSTRING date_pic,date;
  8963.        _CHAR80 date_out;
  8964.  
  8965.        strcpy(date_pic.string,
  8966.          "The date is Wwwwwwwwwz, Mmmmmmmmmz ZD, YYYY");
  8967.        date_pic.length = strlen(date_pic.string);
  8968.  
  8969.        CEEDATE(&lil_date,17 May 1994_pic,date_out,&fc);
  8970.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  8971.           printf("CEEDATE failed with message number %d\n",
  8972.                   fc.tok_msgno);
  8973.           exit(2999);
  8974.        }
  8975.        printf("%.80s\n",date_out);
  8976.     }
  8977.  
  8978.  COBOL/370 Example 
  8979.  
  8980.     CBL LIB,APOST
  8981.           *COMPILATION UNIT: IGZTDATE
  8982.           ************************************************
  8983.           **                                            **
  8984.           ** Function: CEEDATE - convert Lilian date to **
  8985.           **                     character format       **
  8986.           **                                            **
  8987.           ** In this example, a call is made to CEEDATE **
  8988.           ** to convert a Lilian date (the number of    **
  8989.           ** days since 14 October 1582) to a character **
  8990.           ** format (such as 6/22/88). The result is    **
  8991.           ** displayed.                                 **
  8992.           **                                            **
  8993.           ************************************************
  8994.            IDENTIFICATION DIVISION.
  8995.            PROGRAM-ID. CBLDATE.
  8996.            DATA DIVISION.
  8997.            WORKING-STORAGE SECTION.
  8998.            01  LILIAN                  PIC S9(9) COMP.
  8999.            01  CHRDATE                 PIC X(80).
  9000.            01  IN-DATE.
  9001.                02  Vstring-length      PIC S9(4) COMP.
  9002.                02  Vstring-text.
  9003.                    03  Vstring-char    PIC X,
  9004.                                OCCURS 0 TO 256 TIMES,
  9005.                                DEPENDING ON Vstring-length
  9006.                                    of IN-DATE.
  9007.            01  PICSTR.
  9008.                02  Vstring-length      PIC S9(4) COMP.
  9009.                02  Vstring-text.
  9010.                    03  Vstring-char    PIC X,
  9011.                                OCCURS 0 TO 256 TIMES,
  9012.                                DEPENDING ON Vstring-length
  9013.                                   of PICSTR.
  9014.            01  FC.
  9015.                02  Condition-Token-Value.
  9016.                COPY  CEEIGZCT.
  9017.                    03  Case-1-Condition-ID.
  9018.                        04  Severity        PIC S9(4) COMP.
  9019.                        04  Msg-No          PIC S9(4) COMP.
  9020.                    03  Case-2-Condition-ID
  9021.                              REDEFINES Case-1-Condition-ID.
  9022.                        04  Class-Code      PIC S9(4) COMP.
  9023.                        04  Cause-Code      PIC S9(4) COMP.
  9024.                    03  Case-Sev-Ctl    PIC X.
  9025.                    03  Facility-ID     PIC XXX.
  9026.                02  I-S-Info            PIC S9(9) COMP.
  9027.  
  9028.            PROCEDURE DIVISION.
  9029.  
  9030.            PARA-CBLDAYS.
  9031.           ** Call CEEDAYS to convert date of 6/2/88 to
  9032.           **     Lilian representation
  9033.                MOVE 6 TO Vstring-length of IN-DATE.
  9034.                MOVE '6/2/88' TO Vstring-text of IN-DATE(1:6).
  9035.                MOVE 8 TO Vstring-length of PICSTR.
  9036.                MOVE 'MM/DD/YY' TO Vstring-text of PICSTR(1:8).
  9037.                CALL 'CEEDAYS' USING IN-DATE, PICSTR,
  9038.                    LILIAN, FC.
  9039.  
  9040.           ** If CEEDAYS runs successfully, display result.
  9041.                IF  CEE000 of FC  THEN
  9042.                    DISPLAY Vstring-text of IN-DATE
  9043.                        ' is Lilian day: ' LILIAN
  9044.                ELSE
  9045.                    DISPLAY 'CEEDAYS failed with msg '
  9046.                        Msg-No of FC UPON CONSOLE;
  9047.                    STOP RUN;
  9048.                END-IF.
  9049.  
  9050.           ** Specify picture string that describes the
  9051.           **     desired format of the output from CEEDATE,
  9052.           **     and the picture string's length.
  9053.                MOVE 23 TO Vstring-length OF PICSTR.
  9054.                MOVE 'ZD Mmmmmmmmmmmmmmz YYYY' TO
  9055.                    Vstring-text OF PICSTR(1:23).
  9056.  
  9057.           ** Call CEEDATE to convert the Lilian date
  9058.           **     to  a picture string.
  9059.                CALL 'CEEDATE' USING LILIAN, PICSTR,
  9060.                    CHRDATE, FC.
  9061.  
  9062.           ** If CEEDATE runs successfully, display result.
  9063.                IF CEE000 of FC  THEN
  9064.                    DISPLAY 'Input Lilian date of ' LILIAN
  9065.                        ' corresponds to:  ' CHRDATE ;
  9066.                ELSE
  9067.                    DISPLAY 'CEEDATE failed with msg '
  9068.                        Msg-No of FC UPON CONSOLE;
  9069.                    STOP RUN;
  9070.                END-IF.
  9071.  
  9072.                GOBACK.
  9073.  
  9074.  PL/I Example 
  9075.  
  9076.     *PROCESS MACRO;
  9077.      /*COMPILATION UNIT: IBMDATE                    */
  9078.      /***********************************************/
  9079.      /**                                            */
  9080.      /** Function: CEEDATE - convert Lilian date to */
  9081.      /**                     character format       */
  9082.      /**                                            */
  9083.      /** In this example, a call is made to CEEDATE */
  9084.      /** to convert a date in the Lilian format     */
  9085.      /** (the number of days since 14 October 1582) */
  9086.      /** to a date in character format. This date   */
  9087.      /** is then printed out.                       */
  9088.      /**                                            */
  9089.      /********************************************* */
  9090.      PLIDATE: PROC OPTIONS(MAIN);
  9091.  
  9092.         %INCLUDE  CEEIBMAW;
  9093.         %INCLUDE  CEEIBMCT;
  9094.  
  9095.         DCL LILIAN  INT4 ;
  9096.         DCL PICSTR  VSTRING;
  9097.         DCL CHRDATE CHAR80 ;
  9098.         DCL 01 FC   FEEDBACK ;
  9099.  
  9100.         LILIAN = 152385;  /* input date in Lilian format */
  9101.         /* picture string that describes how converted   */
  9102.         /* date is to be formatted                       */
  9103.         PICSTR = 'ZD Mmmmmmmmmmmmmmz YYYY';
  9104.  
  9105.         /* Call CEE3DATE to convert input Lilian date to */
  9106.         /* a date in the character format specified in   */
  9107.         /* PICSTR                                        */
  9108.         CALL CEEDATE ( LILIAN , PICSTR , CHRDATE , FC );
  9109.  
  9110.         /* Print results if call to CEEDATE succeeds     */
  9111.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  9112.             PUT SKIP LIST( 'Lilian day ' || LILIAN
  9113.                || ' is equivalent to ' || CHRDATE );
  9114.            END;
  9115.         ELSE  DO;
  9116.            DISPLAY( 'CEEDATE failed with msg '
  9117.               || FC.MsgNo );
  9118.            STOP;
  9119.            END;
  9120.  
  9121.      END PLIDATE;
  9122.  
  9123. Sample Output of CEEDATE shows the sample output from CEEDATE. 
  9124.  
  9125. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  9126. Γöé Table 18. Sample Output of CEEDATE                    Γöé
  9127. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9128. Γöé          Γöé                 Γöé            Γöé
  9129. Γöé INPUT_LILIAN_DATEΓöé PICTURE_STRING         Γöé OUTPUT_CHAR_DATE   Γöé
  9130. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9131. Γöé 148138      Γöé "YY"              Γöé 88          Γöé
  9132. Γöé          Γöé "YYMM"             Γöé 8805         Γöé
  9133. Γöé          Γöé "YY-MM"             Γöé 88-05         Γöé
  9134. Γöé          Γöé "YYMMDD"            Γöé 880516        Γöé
  9135. Γöé          Γöé "YYYYMMDD"           Γöé 19880516       Γöé
  9136. Γöé          Γöé "YYYY-MM-DD"          Γöé 1988-05-16      Γöé
  9137. Γöé          Γöé "YYYY-ZM-ZD"          Γöé 1988-5-16       Γöé
  9138. Γöé          Γöé "<JJJJ> YY.MM.DD"        Γöé Showa 63.05.16 (in a Γöé
  9139. Γöé          Γöé "<CCCC> YY.MM.DD"        Γöé DBCS string)     Γöé
  9140. Γöé          Γöé                 Γöé MinKow 77.05.16 (in  Γöé
  9141. Γöé          Γöé                 Γöé a DBCS string)    Γöé
  9142. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9143. Γöé 148139      Γöé "MM"              Γöé 05          Γöé
  9144. Γöé          Γöé "MMDD"             Γöé 0517         Γöé
  9145. Γöé          Γöé "MM/DD"             Γöé 05/17         Γöé
  9146. Γöé          Γöé "MMDDYY"            Γöé 051788        Γöé
  9147. Γöé          Γöé "MM/DD/YYYY"          Γöé 05/17/1988      Γöé
  9148. Γöé          Γöé "ZM/DD/YYYY"          Γöé 5/17/1988       Γöé
  9149. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9150. Γöé 148140      Γöé "DD"              Γöé 18          Γöé
  9151. Γöé          Γöé "DDMM"             Γöé 1805         Γöé
  9152. Γöé          Γöé "DDMMYY"            Γöé 180588        Γöé
  9153. Γöé          Γöé "DD.MM.YY"           Γöé 18.05.88       Γöé
  9154. Γöé          Γöé "DD.MM.YYYY"          Γöé 18.05.1988      Γöé
  9155. Γöé          Γöé "DD Mmm YYYY"          Γöé 18 May 1988      Γöé
  9156. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9157. Γöé 148141      Γöé "DDD"              Γöé 140          Γöé
  9158. Γöé          Γöé "YYDDD"             Γöé 88140         Γöé
  9159. Γöé          Γöé "YY.DDD"            Γöé 88.140        Γöé
  9160. Γöé          Γöé "YYYY.DDD"           Γöé 1988.140       Γöé
  9161. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9162. Γöé 148142      Γöé "YY/MM/DD HH:MI:SS.99"     Γöé 88/05/20 00:00:00.00 Γöé
  9163. Γöé          Γöé "YYYY/ZM/ZD ZH:MI AP"      Γöé 1988/5/20 0:00 AM   Γöé
  9164. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9165. Γöé 148143      Γöé "WWW., MMM DD, YYYY"      Γöé SAT., MAY 21, 1988  Γöé
  9166. Γöé          Γöé "Www., Mmm DD, YYYY"      Γöé Sat., May 21, 1988  Γöé
  9167. Γöé          Γöé "Wwwwwwwwww"" Mmmmmmmmmm DD,  Γöé Saturdaybb,      Γöé
  9168. Γöé          Γöé YYYY"              Γöé Maybbbbbbb 21, 1988  Γöé
  9169. Γöé          Γöé "Wwwwwwwwwz, Mmmmmmmmmz DD,   Γöé Saturday, May 21,   Γöé
  9170. Γöé          Γöé YYYY"              Γöé 1988         Γöé
  9171. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  9172.  
  9173.  
  9174. ΓòÉΓòÉΓòÉ 3.3.21. CEEDATM-Convert Seconds to Character Timestamp ΓòÉΓòÉΓòÉ
  9175.  
  9176. CEEDATM converts a number representing the number of seconds since 00:00 14 
  9177. October 1582 to a character format. The format of the output is a character 
  9178. string, for example, 1988/07/26 20. 
  9179.  
  9180. The inverse of CEEDATM is CEESECS, which converts timestamps to number of 
  9181. seconds. 
  9182.  
  9183. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  9184. Γöé                                                  Γöé
  9185. Γöé >>ΓöÇΓöÇCEEDATMΓöÇΓöÇ(ΓöÇΓöÇinput_secondsΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_timestampΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  9186. Γöé                                                  Γöé
  9187. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  9188.  
  9189. input_seconds (input) 
  9190.           A 64-bit double floating-point number representing the number of 
  9191.           seconds since 00:00 on 14 October 1582, not counting leap seconds. 
  9192.  
  9193.           For example, 00:01 on 15 October 1582 is second number 86,401 
  9194.           (24*60*60 + 01). The valid range of input_seconds is 86,400 to 
  9195.           265,621,679,999.999 (23:59.999 31 December 9999). 
  9196.  
  9197. picture_string (input) 
  9198.           VSTRING, a length-prefixed character string, representing the desired 
  9199.           format of output_timestamp, for example, MM/DD/YY HH:MI AP. 
  9200.  
  9201.           Each character in the picture_string represents a character in 
  9202.           output_timestamp. If delimiters such as the slash (/) appear in the 
  9203.           picture string, they are copied as is to output_timestamp. 
  9204.  
  9205.           See Picture Terms Used in Picture Strings for a list of valid picture 
  9206.           characters, and Examples of Picture Terms Recognized by Date/Time 
  9207.           Services for examples of valid picture strings. 
  9208.  
  9209.           If picture_string is null or blank, CEEDATM obtains picture_string 
  9210.           based on the current value of the COUNTRY run-time option. For 
  9211.           example, if the current value of the COUNTRY run-time option is US 
  9212.           (United States), the date-time format would be "MM/DD/YY HH:MI:SS 
  9213.           AP"; if the current COUNTRY value is FR (France), however, the 
  9214.           date-time format would be "DD.MM.YYYY HH:MI:SS". 
  9215.  
  9216.           See COUNTRY for more information about the COUNTRY run-time option 
  9217.           and CEEFMDT-Get Default Date and Time Format for information about 
  9218.           how to obtain a default timestamp for a given country code. 
  9219.  
  9220.           If picture_string includes the Japanese Era symbol <JJJJ>, the YY 
  9221.           position in output_timestamp represents the year within Japanese Era. 
  9222.           See Examples of Picture Terms Recognized by Date/Time Services for an 
  9223.           example. See Japanese Eras Used by Date/Time Services when <JJJJ> 
  9224.           Specified for a list of Japanese Eras supported by CEEDATM. 
  9225.  
  9226.           If picture_string includes the ROC Era symbol <CCCC> or <CCCCCCCC>, 
  9227.           the YY position in output_timestamp represents the year within ROC 
  9228.           Era. See Examples of Picture Terms Recognized by Date/Time Services 
  9229.           for an example. See Republic of China Eras Used by Date/Time Services 
  9230.           when <CCCC>or <CCCCCCCC> Specified for a list of ROC Eras supported 
  9231.           by CEEDATM. 
  9232.  
  9233. output_timestamp (output) 
  9234.           VSTRING, a fixed-length 80-character string, that is the result of 
  9235.           converting input_seconds to the format specified by picture_string. 
  9236.  
  9237.           If necessary, the output is truncated to the length of 
  9238.           output_timestamp. See Sample Output of CEEDATM for sample output. 
  9239.  
  9240.           If input_seconds is invalid, output_timestamp is set to all blanks 
  9241.           and CEEDATM terminates with a non-CEE000 symbolic feedback code. 
  9242.  
  9243. fc (output) 
  9244.           A 12-byte feedback code, optional in some languages, that indicates 
  9245.           the result of this service. 
  9246.  
  9247.           The following symbolic conditions can result from this service: 
  9248.  
  9249.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  9250.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  9251.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  9252.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9253.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  9254.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9255.                     Γöé CEE2E9     Γöé 3        Γöé 2505      Γöé The number-of-seconds value was not within the Γöé
  9256.                     Γöé        Γöé         Γöé         Γöé supported range.                Γöé
  9257.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9258.                     Γöé CEE2EA     Γöé 3        Γöé 2506      Γöé <JJJJ>, <CCCC> or <CCCCCCCC> was used in a   Γöé
  9259.                     Γöé        Γöé         Γöé         Γöé picture string passed to CEEDATM, but the    Γöé
  9260.                     Γöé        Γöé         Γöé         Γöé input number-of-seconds value was not within  Γöé
  9261.                     Γöé        Γöé         Γöé         Γöé the supported range.  The Era could not be   Γöé
  9262.                     Γöé        Γöé         Γöé         Γöé determined.                   Γöé
  9263.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9264.                     Γöé CEE2EM     Γöé 3        Γöé 2518      Γöé An invalid picture string was specified.    Γöé
  9265.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9266.                     Γöé CEE2EV     Γöé 2        Γöé 2527      Γöé The timestamp string returned by CEEDATM was  Γöé
  9267.                     Γöé        Γöé         Γöé         Γöé truncated.                   Γöé
  9268.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9269.                     Γöé CEE3CF     Γöé 2        Γöé 3471      Γöé The country code country-code was invalid for  Γöé
  9270.                     Γöé        Γöé         Γöé         Γöé CEEFMDT.  The default date and time picture   Γöé
  9271.                     Γöé        Γöé         Γöé         Γöé string datetime-string was returned.      Γöé
  9272.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  9273.  
  9274. Usage Notes 
  9275.  
  9276.  The probable cause for receiving message number 2518 is a picture string that 
  9277.   contains an invalid DBCS string. You should verify that the data in the 
  9278.   picture string is correct. 
  9279.  
  9280.  OpenEdition MVS consideration-In multithread applications, CEEDATM applies to 
  9281.   the enclave. 
  9282.  
  9283. Examples 
  9284.  
  9285.  C/370 Example 
  9286.  
  9287.     /*COMPILATION UNIT: EDCDATM   */
  9288.  
  9289.     #include <leawi.h>
  9290.     #include <stdio.h>
  9291.     #include <string.h>
  9292.     #include <ceeedcct.h>
  9293.  
  9294.     int main(void) {
  9295.  
  9296.                  /* September 13, 1991 at 11:23 PM */
  9297.        _FLOAT8 seconds = 12904183403.0;
  9298.        _VSTRING date,date_pic;
  9299.        _CHAR80 out_date;
  9300.        _FEEDBACK fc;
  9301.  
  9302.        strcpy(date_pic.string,
  9303.        "Mmmmmmmmmmmz DD, YYYY at ZH:MI:SS AP");
  9304.        date_pic.length = strlen(date_pic.string);
  9305.  
  9306.        CEEDATM(&seconds,17 May 1994_pic,out_date,&fc);
  9307.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  9308.           printf("CEEDATM failed with message number %d\n",
  9309.                  fc.tok_msgno);
  9310.           exit(2999);
  9311.        }
  9312.  
  9313.        printf("%.80s\n",out_date);
  9314.     }
  9315.  
  9316.  COBOL/370 Example 
  9317.  
  9318.     CBL LIB,APOST
  9319.           *COMPILATION UNIT: IGZTDATM
  9320.           *************************************************
  9321.           **                                             **
  9322.           ** Function: CEEDATM - convert seconds to      **
  9323.           **                     character timestamp     **
  9324.           **                                             **
  9325.           ** In this example, a call is made to CEEDATM  **
  9326.           ** to convert a date represented in Lilian     **
  9327.           ** seconds (the number of seconds since        **
  9328.           ** 00:00 14 October 1582) to a character    **
  9329.           ** format (such as 06/02/88 10:45). The     **
  9330.           ** result is displayed.                        **
  9331.           **                                             **
  9332.           *************************************************
  9333.            IDENTIFICATION DIVISION.
  9334.            PROGRAM-ID. CBLDATM.
  9335.            DATA DIVISION.
  9336.            WORKING-STORAGE SECTION.
  9337.            01  DEST                    PIC S9(9) COMP VALUE 2.
  9338.            01  SECONDS                 COMP-2.
  9339.            01  IN-DATE.
  9340.                02  Vstring-length      PIC S9(4) COMP.
  9341.                02  Vstring-text.
  9342.                    03  Vstring-char    PIC X,
  9343.                                OCCURS 0 TO 256 TIMES,
  9344.                                DEPENDING ON Vstring-length
  9345.                                    of IN-DATE.
  9346.            01  PICSTR.
  9347.                02  Vstring-length      PIC S9(4) COMP.
  9348.                02  Vstring-text.
  9349.                    03  Vstring-char    PIC X,
  9350.                                OCCURS 0 TO 256 TIMES,
  9351.                                DEPENDING ON Vstring-length
  9352.                                   of PICSTR.
  9353.            01  TIMESTP                 PIC X(80).
  9354.            01  FC.
  9355.                02  Condition-Token-Value.
  9356.                COPY  CEEIGZCT.
  9357.                    03  Case-1-Condition-ID.
  9358.                        04  Severity        PIC S9(4) COMP.
  9359.                        04  Msg-No          PIC S9(4) COMP.
  9360.                    03  Case-2-Condition-ID
  9361.                              REDEFINES Case-1-Condition-ID.
  9362.                        04  Class-Code      PIC S9(4) COMP.
  9363.                        04  Cause-Code      PIC S9(4) COMP.
  9364.                    03  Case-Sev-Ctl    PIC X.
  9365.                    03  Facility-ID     PIC XXX.
  9366.                02  I-S-Info            PIC S9(9) COMP.
  9367.  
  9368.            PROCEDURE DIVISION.
  9369.            PARA-CBLDATM.
  9370.           ** Call CEESECS to convert timestamp of 6/2/88
  9371.           **     at 10:45 AM to Lilian representation
  9372.                MOVE 20 TO Vstring-length of IN-DATE.
  9373.                MOVE '06/02/88 10:45 AM'
  9374.                    TO Vstring-text of IN-DATE.
  9375.                MOVE 20 TO Vstring-length of PICSTR.
  9376.                MOVE 'MM/DD/YY HH:MI:SS AP'
  9377.                    TO Vstring-text of PICSTR.
  9378.                CALL 'CEESECS' USING IN-DATE, PICSTR,
  9379.                    SECONDS, FC.
  9380.  
  9381.           ** If CEESECS runs successfully, display result.
  9382.                IF  CEE000 of FC  THEN
  9383.                    DISPLAY Vstring-text of IN-DATE
  9384.                        ' is Lilian second:  ' SECONDS ;
  9385.                ELSE
  9386.                    DISPLAY 'CEESECS failed with msg '
  9387.                        Msg-No of FC UPON CONSOLE ;
  9388.                    STOP RUN;
  9389.                END-IF.
  9390.  
  9391.  
  9392.           ** Specify desired format of the output.
  9393.                MOVE 35 TO Vstring-length OF PICSTR.
  9394.                MOVE 'ZD Mmmmmmmmmmmmmmz YYYY at HH:MI:SS'
  9395.                    TO Vstring-text OF PICSTR.
  9396.  
  9397.           ** Call CEEDATM to convert Lilian seconds to
  9398.           **     a character timestamp
  9399.                CALL 'CEEDATM' USING SECONDS, PICSTR,
  9400.                    TIMESTP, FC.
  9401.  
  9402.           ** If CEEDATM runs successfully, display result.
  9403.                IF CEE000 of FC  THEN
  9404.                    DISPLAY 'Input seconds of ' SECONDS
  9405.                        ' corresponds to: ' TIMESTP ;
  9406.                ELSE
  9407.                    DISPLAY 'CEEDATM failed with msg '
  9408.                        Msg-No of FC UPON CONSOLE ;
  9409.                    STOP RUN;
  9410.                END-IF.
  9411.  
  9412.                GOBACK.
  9413.  
  9414.  PL/I Example 
  9415.  
  9416.     *PROCESS MACRO;
  9417.      /*COMPILATION UNIT: IBMDATM
  9418.  
  9419.      /****************************************************/
  9420.      /**                                                **/
  9421.      /** Function: CEEDATM - Convert seconds to         **/
  9422.      /**                     character timestamp        **/
  9423.      /**                                                **/
  9424.      /** In this example, CEEDATM is called to convert  **/
  9425.      /** the number of seconds since 00:00 14        **/
  9426.      /** October 1582 to the character format specified **/
  9427.      /** in PICSTR.                                     **/
  9428.      /**                                                **/
  9429.      /****************************************************/
  9430.  
  9431.      PLIDATM: PROC OPTIONS(MAIN);
  9432.  
  9433.         %INCLUDE  CEEIBMAW;
  9434.         %INCLUDE  CEEIBMCT;
  9435.  
  9436.         DCL SECONDS FLOAT8;
  9437.         DCL PICSTR  VSTRING;
  9438.         DCL TIMESTP CHAR80;
  9439.         DCL 01 FC   FEEDBACK;
  9440.  
  9441.         SECONDS = 13166064060; /* Input is Lilian seconds*/
  9442.  
  9443.         PICSTR = 'ZD Mmmmmmmmmmmmmmz YYYY';  /* Picture  */
  9444.               /* string describing desired output format */
  9445.  
  9446.         /* Call CEEDATM to convert Lilian seconds to     */
  9447.         /*    format specified in PICSTR                 */
  9448.         CALL CEEDATM ( SECONDS , PICSTR , TIMESTP , FC );
  9449.  
  9450.         /* If CEEDATM ran successfully, print result     */
  9451.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  9452.            PUT SKIP LIST(
  9453.               'Input Lilian seconds correspond to '
  9454.               || TIMESTP);
  9455.            END;
  9456.         ELSE  DO;
  9457.            DISPLAY( 'CEEDATM failed with msg '
  9458.               || FC.MsgNo );
  9459.            STOP;
  9460.            END;
  9461.  
  9462.       END PLIDATM;
  9463.  
  9464. Sample Output of CEEDATMshows the sample output of CEEDATM. 
  9465.  
  9466. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  9467. Γöé Table 19. Sample Output of CEEDATM                    Γöé
  9468. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9469. Γöé           Γöé                Γöé           Γöé
  9470. Γöé INPUT_SECONDS    Γöé PICTURE_STRING        Γöé OUTPUT_TIMESTAMP   Γöé
  9471. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9472. Γöé 12,799,191,601.000  Γöé "YYMMDD"           Γöé 880516        Γöé
  9473. Γöé           Γöé "HH:MI:SS"          Γöé 19:00:01       Γöé
  9474. Γöé           Γöé "YY-MM-DD"          Γöé 88-05-16       Γöé
  9475. Γöé           Γöé "YYMMDDHHMISS"        Γöé 880516190001     Γöé
  9476. Γöé           Γöé "YY-MM-DD HH:MI:SS"      Γöé 88-05-16 19:00:01  Γöé
  9477. Γöé           Γöé "YYYY-MM-DD HH:MI:SS AP"   Γöé 1988-05-16 07:00:01 Γöé
  9478. Γöé           Γöé                Γöé PM          Γöé
  9479. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9480. Γöé 12,799,191,661.986  Γöé "DD Mmm YY"          Γöé 16 May 88      Γöé
  9481. Γöé           Γöé "DD MMM YY HH:MM"       Γöé 16 MAY 88 19:01   Γöé
  9482. Γöé           Γöé "WWW, MMM DD, YYYY ZH:MI AP" Γöé MON, MAY 16, 1988  Γöé
  9483. Γöé           Γöé "Wwwwwwwwwz, ZM/ZD/YY     Γöé 7:01 PM       Γöé
  9484. Γöé           Γöé HH:MI:SS.99"         Γöé Monday, 5/16/88   Γöé
  9485. Γöé           Γöé                Γöé 19:01:01.98     Γöé
  9486. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9487. Γöé 12,799,191,662.009  Γöé "YYYY"            Γöé "1988"        Γöé
  9488. Γöé           Γöé "YY"             Γöé "88"         Γöé
  9489. Γöé           Γöé "Y"              Γöé "8"         Γöé
  9490. Γöé           Γöé "MM"             Γöé "05"         Γöé
  9491. Γöé           Γöé "ZM"             Γöé "5"         Γöé
  9492. Γöé           Γöé "RRRR"            Γöé "Vbbb"        Γöé
  9493. Γöé           Γöé "MMM"             Γöé "MAY"        Γöé
  9494. Γöé           Γöé "Mmm"             Γöé "May"        Γöé
  9495. Γöé           Γöé "Mmmmmmmmmm"         Γöé "Maybbbbbb"     Γöé
  9496. Γöé           Γöé "Mmmmmmmmmz"         Γöé "May"        Γöé
  9497. Γöé           Γöé "DD"             Γöé "16"         Γöé
  9498. Γöé           Γöé "ZD"             Γöé "16"         Γöé
  9499. Γöé           Γöé "DDD"             Γöé "137"        Γöé
  9500. Γöé           Γöé "HH"             Γöé "19"         Γöé
  9501. Γöé           Γöé "ZH"             Γöé "19"         Γöé
  9502. Γöé           Γöé "MI"             Γöé "01"         Γöé
  9503. Γöé           Γöé "SS"             Γöé "02"         Γöé
  9504. Γöé           Γöé "99"             Γöé "00"         Γöé
  9505. Γöé           Γöé "999"             Γöé "009"        Γöé
  9506. Γöé           Γöé "AP"             Γöé "PM"         Γöé
  9507. Γöé           Γöé "WWW"             Γöé "MON"        Γöé
  9508. Γöé           Γöé "Www"             Γöé "Mon"        Γöé
  9509. Γöé           Γöé "Wwwwwwwwww"         Γöé "Mondaybbbb"     Γöé
  9510. Γöé           Γöé "Wwwwwwwwwz"         Γöé "Monday"       Γöé
  9511. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  9512.  
  9513.  
  9514. ΓòÉΓòÉΓòÉ 3.3.22. CEEDAYS-Convert Date to Lilian Format ΓòÉΓòÉΓòÉ
  9515.  
  9516. CEEDAYS converts a string representing a date into a Lilian format. The Lilian 
  9517. format represents a date as the number of days from the beginning of the 
  9518. Gregorian calendar. Friday, 14 October, 1582 is day one in the Lilian format. 
  9519. CEEDAYS converts the specified input_char_date to a number representing the 
  9520. number of days since 14 October, 1582. 
  9521.  
  9522. This service can perform arithmetic on dates, such as calculating the number of 
  9523. days between two dates. 
  9524.  
  9525. The inverse of CEEDAYS is CEEDATE, which converts output_Lilian_date from 
  9526. Lilian format to character format. 
  9527.  
  9528. To handle dates earlier than 1582, it is possible to add 4000 to each year, 
  9529. convert to Lilian, calculate, subtract 4000 from the result, and then convert 
  9530. back to character format. 
  9531.  
  9532. By default, 2-digit years lie within the 100-year range starting 80 years prior 
  9533. to the system date. Thus, in 1993, all 2-digit years represent dates between 
  9534. 1913 and 2012, inclusive. This default range is changed by using the callable 
  9535. service CEESCEN-Set the Century Window. 
  9536.  
  9537. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  9538. Γöé                                                  Γöé
  9539. Γöé >>ΓöÇΓöÇCEEDAYSΓöÇΓöÇ(ΓöÇΓöÇinput_char_dateΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_Lilian_dateΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  9540. Γöé                                                  Γöé
  9541. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  9542.  
  9543. input_char_date (input) 
  9544.           VSTRING, a length-prefixed character string, representing a date or 
  9545.           timestamp, in a format conforming to that specified by 
  9546.           picture_string. 
  9547.  
  9548.           The character string must contain between 5 and 255 characters, 
  9549.           inclusive. input_char_date can contain leading or trailing blanks. 
  9550.           Parsing for a date begins with the first nonblank character (unless 
  9551.           the picture string itself contains leading blanks, in which case 
  9552.           CEEDAYS skips exactly that many positions before parsing begins). 
  9553.  
  9554.           After parsing a valid date, as determined by the format of the date 
  9555.           specified in picture_string, CEEDAYS ignores all remaining 
  9556.           characters. Valid dates range between and include 15 October 1582 to 
  9557.           31 December 9999. 
  9558.  
  9559.           See Picture Terms Used in Picture Strings for a list of valid picture 
  9560.           character terms that can be specified in input_char_date. 
  9561.  
  9562. picture_string (input) 
  9563.           VSTRING, a length-prefixed character string, indicating the format of 
  9564.           the date specified in input_char_date. 
  9565.  
  9566.           Each character in the picture_string corresponds to a character in 
  9567.           input_char_date. For example, if you specify MMDDYY as the 
  9568.           picture_string, CEEDAYS reads an input_char_date of 060288 as 02 June 
  9569.           1988. 
  9570.  
  9571.           If delimiters such as the slash (/) appear in the picture string, 
  9572.           leading zeros can be omitted. For example, the following calls to 
  9573.           CEEDAYS: 
  9574.  
  9575.                     CALL CEEDAYS('6/2/88'  , 'MM/DD/YY', lildate, fc);
  9576.                     CALL CEEDAYS('06/02/88', 'MM/DD/YY', lildate, fc);
  9577.                     CALL CEEDAYS('060288'  , 'MMDDYY'  , lildate, fc);
  9578.                     CALL CEEDAYS('88154'   , 'YYDDD'   , lildate, fc);
  9579.           would each assign the same value, 148155 (02 June 1988), to lildate. 
  9580.  
  9581.           Whenever characters such as colons or slashes are included in the 
  9582.           picture_string (such as HH:MI:SS YY/MM/DD), they count as 
  9583.           place-holders but are otherwise ignored. 
  9584.  
  9585.           See Picture Terms Used in Picture Strings for a list of valid picture 
  9586.           characters, and Examples of Picture Terms Recognized by Date/Time 
  9587.           Services for examples of valid picture strings. 
  9588.  
  9589.           If picture_string includes a Japanese Era symbol <JJJJ>, the YY 
  9590.           position in input_char_date is replaced by the year number within the 
  9591.           Japanese Era. For example, the year 1988 equals the Japanese year 63 
  9592.           in the Showa era. See Examples of Picture Terms Recognized by 
  9593.           Date/Time Services for an additional example. See also Japanese Eras 
  9594.           Used by Date/Time Services when <JJJJ> Specified for a list of 
  9595.           Japanese Eras supported by CEEDATE. 
  9596.  
  9597.           If picture_string includes an ROC Era symbol <CCCC> or <CCCCCCCC>, 
  9598.           the YY position in input_char_date is replaced by the year number 
  9599.           within the ROC (Republic of China) Era. For example, the year 1988 
  9600.           equals the ROC year 77 in the MinKow Era. See Examples of Picture 
  9601.           Terms Recognized by Date/Time Services for an additional example. See 
  9602.           Republic of China Eras Used by Date/Time Services when <CCCC>or 
  9603.           <CCCCCCCC> Specified for a list of ROC Eras supported by CEEDATE. 
  9604.  
  9605. output_Lilian_date (output) 
  9606.           A 32-bit binary integer representing the Lilian date, the number of 
  9607.           days since 14 October 1582. For example, 16 May 1988 is day number 
  9608.           148138. 
  9609.  
  9610.           If input_char_date does not contain a valid date, output_Lilian_date 
  9611.           is set to 0 and CEEDAYS terminates with a non-CEE000 symbolic 
  9612.           feedback code. 
  9613.  
  9614.           Date calculations are performed easily on the output_Lilian_date, 
  9615.           because it is an integer. Leap year and end-of-year anomalies are 
  9616.           avoided. 
  9617.  
  9618. fc (output) 
  9619.           A 12-byte feedback code, optional in some languages, that indicates 
  9620.           the result of this service. 
  9621.  
  9622.           The following symbolic conditions can result from this service: 
  9623.  
  9624.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  9625.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  9626.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  9627.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9628.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  9629.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9630.                     Γöé CEE2EB     Γöé 3        Γöé 2507      Γöé Insufficient data was passed to CEEDAYS or   Γöé
  9631.                     Γöé        Γöé         Γöé         Γöé CEESECS.  The Lilian value was not calculated. Γöé
  9632.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9633.                     Γöé CEE2EC     Γöé 3        Γöé 2508      Γöé The date value passed to CEEDAYS or CEESECS   Γöé
  9634.                     Γöé        Γöé         Γöé         Γöé was invalid.                  Γöé
  9635.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9636.                     Γöé CEE2ED     Γöé 3        Γöé 2509      Γöé The Japanese or Republic of China Era passed  Γöé
  9637.                     Γöé        Γöé         Γöé         Γöé to CEEDAYS or CEESECS was not recognized.    Γöé
  9638.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9639.                     Γöé CEE2EH     Γöé 3        Γöé 2513      Γöé The input date was not within the supported   Γöé
  9640.                     Γöé        Γöé         Γöé         Γöé range.                     Γöé
  9641.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9642.                     Γöé CEE2EL     Γöé 3        Γöé 2517      Γöé The month value was not recognized.       Γöé
  9643.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9644.                     Γöé CEE2EM     Γöé 3        Γöé 2518      Γöé An invalid picture string was specified.    Γöé
  9645.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9646.                     Γöé CEE2EO     Γöé 3        Γöé 2520      Γöé CEEDAYS detected non-numeric data in a numeric Γöé
  9647.                     Γöé        Γöé         Γöé         Γöé field, or the date string did not match the   Γöé
  9648.                     Γöé        Γöé         Γöé         Γöé picture string.                 Γöé
  9649.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9650.                     Γöé CEE2EP     Γöé 3        Γöé 2521      Γöé The Japanese or Chinese year-within-Era value  Γöé
  9651.                     Γöé        Γöé         Γöé         Γöé passed to CEEDAYS or CEESECS was zero.     Γöé
  9652.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  9653.  
  9654. Usage Notes 
  9655.  
  9656.  The probable cause for receiving message number 2518 is a picture string that 
  9657.   contains an invalid DBCS string. You should verify that the data in the 
  9658.   picture string is correct. 
  9659.  
  9660.  OpenEdition MVS consideration-In multithread applications, CEEDAYS applies to 
  9661.   the enclave. 
  9662.  
  9663. Examples 
  9664.  
  9665.  C/370 Example 
  9666.  
  9667.     /*COMPILATION UNIT: EDCDAYS   */
  9668.  
  9669.     #include <leawi.h>
  9670.     #include <stdio.h>
  9671.     #include <string.h>
  9672.     #include <ceeedcct.h>
  9673.  
  9674.     int main(void) {
  9675.  
  9676.        _FEEDBACK fc;
  9677.        _INT4 lil_date1,lil_date2;
  9678.        _VSTRING date,date_pic;
  9679.  
  9680.        /* use CEEDAYS to get the Lilian format */
  9681.        strcpy(date.string,"05/14/64");
  9682.        date.length = strlen(date.string);
  9683.        strcpy(date_pic.string,"MM/DD/YY");
  9684.        date_pic.length = strlen(date_pic.string);
  9685.  
  9686.        CEEDAYS(17 May 1994,17 May 1994_pic,&lil_date1,&fc);
  9687.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  9688.           printf("CEEDAYS failed with message number %d\n",
  9689.                  fc.tok_msgno);
  9690.           exit(2999);
  9691.        }
  9692.  
  9693.        /* use CEEDAYS to get the Lilian format */
  9694.        strcpy(date.string,"August 14, 1966");
  9695.        date.length = strlen(date.string);
  9696.        strcpy(date_pic.string,"Mmmmmmmmmmmz DD, YYYY");
  9697.        date_pic.length = strlen(date_pic.string);
  9698.  
  9699.        CEEDAYS(17 May 1994,17 May 1994_pic,&lil_date2,&fc);
  9700.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  9701.           printf("CEEDAYS failed with message number %d\n",
  9702.                  fc.tok_msgno);
  9703.           exit(2999);
  9704.        }
  9705.  
  9706.        /* subtract the two Lilian dates to find out */
  9707.        /* difference in days */
  9708.        printf("The number of days between"
  9709.        " May 14, 1964 and August 14, 1966"
  9710.        " is: %d\n",lil_date2 - lil_date1);
  9711.     }
  9712.  
  9713.  COBOL/370 Example 
  9714.  
  9715.     CBL LIB,APOST
  9716.           *COMPILATION UNIT: IGZTDAYS
  9717.           *******************************************
  9718.           **                                       **
  9719.           ** Function: CEEDAYS - convert date to   **
  9720.           **                     Lilian format     **
  9721.           **                                       **
  9722.           *******************************************
  9723.            IDENTIFICATION DIVISION.
  9724.            PROGRAM-ID. CBLDAYS.
  9725.            DATA DIVISION.
  9726.            WORKING-STORAGE SECTION.
  9727.            01  CHRDATE.
  9728.                02  Vstring-length      PIC S9(4) COMP.
  9729.                02  Vstring-text.
  9730.                    03  Vstring-char    PIC X,
  9731.                                OCCURS 0 TO 256 TIMES,
  9732.                                DEPENDING ON Vstring-length
  9733.                                    of CHRDATE.
  9734.            01  PICSTR.
  9735.                02  Vstring-length      PIC S9(4) COMP.
  9736.                02  Vstring-text.
  9737.                    03  Vstring-char    PIC X,
  9738.                                OCCURS 0 TO 256 TIMES,
  9739.                                DEPENDING ON Vstring-length
  9740.                                    of PICSTR.
  9741.            01  LILIAN                  PIC S9(9) COMP.
  9742.            01  FC.
  9743.                02  Condition-Token-Value.
  9744.                COPY  CEEIGZCT.
  9745.                    03  Case-1-Condition-ID.
  9746.                        04  Severity        PIC S9(4) COMP.
  9747.                        04  Msg-No          PIC S9(4) COMP.
  9748.                    03  Case-2-Condition-ID
  9749.                              REDEFINES Case-1-Condition-ID.
  9750.                        04  Class-Code      PIC S9(4) COMP.
  9751.                        04  Cause-Code      PIC S9(4) COMP.
  9752.                    03  Case-Sev-Ctl    PIC X.
  9753.                    03  Facility-ID     PIC XXX.
  9754.                02  I-S-Info            PIC S9(9) COMP.
  9755.  
  9756.            PROCEDURE DIVISION.
  9757.            PARA-CBLDAYS.
  9758.           ** Specify input date and length
  9759.                MOVE 16 TO Vstring-length of CHRDATE.
  9760.                MOVE '1 January 2000'
  9761.                    TO Vstring-text of CHRDATE.
  9762.  
  9763.           ** Specify a picture string that describes
  9764.           ** input date, and the picture string's length.
  9765.                MOVE 25 TO Vstring-length of PICSTR.
  9766.                MOVE 'ZD Mmmmmmmmmmmmmmz YYYY'
  9767.                    TO Vstring-text of PICSTR.
  9768.  
  9769.           ** Call CEEDAYS to convert input date to a
  9770.           ** Lilian date
  9771.                CALL 'CEEDAYS' USING CHRDATE , PICSTR ,
  9772.                    LILIAN , FC.
  9773.  
  9774.           ** If CEEDAYS runs successfully, display result.
  9775.                IF  CEE000 of FC  THEN
  9776.                    DISPLAY Vstring-text of CHRDATE
  9777.                        ' is Lilian day: ' LILIAN
  9778.                ELSE
  9779.                    DISPLAY 'CEEDAYS failed with msg '
  9780.                        Msg-No of FC UPON CONSOLE;
  9781.                    STOP RUN;
  9782.                END-IF.
  9783.                GOBACK.
  9784.  
  9785.  PL/I Example 
  9786.  
  9787.     *PROCESS MACRO;
  9788.      /*COMPILATION UNIT: IBMDAYS
  9789.      /***************************************************/
  9790.      /**                                               **/
  9791.      /** Function     : CEEDAYS - Convert date to      **/
  9792.      /**                          Lilian format        **/
  9793.      /**                                               **/
  9794.      /** This example converts two dates to the Lilian **/
  9795.      /** format in order to calculate the number of    **/
  9796.      /** days between them.                            **/
  9797.      /**                                               **/
  9798.      /***************************************************/
  9799.  
  9800.      PLIDAYS: PROC OPTIONS(MAIN);
  9801.  
  9802.         %INCLUDE  CEEIBMAW;
  9803.         %INCLUDE  CEEIBMCT;
  9804.  
  9805.         DCL CHRDATE  VSTRING;
  9806.         DCL CHRD2    VSTRING;
  9807.         DCL PICSTR   VSTRING;
  9808.         DCL PICST2   VSTRING;
  9809.         DCL LILIAN   INT4;
  9810.         DCL LIL2     INT4;
  9811.         DCL 01 FC    FEEDBACK;
  9812.  
  9813.         /* First date to be converted to Lilian format  */
  9814.  
  9815.         CHRDATE = '5/7/69';
  9816.  
  9817.         /* Picture string of first input date           */
  9818.         PICSTR = 'ZM/ZD/YY';
  9819.  
  9820.         /* Call CEEDAYS to convert input date to the    */
  9821.         /*    Lilian format                             */
  9822.         CALL CEEDAYS ( CHRDATE , PICSTR , LILIAN , FC );
  9823.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  9824.            PUT SKIP LIST( 'The Lilian date for ' || CHRDATE
  9825.               || ' is ' || LILIAN );
  9826.            END;
  9827.         ELSE  DO;
  9828.            DISPLAY( 'CEEDAYS failed with msg '
  9829.               || FC.MsgNo );
  9830.            STOP;
  9831.            END;
  9832.  
  9833.         /* Second date to be converted to Lilian format */
  9834.         CHRD2 = '1 January 2000';
  9835.  
  9836.         /* Picture string of second input date          */
  9837.         PICST2 = 'ZD Mmmmmmmmmmmmmmz YYYY';
  9838.  
  9839.         /* Call CEEDAYS to convert input date to the    */
  9840.         /*    Lilian format                             */
  9841.         CALL CEEDAYS ( CHRD2 , PICST2 , LIL2 , FC );
  9842.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  9843.            PUT SKIP LIST( 'The Lilian date for ' || CHRD2
  9844.               || ' is ' || LIL2 );
  9845.            END;
  9846.         ELSE  DO;
  9847.            DISPLAY( 'CEEDAYS failed with msg '
  9848.               || FC.MsgNo );
  9849.            STOP;
  9850.            END;
  9851.  
  9852.         /* Subtract the two Lilian dates to find out    */
  9853.         /*    the difference in days between the two    */
  9854.         /*    input dates                               */
  9855.         PUT SKIP LIST( 'The number of days between '
  9856.            || CHRDATE || ' and ' || CHRD2 || ' is'
  9857.            || LIL2 - LILIAN || '.');
  9858.  
  9859.      END PLIDAYS;
  9860.  
  9861.  
  9862. ΓòÉΓòÉΓòÉ 3.3.23. CEEDCOD-Decompose a Condition Token ΓòÉΓòÉΓòÉ
  9863.  
  9864. CEEDCOD decomposes or alters an existing condition token. 
  9865.  
  9866. LE/370-conforming HLLs can decompose or alter the condition token fields 
  9867. without using the CEEDCOD service. See the CEESGL C/370 example on page 
  9868. Examples for an example of how to alter the condition token field. 
  9869.  
  9870. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  9871. Γöé                                                  Γöé
  9872. Γöé >>ΓöÇΓöÇCEEDCODΓöÇΓöÇ(ΓöÇΓöÇcond_tokenΓöÇΓöÇ,ΓöÇΓöÇc_1ΓöÇΓöÇ,ΓöÇΓöÇc_2ΓöÇΓöÇ,ΓöÇΓöÇcaseΓöÇΓöÇ,ΓöÇΓöÇseverityΓöÇΓöÇ,ΓöÇΓöÇcontrolΓöÇΓöÇ,ΓöÇΓöÇfacility_IDΓöÇΓöÇΓöÇ> Γöé
  9873. Γöé                                                  Γöé
  9874. Γöé >ΓöÇΓöÇ,ΓöÇΓöÇi_s_infoΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  9875. Γöé                                                  Γöé
  9876. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  9877.  
  9878. cond_token (input) 
  9879.           A 12-byte condition token representing the current condition or 
  9880.           feedback information. 
  9881.  
  9882. c_1 (output) 
  9883.           A 2-byte binary integer representing the value of the first 2 bytes 
  9884.           of the condition_ID. See CEENCOD-Construct a Condition Token for a 
  9885.           detailed explanation of the condition_ID. 
  9886.  
  9887. c_2 (output) 
  9888.           A 2-byte binary integer representing the value of the second 2 bytes 
  9889.           of the condition_ID. See CEENCOD-Construct a Condition Token for a 
  9890.           detailed explanation of the condition_ID. 
  9891.  
  9892. case (output) 
  9893.           A 2-byte binary integer field defining the format of the condition_ID 
  9894.           portion of the token. A value of 1 identifies a case 1 condition. A 
  9895.           value of 2 identifies a case 2 condition. The values 0 and 3 are 
  9896.           reserved. See CEENCOD-Construct a Condition Token for an explanation 
  9897.           of the condition_ID. See CEENCOD Usage Notes for a discussion of case 
  9898.           1 and case 2 types. 
  9899.  
  9900. severity (output) 
  9901.           A 2-byte binary integer representing the severity of the condition. 
  9902.           severity specifies the following values: 
  9903.  
  9904.    0         Information only (or, if the entire token is zero, no 
  9905.              information). 
  9906.  
  9907.    1         Warning-service completed, probably correctly. 
  9908.  
  9909.    2         Error detected-correction attempted; service completed, perhaps 
  9910.              incorrectly. 
  9911.  
  9912.    3         Severe error-service not completed. 
  9913.  
  9914.    4         Critical error-service not completed; condition signaled. A 
  9915.              critical error is a condition that jeopardizes the environment. If 
  9916.              a critical error occurs during an LE/370 callable service, instead 
  9917.              of returning synchronously to the caller, the condition manager is 
  9918.              always signaled. 
  9919.  
  9920. control (output) 
  9921.           A 2-byte binary integer containing flags describing aspects of the 
  9922.           state of the condition. Valid values for the control field are 1 and 
  9923.           0. 1 indicates that the facility_ID is assigned by IBM. 0 indicates 
  9924.           the facility_ID is assigned by the user. 
  9925.  
  9926. facility_ID (output) 
  9927.           A 3-character field containing three alphanumeric characters 
  9928.           identifying the product generating the condition or feedback 
  9929.           information. See the facility_ID parameter of CEENCOD-Construct a 
  9930.           Condition Token for more information. 
  9931.  
  9932. i_s_info 
  9933.           A fullword binary integer identifying the Instance Specific 
  9934.           Information (ISI) associated with the given instance of the condition 
  9935.           represented by the condition token where it is contained. If an ISI 
  9936.           is not associated with a given condition token, the i_s_info field 
  9937.           contains a value of binary zero. 
  9938.  
  9939. fc (output) 
  9940.           A 12-byte feedback code, optional in some languages, that indicates 
  9941.           the result of this service. 
  9942.  
  9943.           The following symbolic conditions can result from this service: 
  9944.  
  9945.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  9946.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  9947.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  9948.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9949.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  9950.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9951.                     Γöé CEE0CH     Γöé 3        Γöé 0401      Γöé An unsupported case code case-code was passed  Γöé
  9952.                     Γöé        Γöé         Γöé         Γöé to routine routine-name.            Γöé
  9953.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9954.                     Γöé CEE0CI     Γöé 3        Γöé 0402      Γöé An unsupported control code control-code was  Γöé
  9955.                     Γöé        Γöé         Γöé         Γöé passed to routine routine-name.         Γöé
  9956.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9957.                     Γöé CEE0CJ     Γöé 3        Γöé 0403      Γöé An unsupported severity code severity-code was Γöé
  9958.                     Γöé        Γöé         Γöé         Γöé passed to routine routine-name.         Γöé
  9959.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9960.                     Γöé CEE0CK     Γöé 1        Γöé 0404      Γöé A facility ID facility-id with non-       Γöé
  9961.                     Γöé        Γöé         Γöé         Γöé alphanumeric characters was passed to routine  Γöé
  9962.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  9963.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  9964.                     Γöé CEE0E4     Γöé 3        Γöé 0452      Γöé An unsupported facility ID facility-id was   Γöé
  9965.                     Γöé        Γöé         Γöé         Γöé passed to routine routine-name.         Γöé
  9966.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  9967.  
  9968. Usage Notes 
  9969.  
  9970.  C/370 considerations-The structure of the condition token (type_FEEDBACK) is 
  9971.   described in the leawi.h header file shipped with LE/370. C/370 users can 
  9972.   assign values directly to the fields of the token in the header file without 
  9973.   using the CEENCOD service. (See the example for CEESGL-Signal a Condition for 
  9974.   details.) 
  9975.  
  9976.   The layout of the type_FEEDBACK condition token in the header file is shown 
  9977.   in type_FEEDBACK Data Type as Defined in the leawi.h Header File. 
  9978.  
  9979.  OpenEdition MVS consideration-In multithread applications, CEEDCOD affects 
  9980.   only the calling thread. 
  9981.  
  9982. Examples 
  9983.  
  9984.  C/370 Example 
  9985.  
  9986.     /*COMPILATION UNIT: EDCDCOD   */
  9987.  
  9988.     #include <stdio.h>
  9989.     #include <string.h>
  9990.     #include <leawi.h>
  9991.     #include <ceeedcct.h>
  9992.  
  9993.     /****************************************************/
  9994.     /* In C/370 it is not necessary to use this service.*/
  9995.     /* The fields can be manipulated directly.  See the */
  9996.     /* example for CEESGL to see how to manipulate      */
  9997.     /* condition token fields directly.                 */
  9998.     /****************************************************/
  9999.  
  10000.     int main(void) {
  10001.  
  10002.       _FEEDBACK fc,newfc;
  10003.       _INT2 c_1,c_2,cond_case,sev,control;
  10004.       _CHAR3 facid;
  10005.       _INT4 isi, heapid, size;
  10006.       _POINTER address;
  10007.  
  10008.       heapid = 0;
  10009.       size = 4000;
  10010.  
  10011.       CEEGTST(&heapid,&size,&address,&fc);
  10012.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  10013.          printf("CEEGTST failed with msgno %d\n",
  10014.            fc.tok_msgno);
  10015.          exit(2999);
  10016.       }
  10017.  
  10018.       /* decompose the feedback token to check for errors */
  10019.       CEEDCOD(&fc,&c_1,&c_2,&cond_case,&sev,&control,facid,
  10020.               &isi,&newfc);
  10021.  
  10022.       if ( _FBCHECK ( newfc , CEE000 ) != 0 ) {
  10023.          printf("CEEDCOD failed with msgno %d\n",
  10024.            newfc.tok_msgno);
  10025.          exit(2889);
  10026.       }
  10027.       if (c_1 != 0 || c_2 != 0)
  10028.          printf(
  10029.          "c_1 and c_2 returned from CEEDCOD should be 0\n");
  10030.      /* .
  10031.         .
  10032.         . */
  10033.     }
  10034.  
  10035.  COBOL/370 Example 
  10036.  
  10037.     CBL LIB,APOST
  10038.           *COMPILATION UNIT: IGZTDCOD
  10039.           ***********************************************
  10040.           **                                           **
  10041.           ** Function: CEEDCOD - Decompose a condition **
  10042.           **                     token                 **
  10043.           **                                           **
  10044.           ** In this example, a call is made to        **
  10045.           ** CEEGTST in order to obtain a condition    **
  10046.           ** token to use in the call to CEEDCOD.      **
  10047.           ** A call could also have been made to any   **
  10048.           ** other LE service, or a condition token    **
  10049.           ** could have been constructed using         **
  10050.           ** CEEDCOD.                                  **
  10051.           **                                           **
  10052.           ***********************************************
  10053.            IDENTIFICATION DIVISION.
  10054.            PROGRAM-ID. CBLDCOD.
  10055.            DATA DIVISION.
  10056.            WORKING-STORAGE SECTION.
  10057.            01  HEAPID                  PIC S9(9) COMP.
  10058.            01  HPSIZE                  PIC S9(9) COMP.
  10059.            01  ADDRSS                  USAGE POINTER.
  10060.            01  SEV                     PIC S9(4) COMP.
  10061.            01  MSGNO                   PIC S9(4) COMP.
  10062.            01  CASE                    PIC S9(4) COMP.
  10063.            01  SEV2                    PIC S9(4) COMP.
  10064.            01  CNTRL                   PIC S9(4) COMP.
  10065.            01  FACID                   PIC X(3).
  10066.            01  ISINFO                  PIC S9(9) COMP.
  10067.            01  FC.
  10068.                02  Condition-Token-Value.
  10069.                COPY  CEEIGZCT.
  10070.                    03  Case-1-Condition-ID.
  10071.                        04  Severity        PIC S9(4) COMP.
  10072.                        04  Msg-No          PIC S9(4) COMP.
  10073.                    03  Case-2-Condition-ID
  10074.                              REDEFINES Case-1-Condition-ID.
  10075.                        04  Class-Code      PIC S9(4) COMP.
  10076.                        04  Cause-Code      PIC S9(4) COMP.
  10077.                    03  Case-Sev-Ctl    PIC X.
  10078.                    03  Facility-ID     PIC XXX.
  10079.                02  I-S-Info            PIC S9(9) COMP.
  10080.            01  FC2.
  10081.                02  Condition-Token-Value.
  10082.                COPY  CEEIGZCT.
  10083.                    03  Case-1-Condition-ID.
  10084.                        04  Severity        PIC S9(4) COMP.
  10085.                        04  Msg-No          PIC S9(4) COMP.
  10086.                    03  Case-2-Condition-ID
  10087.                              REDEFINES Case-1-Condition-ID.
  10088.                        04  Class-Code      PIC S9(4) COMP.
  10089.                        04  Cause-Code      PIC S9(4) COMP.
  10090.                    03  Case-Sev-Ctl    PIC X.
  10091.                    03  Facility-ID     PIC XXX.
  10092.                02  I-S-Info        PIC S9(9) COMP.
  10093.  
  10094.            PROCEDURE DIVISION.
  10095.           ** Call any LE service to receive a condition
  10096.           **     token to use as input to CEEDCOD.
  10097.  
  10098.            PARA-CBLGTST.
  10099.           ** Specify 0 to get storage from the initial
  10100.           **     heap.
  10101.           ** Specify 4000 to get 4000 bytes of storage.
  10102.           ** Call CEEGTST to obtain storage.
  10103.  
  10104.                MOVE 0 TO HEAPID.
  10105.                MOVE 4000 TO HPSIZE.
  10106.  
  10107.                CALL 'CEEGTST' USING HEAPID , HPSIZE ,
  10108.                    ADDRSS , FC.
  10109.  
  10110.            PARA-CBLDCOD.
  10111.           ** Use the FC returned from CEEGTST as an
  10112.           **     input condition token to CEEDCOD.
  10113.  
  10114.                CALL 'CEEDCOD' USING FC , SEV , MSGNO ,
  10115.                    CASE , SEV2 , CNTRL , FACID ,
  10116.                    ISINFO , FC2.
  10117.                IF CEE000 of FC2  THEN
  10118.                    DISPLAY 'CEEGTST completed with msg '
  10119.                        MSGNO ', Severity ' SEV ', Case '
  10120.                        CASE ', Control ' CNTRL ', and '
  10121.                        'Instance-Specific Information of '
  10122.                        ISINFO '.'
  10123.                ELSE
  10124.                    DISPLAY 'CEEDCOD failed with msg '
  10125.                        Msg-No of FC2 UPON CONSOLE;
  10126.                END-IF.
  10127.  
  10128.                GOBACK.
  10129.  
  10130.  PL/I Example 
  10131.  
  10132.     *PROCESS MACRO;
  10133.      /*COMPILATION UNIT: IBMDCOD
  10134.      /***************************************************/
  10135.      /**                                               **/
  10136.      /** Function: CEEDCOD - decompose a condition     **/
  10137.      /**                     token                     **/
  10138.      /**                                               **/
  10139.      /** In this example, a call is made to CEEGTST to **/
  10140.      /** receive a condition token to decompose.       **/
  10141.      /** A call could have been made to any LE/370     **/
  10142.      /** service. The condition token returned by      **/
  10143.      /** CEEGTST is used as input to CEEDCOD.          **/
  10144.      /**                                               **/
  10145.      /***************************************************/
  10146.  
  10147.      PLIDCOD: PROC OPTIONS(MAIN);
  10148.  
  10149.         %INCLUDE  CEEIBMAW;
  10150.         %INCLUDE  CEEIBMCT;
  10151.  
  10152.         DCL HEAPID  INT4;
  10153.         DCL STGSIZE INT4;
  10154.         DCL ADDRSS  POINTER;
  10155.         DCL 01 FC   FEEDBACK;
  10156.  
  10157.         DCL SEV     INT2;
  10158.         DCL MSGNO   INT2;
  10159.         DCL CASE    INT2;
  10160.         DCL SEV2    INT2;
  10161.         DCL CNTRL   INT2;
  10162.         DCL FACID   CHARACTER ( 3 );
  10163.         DCL ISINFO  INT4;
  10164.         DCL 01 FC2  FEEDBACK;
  10165.  
  10166.         HEAPID = -1;    /* invalid heap ID               */
  10167.         STGSIZE = 4000; /* request 4000 bytes of storage */
  10168.  
  10169.         /* Call any service (in this case, CEEGTST) to   */
  10170.         /*       create a condition token to decompose   */
  10171.         CALL CEEGTST ( HEAPID , STGSIZE , ADDRSS , FC );
  10172.  
  10173.         /* Call CEEDCOD with the condition token         */
  10174.         /*    returned in FC from CEEGTST                */
  10175.         CALL CEEDCOD ( FC , SEV , MSGNO , CASE , SEV2 ,
  10176.               CNTRL , FACID , ISINFO , FC2 );
  10177.         IF  FBCHECK( FC2, CEE000)  THEN  DO;
  10178.            PUT SKIP LIST( 'Feedback token from CEEGTST has'
  10179.               || ' Severity of ' || SEV
  10180.               || ', Message Number of ' || MSGNO
  10181.               || ', Case of ' || CASE || ',' );
  10182.            PUT SKIP LIST( '   Severity 2 of ' || SEV2
  10183.               || ', Control of ' || CNTRL
  10184.               || ', Facility ID of ' || FACID
  10185.               || ', and I-S-Info of ' || ISINFO || '.' );
  10186.            END;
  10187.         ELSE  DO;
  10188.            DISPLAY( 'CEEDCOD failed with msg '
  10189.               || FC2.MsgNo );
  10190.            STOP;
  10191.            END;
  10192.  
  10193.      END PLIDCOD;
  10194.  
  10195.  
  10196. ΓòÉΓòÉΓòÉ 3.3.24. CEEDSHP-Discard Heap ΓòÉΓòÉΓòÉ
  10197.  
  10198. CEEDSHP discards an entire heap created by CEECRHP. CEECRHP returns a unique 
  10199. heap_id to the caller; use this ID in the CEEDSHP call. A heap_id of 0 is not 
  10200. permitted with CEEDSHP. 
  10201.  
  10202. Discarding a heap with CEEDSHP immediately returns all storage allocated to the 
  10203. heap to the operating system, even if the KEEP suboption has been specified 
  10204. with the HEAP run-time option. 
  10205.  
  10206. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  10207. Γöé                                                  Γöé
  10208. Γöé >>ΓöÇΓöÇCEEDSHPΓöÇΓöÇ(ΓöÇΓöÇheap_idΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  10209. Γöé                                                  Γöé
  10210. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  10211.  
  10212. heap_id (input) 
  10213.           A fullword binary signed integer. heap_id is a token specifying the 
  10214.           discarded heap. 
  10215.  
  10216.           A heap_id of 0 is invalid; the initial heap is logically created 
  10217.           during enclave initialization and cannot be discarded. 
  10218.  
  10219. fc (output) 
  10220.           A 12-byte feedback code, optional in some languages, that indicates 
  10221.           the result of this service. 
  10222.  
  10223.           The following symbolic conditions can result from this service: 
  10224.  
  10225.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  10226.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  10227.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  10228.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10229.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  10230.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10231.                     Γöé CEE0P2     Γöé 4        Γöé 0802      Γöé Heap storage control information was damaged.  Γöé
  10232.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10233.                     Γöé CEE0P3     Γöé 3        Γöé 0803      Γöé The heap identifier in a get storage request  Γöé
  10234.                     Γöé        Γöé         Γöé         Γöé or a discard heap request was unrecognized.   Γöé
  10235.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10236.                     Γöé CEE0PC     Γöé 3        Γöé 0812      Γöé An invalid attempt to discard the Initial Heap Γöé
  10237.                     Γöé        Γöé         Γöé         Γöé was made.                    Γöé
  10238.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  10239.  
  10240. Usage Notes 
  10241.  
  10242.  After the call to CEEDSHP, any existing pointers to storage allocated from 
  10243.   this heap are dangling pointers, that is, pointers to storage that is freed. 
  10244.   Using these pointers can cause unpredictable results. 
  10245.  
  10246.  OpenEdition MVS considerations-CEEDSHP applies to the enclave. LE/370 frees 
  10247.   all storage in the heap regardless of which thread allocated it. 
  10248.  
  10249. Examples 
  10250.  
  10251.  C/370 Example 
  10252.  
  10253.     /*COMPILATION UNIT: EDCDSHP   */
  10254.  
  10255.     #include <stdio.h>
  10256.     #include <string.h>
  10257.     #include <leawi.h>
  10258.     #include <ceeedcct.h>
  10259.  
  10260.     int main(void) {
  10261.  
  10262.        _INT4 heapid, size, increment, options;
  10263.        _FEEDBACK fc;
  10264.      /*  .
  10265.          .
  10266.          .  */
  10267.        heapid = 0;        /* heap identifier is set */
  10268.                           /* by CEECRHP */
  10269.        size = 4096;       /* initial size of heap */
  10270.                           /* (in bytes)       */
  10271.        increment = 4096;  /* increment to extend */
  10272.                           /* the heap by */
  10273.        options = 72;      /* set up heap as */
  10274.                           /* (,,ANYWHERE,FREE)*/
  10275.  
  10276.        /* create heap using CEECRHP */
  10277.        CEECRHP(&heapid,&size,&increment,&options,&fc);
  10278.  
  10279.        /* check the first 4 bytes of the feedback token */
  10280.        /* (0 if successful) */
  10281.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  10282.           printf("CEECRHP failed with message number %d\n",
  10283.                  fc.tok_msgno);
  10284.           exit(99);
  10285.        }
  10286.      /*  .
  10287.          .
  10288.          .  */
  10289.  
  10290.        /* discard the heap that was previously created */
  10291.        /* using CEECRHP */
  10292.        CEEDSHP(&heapid,&fc);
  10293.  
  10294.        /* check the first 4 bytes of the feedback token */
  10295.        /* (0 if successful) */
  10296.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  10297.           printf("CEEDSHP failed with message number %d\n",
  10298.                  fc.tok_msgno);
  10299.           exit(99);
  10300.        }
  10301.      /*  .
  10302.          .
  10303.          .  */
  10304.     }
  10305.  
  10306.  COBOL/370 Example 
  10307.  
  10308.     CBL LIB,APOST
  10309.           *COMPILATION UNIT: IGZTDSHP
  10310.           **************************************************
  10311.           **                                              **
  10312.           ** Function: CEEDSHP - discard heap             **
  10313.           **                                              **
  10314.           ** In this example, a new additional heap is    **
  10315.           ** created a call to CEECRHP, and then          **
  10316.           ** discarded through a call to CEEDSHP.         **
  10317.           **                                              **
  10318.           **************************************************
  10319.            IDENTIFICATION DIVISION.
  10320.            PROGRAM-ID. CBLDSHP.
  10321.            DATA DIVISION.
  10322.            WORKING-STORAGE SECTION.
  10323.            01  HEAPID                  PIC S9(9) COMP.
  10324.            01  HPSIZE                  PIC S9(9) COMP.
  10325.            01  INCR                    PIC S9(9) COMP.
  10326.            01  OPTS                    PIC S9(9) COMP.
  10327.            01  FC.
  10328.                02  Condition-Token-Value.
  10329.                COPY  CEEIGZCT.
  10330.                    03  Case-1-Condition-ID.
  10331.                        04  Severity        PIC S9(4) COMP.
  10332.                        04  Msg-No          PIC S9(4) COMP.
  10333.                    03  Case-2-Condition-ID
  10334.                              REDEFINES Case-1-Condition-ID.
  10335.                        04  Class-Code      PIC S9(4) COMP.
  10336.                        04  Cause-Code      PIC S9(4) COMP.
  10337.                    03  Case-Sev-Ctl    PIC X.
  10338.                    03  Facility-ID     PIC XXX.
  10339.                02  I-S-Info        PIC S9(9) COMP.
  10340.            PROCEDURE DIVISION.
  10341.            PARA-CBLCRHP.
  10342.           ** Specify 0 for HEAPID, and heap id will
  10343.           **     be set by CEECRHP.
  10344.           ** Heap size and increment will each be 4096
  10345.           **     bytes.
  10346.           ** Specify 00 for OPTS, and HEAP attributes
  10347.           **     will be inherited from the initial heap
  10348.           **     (copied from the HEAP run-time option).
  10349.                MOVE 0 TO HEAPID.
  10350.                MOVE 4096 TO HPSIZE.
  10351.                MOVE 4096 TO INCR.
  10352.                MOVE 00 TO OPTS.
  10353.  
  10354.                CALL 'CEECRHP' USING HEAPID , HPSIZE ,
  10355.                    INCR , OPTS , FC.
  10356.                IF CEE000 of FC  THEN
  10357.                    DISPLAY 'Created heap number ' HEAPID
  10358.                         ' which is ' HPSIZE ' bytes long'
  10359.                ELSE
  10360.                    DISPLAY 'CEECRHP failed with msg '
  10361.                        Msg-No of FC UPON CONSOLE;
  10362.                    STOP RUN;
  10363.                END-IF.
  10364.  
  10365.           ** To discard the heap, call CEEDSHP with the
  10366.           **     heap id returned from CEECRHP.
  10367.                CALL 'CEEDSHP' USING HEAPID , FC.
  10368.                IF CEE000 of FC THEN
  10369.                    DISPLAY 'Disposed of heap #  ' HEAPID
  10370.                ELSE
  10371.                    DISPLAY 'CEEDSHP failed with msg '
  10372.                        Msg-No of FC UPON CONSOLE;
  10373.                END-IF.
  10374.                GOBACK.
  10375.  
  10376.  PL/I Example 
  10377.  
  10378.     *PROCESS MACRO;
  10379.      /*COMPILATION UNIT: IBMDSHP
  10380.      /***************************************************/
  10381.      /**                                               **/
  10382.      /** Function: CEEDSHP - discard heap              **/
  10383.      /**                                               **/
  10384.      /** In this example, calls are made to CEECRHP    **/
  10385.      /** and CEEDSHP to create a heap of 4096 bytes    **/
  10386.      /** and then discard it.                          **/
  10387.      /**                                               **/
  10388.      /***************************************************/
  10389.  
  10390.      PLIDSHP: PROC OPTIONS(MAIN);
  10391.  
  10392.         %INCLUDE  CEEIBMAW;
  10393.         %INCLUDE  CEEIBMCT;
  10394.  
  10395.         DCL HEAPID INT4 ;
  10396.         DCL HPSIZE INT4 ;
  10397.         DCL INCR INT4 ;
  10398.         DCL OPTS INT4 ;
  10399.         DCL 01 FC FEEDBACK ;
  10400.  
  10401.         DCL 01 FC2 FEEDBACK ;
  10402.  
  10403.         HEAPID = 0;    /* HEAPID will be set and        */
  10404.                        /*    returned by CEECRHP        */
  10405.         HPSIZE = 4096; /* Initial size of heap in bytes */
  10406.         INCR = 4096;   /* Number of bytes to extend     */
  10407.                        /*    heap by                    */
  10408.         OPTS = 00;     /* Set up heap with the same     */
  10409.                        /*    attributes as the initial  */
  10410.                        /*    heap (HEAPID = 0)          */
  10411.  
  10412.         /* Call CEECRHP to set up new heap              */
  10413.         CALL CEECRHP ( HEAPID, HPSIZE, INCR,
  10414.               OPTS, FC );
  10415.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  10416.            PUT SKIP LIST( 'Created heap number ' || HEAPID
  10417.               || ' consisting of ' || HPSIZE || ' bytes' );
  10418.            END;
  10419.         ELSE  DO;
  10420.            DISPLAY( 'CEECRHP failed with msg '
  10421.               || FC.MsgNo );
  10422.            STOP;
  10423.            END;
  10424.  
  10425.         /* Call CEEDSHP to discard heap with the id     */
  10426.         /*    returned by CEECRHP                       */
  10427.         CALL CEEDSHP ( HEAPID, FC2 );
  10428.         IF  FBCHECK( FC2, CEE000)  THEN  DO;
  10429.            PUT SKIP LIST( 'Disposed of heap number '
  10430.               || HEAPID );
  10431.            END;
  10432.         ELSE  DO;
  10433.            DISPLAY( 'CEEDSHP failed with msg '
  10434.               || FC2.MsgNo );
  10435.            STOP;
  10436.            END;
  10437.  
  10438.  
  10439.      END PLIDSHP;
  10440.  
  10441.  
  10442. ΓòÉΓòÉΓòÉ 3.3.25. CEEDYWK-Calculate Day of Week from Lilian Date ΓòÉΓòÉΓòÉ
  10443.  
  10444. CEEDYWK calculates the day of the week on which a Lilian date falls. The day of 
  10445. the week is returned to the calling routine as a number between 1 and 7. 
  10446.  
  10447. The number returned by CEEDYWK is useful for end-of-week calculations. 
  10448.  
  10449. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  10450. Γöé                                                  Γöé
  10451. Γöé >>ΓöÇΓöÇCEEDYWKΓöÇΓöÇ(ΓöÇΓöÇinput_Lilian_dateΓöÇΓöÇ,ΓöÇΓöÇoutput_day_noΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  10452. Γöé                                                  Γöé
  10453. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  10454.  
  10455. input_Lilian_date (input) 
  10456.           A 32-bit binary integer representing the Lilian date, the number of 
  10457.           days since 14 October 1582. 
  10458.  
  10459.           For example, 16 May 1988 is day number 148138. The valid range of 
  10460.           input_Lilian_date is between 1 and 3,074,324 (15 October 1582 and 31 
  10461.           December 9999). 
  10462.  
  10463. output_day_no (output) 
  10464.           A 32-bit binary integer representing input_Lilian_date's day-of-week: 
  10465.           1 equals Sunday, 2 equals Monday, ..., 7 equals Saturday. 
  10466.  
  10467.           If input_Lilian_date is invalid, output_day_no is set to 0 and 
  10468.           CEEDYWK terminates with a non-CEE000 symbolic feedback code. 
  10469.  
  10470. fc (output) 
  10471.           A 12-byte feedback code, optional in some languages, that indicates 
  10472.           the result of this service. 
  10473.  
  10474.           The following symbolic conditions can result from this service: 
  10475.  
  10476.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  10477.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  10478.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  10479.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10480.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  10481.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10482.                     Γöé CEE2EG     Γöé 3        Γöé 2512      Γöé The Lilian date value was not within the sup-  Γöé
  10483.                     Γöé        Γöé         Γöé         Γöé ported range.                  Γöé
  10484.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  10485.  
  10486. Usage Note 
  10487.  
  10488.  OpenEdition MVS consideration-In multithread applications, CEEDYWK affects 
  10489.   only the calling thread. 
  10490.  
  10491. Examples 
  10492.  
  10493.  C/370 Example 
  10494.  
  10495.     /*COMPILATION UNIT: EDCDYWK   */
  10496.  
  10497.     #include <string.h>
  10498.     #include <stdio.h>
  10499.     #include <leawi.h>
  10500.     #include <ceeedcct.h>
  10501.  
  10502.     int main (void) {
  10503.  
  10504.       _INT4 in_date, day;
  10505.       _FEEDBACK fc;
  10506.  
  10507.       in_date = 139370;  /* Thursday */
  10508.  
  10509.       CEEDYWK(&in_date,&day,&fc);
  10510.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  10511.          printf("CEEDYWK failed with message number %d\n",
  10512.                 fc.tok_msgno);
  10513.          exit(2999);
  10514.       }
  10515.       printf("Lilian date %d, occurs on a ",in_date);
  10516.       switch(day) {
  10517.          case 1: printf("Sunday.\n");
  10518.                  break;
  10519.          case 2: printf("Monday.\n");
  10520.                  break;
  10521.          case 3: printf("Tuesday.\n");
  10522.                  break;
  10523.          case 4: printf("Wednesday.\n");
  10524.                  break;
  10525.          case 5: printf("Thursday.\n");
  10526.                  break;
  10527.          case 6: printf("Friday.\n");
  10528.                  break;
  10529.          case 7: printf("Saturday.\n");
  10530.                  break;
  10531.          default: printf(
  10532.                " ERROR! DAY RETURN BY CEEDYWK UNKNOWN\n");
  10533.                  break;
  10534.       }
  10535.     }
  10536.  
  10537.  COBOL/370 Example 
  10538.  
  10539.     CBL LIB,APOST
  10540.           *COMPILATION UNIT: IGZTDYWK
  10541.           ************************************************
  10542.           **                                            **
  10543.           ** Function: CEEDYWK - calculate day of week  **
  10544.           **                     from Lilian date       **
  10545.           **                                            **
  10546.           ** In this example, a call is made to CEEDYWK **
  10547.           ** to return the day of the week on which a   **
  10548.           ** Lilian date falls. (A Lilian date is the   **
  10549.           ** number of days since 14 October 1582)      **
  10550.           **                                            **
  10551.           ************************************************
  10552.            IDENTIFICATION DIVISION.
  10553.            PROGRAM-ID. CBLDYWK.
  10554.            DATA DIVISION.
  10555.            WORKING-STORAGE SECTION.
  10556.            01  LILIAN                  PIC S9(9) COMP.
  10557.            01  DAYNUM                  PIC S9(9) COMP.
  10558.            01  IN-DATE.
  10559.                02  Vstring-length      PIC S9(4) COMP.
  10560.                02  Vstring-text.
  10561.                    03  Vstring-char        PIC X,
  10562.                                OCCURS 0 TO 256 TIMES,
  10563.                                DEPENDING ON Vstring-length
  10564.                                    of IN-DATE.
  10565.            01  PICSTR.
  10566.                02  Vstring-length      PIC S9(4) COMP.
  10567.                02  Vstring-text.
  10568.                    03  Vstring-char        PIC X,
  10569.                                OCCURS 0 TO 256 TIMES,
  10570.                                DEPENDING ON Vstring-length
  10571.                                    of PICSTR.
  10572.            01  FC.
  10573.                02  Condition-Token-Value.
  10574.                COPY  CEEIGZCT.
  10575.                    03  Case-1-Condition-ID.
  10576.                        04  Severity        PIC S9(4) COMP.
  10577.                        04  Msg-No          PIC S9(4) COMP.
  10578.                    03  Case-2-Condition-ID
  10579.                              REDEFINES Case-1-Condition-ID.
  10580.                        04  Class-Code      PIC S9(4) COMP.
  10581.                        04  Cause-Code      PIC S9(4) COMP.
  10582.                    03  Case-Sev-Ctl    PIC X.
  10583.                    03  Facility-ID     PIC XXX.
  10584.                02  I-S-Info        PIC S9(9) COMP.
  10585.  
  10586.            PROCEDURE DIVISION.
  10587.            PARA-CBLDAYS.
  10588.           ** Call CEEDAYS to convert date of 6/2/88 to
  10589.           **     Lilian representation
  10590.                MOVE 6 TO Vstring-length of IN-DATE.
  10591.                MOVE '6/2/88' TO Vstring-text of IN-DATE(1:6).
  10592.                MOVE 8 TO Vstring-length of PICSTR.
  10593.                MOVE 'MM/DD/YY' TO Vstring-text of PICSTR(1:8).
  10594.                CALL 'CEEDAYS' USING IN-DATE, PICSTR,
  10595.                    LILIAN, FC.
  10596.  
  10597.           ** If CEEDAYS runs successfully, display result.
  10598.                IF  CEE000 of FC  THEN
  10599.                    DISPLAY Vstring-text of IN-DATE
  10600.                        ' is Lilian day: ' LILIAN
  10601.                ELSE
  10602.                    DISPLAY 'CEEDAYS failed with msg '
  10603.                        Msg-No of FC UPON CONSOLE;
  10604.                    STOP RUN;
  10605.                END-IF.
  10606.  
  10607.            PARA-CBLDYWK.
  10608.  
  10609.           ** Call CEEDYWK to return the day of the week on
  10610.           ** which the Lilian date falls
  10611.                CALL 'CEEDYWK' USING LILIAN , DAYNUM , FC.
  10612.  
  10613.           ** If CEEDYWK runs successfully, print results
  10614.                IF CEE000 of FC  THEN
  10615.                    DISPLAY 'Lilian day ' LILIAN
  10616.                        ' falls on day ' DAYNUM
  10617.                        ' of the week, which is a:'
  10618.           ** Select DAYNUM to display the name of the day
  10619.           **     of the week.
  10620.                    EVALUATE DAYNUM
  10621.                      WHEN 1
  10622.                        DISPLAY 'Sunday.'
  10623.                      WHEN 2
  10624.                        DISPLAY 'Monday.'
  10625.                      WHEN 3
  10626.                        DISPLAY 'Tuesday'
  10627.                      WHEN 4
  10628.                        DISPLAY 'Wednesday.'
  10629.                      WHEN 5
  10630.                        DISPLAY 'Thursday.'
  10631.                      WHEN 6
  10632.                        DISPLAY 'Friday.'
  10633.                      WHEN 7
  10634.                        DISPLAY 'Saturday.'
  10635.                    END-EVALUATE;
  10636.                ELSE
  10637.                    DISPLAY 'CEEDYWK failed with msg '
  10638.                        Msg-No of FC UPON CONSOLE;
  10639.                    STOP RUN;
  10640.                END-IF.
  10641.  
  10642.                GOBACK.
  10643.  
  10644.  PL/I Example 
  10645.  
  10646.     *PROCESS MACRO;
  10647.      /*COMPILATION UNIT: IBMDYWK
  10648.      /**************************************************/
  10649.      /**                                              **/
  10650.      /** Function: CEEDYWK - calculate day of week    **/
  10651.      /** from Lilian date                             **/
  10652.      /**                                              **/
  10653.      /** In this example, CEEDYWK is called to        **/
  10654.      /** calculate the day of week on which a         **/
  10655.      /** Lilian date falls.                           **/
  10656.      /**                                              **/
  10657.      /**************************************************/
  10658.  
  10659.      PLIDYWK: PROC OPTIONS(MAIN);
  10660.  
  10661.         %INCLUDE  CEEIBMAW;
  10662.         %INCLUDE  CEEIBMCT;
  10663.  
  10664.         DCL LILIAN  INT4 ;
  10665.         DCL DAYNUM  INT4 ;
  10666.         DCL 01 FC   FEEDBACK ;
  10667.  
  10668.         LILIAN = 152385; /* specify input as Lilian date */
  10669.  
  10670.         /* Call CEEDYWK to calculate the day of the      */
  10671.         /*    week on which Lilian date 152385 falls     */
  10672.         CALL CEEDYWK ( LILIAN , DAYNUM , FC );
  10673.  
  10674.         /* If CEEDYWK ran successfully, print result     */
  10675.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  10676.            PUT SKIP LIST ( 'Lilian date ' || LILIAN
  10677.               || ' falls on a ' );
  10678.            SELECT (DAYNUM);
  10679.               WHEN (1) PUT LIST ( 'Sunday.' );
  10680.               WHEN (2) PUT LIST ( 'Monday.' );
  10681.               WHEN (3) PUT LIST ( 'Tuesday.' );
  10682.               WHEN (4) PUT LIST ( 'Wednesday.' );
  10683.               WHEN (5) PUT LIST ( 'Thursday.' );
  10684.               WHEN (6) PUT LIST ( 'Friday.' );
  10685.               WHEN (7) PUT LIST ( 'Saturday.' );
  10686.               END /* Case of DAYNUM */;
  10687.            END;
  10688.         ELSE  DO;
  10689.            DISPLAY( 'CEEDYWK failed with msg '
  10690.               || FC.MsgNo );
  10691.            STOP;
  10692.            END;
  10693.  
  10694.  
  10695.      END PLIDYWK;
  10696.  
  10697.  
  10698. ΓòÉΓòÉΓòÉ 3.3.26. CEEFMDA-Get Default Date Format ΓòÉΓòÉΓòÉ
  10699.  
  10700. CEEFMDA returns to the calling routine the default date picture string for a 
  10701. specified country. 
  10702.  
  10703. For a list of the default settings for a specified country, see Defaults 
  10704. Currency and Picture Strings Based on COUNTRY Setting. 
  10705.  
  10706. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  10707. Γöé                                                  Γöé
  10708. Γöé >>ΓöÇΓöÇCEEFMDAΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇdate_pic_strΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  10709. Γöé                                                  Γöé
  10710. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  10711.  
  10712. country_code (input) 
  10713.           A 2-character fixed-length string representing one of the country 
  10714.           codes found in Defaults Currency and Picture Strings Based on COUNTRY 
  10715.           Setting. 
  10716.  
  10717.           country_code is not case-sensitive. Also, if no value is specified, 
  10718.           the default country code (as set by either the COUNTRY run-time 
  10719.           option or the CEE3CTY callable service) is used. See COUNTRY for an 
  10720.           explanation of the COUNTRY run-time option, and CEE3CTY-Set Default 
  10721.           Country for an explanation of CEE3CTY. 
  10722.  
  10723.           If you specify an invalid country_code, the default date format is 
  10724.           'YYYY-MM-DD HH:MI:SS'. 
  10725.  
  10726. date_pic_str (output) 
  10727.           VSTRING, a fixed-length 80-character string, returned to the calling 
  10728.           routine. It contains the default date picture string for the country 
  10729.           specified. The picture string is left-justified and padded on the 
  10730.           right with blanks if necessary. 
  10731.  
  10732. fc (output) 
  10733.           A 12-byte feedback code, optional in some languages, that indicates 
  10734.           the result of this service. 
  10735.  
  10736.           The following symbolic conditions can result from this service: 
  10737.  
  10738.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  10739.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  10740.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  10741.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10742.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  10743.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10744.                     Γöé CEE3CB     Γöé 2        Γöé 3467      Γöé The country code country-code was invalid for  Γöé
  10745.                     Γöé        Γöé         Γöé         Γöé CEEFMDA.  The default date picture string    Γöé
  10746.                     Γöé        Γöé         Γöé         Γöé date-pic-string was returned.          Γöé
  10747.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  10748.  
  10749. Usage Note 
  10750.  
  10751.  OpenEdition MVS considerations-CEEFMDA applies to the enclave. Every enclave 
  10752.   has a single current country setting that has a single date format. Every 
  10753.   thread in every enclave has the same default. 
  10754.  
  10755. Examples 
  10756.  
  10757.  C/370 Example 
  10758.  
  10759.     /*COMPILATION UNIT: EDCFMDA   */
  10760.  
  10761.     #include <stdio.h>
  10762.     #include <string.h>
  10763.     #include <leawi.h>
  10764.     #include <ceeedcct.h>
  10765.  
  10766.     int main(void) {
  10767.  
  10768.       _FEEDBACK fc;
  10769.       _CHAR2 country;
  10770.       _CHAR80 date_pic;
  10771.  
  10772.       /* get the default date format for Canada */
  10773.       memcpy(country,"CA",2);
  10774.       CEEFMDA(country,date_pic,&fc);
  10775.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  10776.          printf("CEEFMDA failed with message number %d\n",
  10777.                  fc.tok_msgno);
  10778.          exit(2999);
  10779.       }
  10780.       /* print out the default date format for Canada */
  10781.       printf("%.80s\n",date_pic);
  10782.     }
  10783.  
  10784.  COBOL/370 Example 
  10785.  
  10786.     CBL LIB,APOST
  10787.           *COMPILATION UNIT: IGZTFMDA
  10788.           *******************************************
  10789.           **                                       **
  10790.           ** Function: CEEFMDA - obtain default    **
  10791.           **                     date format       **
  10792.           *******************************************
  10793.            IDENTIFICATION DIVISION.
  10794.            PROGRAM-ID. CBLFMDA.
  10795.            DATA DIVISION.
  10796.            WORKING-STORAGE SECTION.
  10797.            01  COUNTRY                 PIC X(2).
  10798.            01  PICSTR                  PIC X(80).
  10799.            01  FC.
  10800.                02  Condition-Token-Value.
  10801.                COPY  CEEIGZCT.
  10802.                    03  Case-1-Condition-ID.
  10803.                        04  Severity        PIC S9(4) COMP.
  10804.                        04  Msg-No          PIC S9(4) COMP.
  10805.                    03  Case-2-Condition-ID
  10806.                              REDEFINES Case-1-Condition-ID.
  10807.                        04  Class-Code      PIC S9(4) COMP.
  10808.                        04  Cause-Code      PIC S9(4) COMP.
  10809.                    03  Case-Sev-Ctl    PIC X.
  10810.                    03  Facility-ID     PIC XXX.
  10811.                02  I-S-Info        PIC S9(9) COMP.
  10812.            PROCEDURE DIVISION.
  10813.            PARA-CBLFMDA.
  10814.           ** Specify country code for the US and call
  10815.           **     CEEFMDA to return the default date format
  10816.           **     for the US.
  10817.                MOVE 'US' TO COUNTRY.
  10818.                CALL 'CEEFMDA' USING COUNTRY , PICSTR , FC.
  10819.  
  10820.           ** If CEEFMDA runs successfully, display result
  10821.                IF CEE000 of FC THEN
  10822.                    DISPLAY 'The default date format for '
  10823.                        'the US is: ' PICSTR
  10824.                ELSE
  10825.                    DISPLAY 'CEEFMDA failed with msg '
  10826.                        Msg-No of FC UPON CONSOLE;
  10827.                    STOP RUN;
  10828.                END-IF.
  10829.                GOBACK.
  10830.  
  10831.  PL/I Example 
  10832.  
  10833.     *PROCESS MACRO;
  10834.      /*COMPILATION UNIT: IBMFMDA
  10835.      /***************************************************/
  10836.      /**                                               **/
  10837.      /** Function: CEEFMDA - obtain default date       **/
  10838.      /**                     format                    **/
  10839.      /**                                               **/
  10840.      /***************************************************/
  10841.  
  10842.      PLIFMDA: PROC OPTIONS(MAIN);
  10843.  
  10844.         %INCLUDE  CEEIBMAW;
  10845.         %INCLUDE  CEEIBMCT;
  10846.         DCL COUNTRY CHARACTER ( 2 );
  10847.         DCL PICSTR CHAR80;
  10848.         DCL 01 FC FEEDBACK;
  10849.  
  10850.         COUNTRY = 'US'; /* Specify country code for    */
  10851.                         /*    the United States        */
  10852.  
  10853.         /* Get the default date format for the US      */
  10854.         CALL CEEFMDA ( COUNTRY , PICSTR , FC );
  10855.  
  10856.         /* Print the default date format for the US    */
  10857.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  10858.            PUT SKIP LIST(
  10859.               'The default date format for the US is '
  10860.               || PICSTR );
  10861.            END;
  10862.         ELSE  DO;
  10863.            DISPLAY( 'CEEFMDA failed with msg '
  10864.               || FC.MsgNo );
  10865.            STOP;
  10866.            END;
  10867.  
  10868.      END PLIFMDA;
  10869.  
  10870.  
  10871. ΓòÉΓòÉΓòÉ 3.3.27. CEEFMDT-Get Default Date and Time Format ΓòÉΓòÉΓòÉ
  10872.  
  10873. CEEFMDT returns the default date and time picture strings for the country 
  10874. specified by country_code. 
  10875.  
  10876. For a list of the default settings for a specified country, see Defaults 
  10877. Currency and Picture Strings Based on COUNTRY Setting. 
  10878.  
  10879. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  10880. Γöé                                                  Γöé
  10881. Γöé >>ΓöÇΓöÇCEEFMDTΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇdatetime_strΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  10882. Γöé                                                  Γöé
  10883. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  10884.  
  10885. country_code (input) 
  10886.           A 2-character fixed-length string representing one of the country 
  10887.           codes found in Defaults Currency and Picture Strings Based on COUNTRY 
  10888.           Setting. 
  10889.  
  10890.           country_code is not case-sensitive. Also, if no value is specified, 
  10891.           the default country code, as set by either the COUNTRY run-time 
  10892.           option or by CEE3CTY, is used. See COUNTRY for an explanation of the 
  10893.           COUNTRY run-time option, and CEE3CTY-Set Default Country for an 
  10894.           explanation of CEE3CTY. 
  10895.  
  10896.           If you specify an invalid country_code, the default date/time picture 
  10897.           string is 'YYYY-MM-DD HH:MI:SS'. 
  10898.  
  10899. datetime_str (output) 
  10900.           VSTRING, a fixed-length 80-character string, returned to the calling 
  10901.           routine. It contains the default date and time picture string for the 
  10902.           country specified. The picture string is left-justified and padded on 
  10903.           the right with blanks, if necessary. 
  10904.  
  10905. fc (output) 
  10906.           A 12-byte feedback code, optional in some languages, that indicates 
  10907.           the result of this service. 
  10908.  
  10909.           The following symbolic conditions can result from this service: 
  10910.  
  10911.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  10912.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  10913.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  10914.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10915.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  10916.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  10917.                     Γöé CEE3CF     Γöé 2        Γöé 3471      Γöé The country code country-code was invalid for  Γöé
  10918.                     Γöé        Γöé         Γöé         Γöé CEEFMDT.  The default date and time picture   Γöé
  10919.                     Γöé        Γöé         Γöé         Γöé string datetime-string was returned.      Γöé
  10920.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  10921.  
  10922. Usage Note 
  10923.  
  10924.  OpenEdition MVS considerations-CEEFMDT applies to the enclave. Every enclave 
  10925.   has a single current country setting that has a single date and time format. 
  10926.   Every thread in every enclave has the same default. 
  10927.  
  10928. Examples 
  10929.  
  10930.  C/370 Example 
  10931.  
  10932.     /*COMPILATION UNIT: EDCFMDT   */
  10933.  
  10934.     #include <stdio.h>
  10935.     #include <string.h>
  10936.     #include <leawi.h>
  10937.     #include <ceeedcct.h>
  10938.  
  10939.     int main(void) {
  10940.  
  10941.        _FEEDBACK fc;
  10942.        _CHAR2 country;
  10943.        _CHAR80 date_pic;
  10944.  
  10945.        /* get the default date and time format for Canada */
  10946.        memcpy(country,"CA",2);
  10947.        CEEFMDT(country,date_pic,&fc);
  10948.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  10949.           printf("CEEFMDT failed with message number %d\n",
  10950.                  fc.tok_msgno);
  10951.           exit(2999);
  10952.        }
  10953.        /* print out the default date and time format */
  10954.        printf("%.80s\n",date_pic);
  10955.     }
  10956.  
  10957.  COBOL/370 Example 
  10958.  
  10959.     CBL LIB,APOST
  10960.           *COMPILATION UNIT: IGZTFMDT
  10961.           *************************************************
  10962.           **                                             **
  10963.           ** Function: CEEFMDT - Obtain default          **
  10964.           ** date & time format                          **
  10965.           **                                             **
  10966.           *************************************************
  10967.            IDENTIFICATION DIVISION.
  10968.            PROGRAM-ID. CBLFMDT.
  10969.            DATA DIVISION.
  10970.            WORKING-STORAGE SECTION.
  10971.            01  COUNTRY                 PIC X(2).
  10972.            01  PICSTR                  PIC X(80).
  10973.            01  FC.
  10974.                02  Condition-Token-Value.
  10975.                COPY  CEEIGZCT.
  10976.                    03  Case-1-Condition-ID.
  10977.                        04  Severity        PIC S9(4) COMP.
  10978.                        04  Msg-No          PIC S9(4) COMP.
  10979.                    03  Case-2-Condition-ID
  10980.                              REDEFINES Case-1-Condition-ID.
  10981.                        04  Class-Code      PIC S9(4) COMP.
  10982.                        04  Cause-Code      PIC S9(4) COMP.
  10983.                    03  Case-Sev-Ctl    PIC X.
  10984.                    03  Facility-ID     PIC XXX.
  10985.                02  I-S-Info        PIC S9(9) COMP.
  10986.  
  10987.            PROCEDURE DIVISION.
  10988.            PARA-CBLFMDT.
  10989.           ** Specify country code for the US
  10990.                MOVE 'US' TO COUNTRY.
  10991.           ** Call CEEFMDT to return the default date and
  10992.           **     time format for the US
  10993.                CALL 'CEEFMDT' USING COUNTRY , PICSTR , FC.
  10994.  
  10995.           ** If CEEFMDT runs successfully, display result.
  10996.                IF CEE000 of FC THEN
  10997.                    DISPLAY 'The default date and time '
  10998.                        'format for the US is: ' PICSTR
  10999.                  ELSE
  11000.                    DISPLAY 'CEEFMDT failed with msg '
  11001.                        Msg-No of FC UPON CONSOLE;
  11002.                    STOP RUN;
  11003.                END-IF.
  11004.                GOBACK.
  11005.  
  11006.  PL/I Example 
  11007.  
  11008.     *PROCESS MACRO;
  11009.      /*COMPILATION UNIT: IBMFMDT
  11010.      /********************************************/
  11011.      /**                                        **/
  11012.      /** Function: CEEFMDT - obtain default     **/
  11013.      /**                     date & time format **/
  11014.      /**                                        **/
  11015.      /********************************************/
  11016.  
  11017.      PLIFMDT: PROC OPTIONS(MAIN);
  11018.  
  11019.         %INCLUDE  CEEIBMAW;
  11020.         %INCLUDE  CEEIBMCT;
  11021.  
  11022.         DCL COUNTRY CHARACTER ( 2 );
  11023.         DCL PICSTR  CHAR80;
  11024.         DCL 01 FC   FEEDBACK;
  11025.  
  11026.         COUNTRY = 'US'; /* Specify country code for     */
  11027.                         /* the United States            */
  11028.  
  11029.         /* Call CEEFMDT to get default date format      */
  11030.         /*    for the US                                */
  11031.         CALL CEEFMDT ( COUNTRY , PICSTR , FC );
  11032.  
  11033.         /* Print default date format for the US         */
  11034.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  11035.            PUT SKIP LIST( 'The default date and time '
  11036.               || 'format for the US is ' || PICSTR );
  11037.            END;
  11038.         ELSE  DO;
  11039.            DISPLAY( 'CEEFMDT failed with msg '
  11040.               || FC.MsgNo );
  11041.            STOP;
  11042.            END;
  11043.  
  11044.  
  11045.      END PLIFMDT;
  11046.  
  11047.  
  11048. ΓòÉΓòÉΓòÉ 3.3.28. CEEFMTM-Get Default Time Format ΓòÉΓòÉΓòÉ
  11049.  
  11050. CEEFMTM returns to the calling routine the default time picture string for the 
  11051. country specified by country_code. 
  11052.  
  11053. For a list of the default settings for a specified country, see Defaults 
  11054. Currency and Picture Strings Based on COUNTRY Setting. 
  11055.  
  11056. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11057. Γöé                                                  Γöé
  11058. Γöé >>ΓöÇΓöÇCEEFMTMΓöÇΓöÇ(ΓöÇΓöÇcountry_codeΓöÇΓöÇ,ΓöÇΓöÇtime_pic_strΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  11059. Γöé                                                  Γöé
  11060. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11061.  
  11062. country_code (input) 
  11063.           A 2-character fixed-length string representing one of the country 
  11064.           codes found in Defaults Currency and Picture Strings Based on COUNTRY 
  11065.           Setting. 
  11066.  
  11067.           country_code is not case-sensitive. Also, if no value is specified, 
  11068.           the default country code, as set by either the COUNTRY run-time 
  11069.           option or the CEE3CTY callable service, is used. See COUNTRY for an 
  11070.           explanation of the COUNTRY run-time option, and CEE3CTY-Set Default 
  11071.           Country for an explanation of CEE3CTY. 
  11072.  
  11073.           If you specify an invalid country_code, the default time picture 
  11074.           string is  'HH:MI:SS'. 
  11075.  
  11076. time_pic_str (output) 
  11077.           VSTRING, a fixed-length 80-character string, representing the default 
  11078.           time picture string for the country specified. The picture string is 
  11079.           left-justified and padded on the right with blanks if necessary. 
  11080.  
  11081. fc (output) 
  11082.           A 12-byte feedback code, optional in some languages, that indicates 
  11083.           the result of this service. 
  11084.  
  11085.           The following symbolic conditions can result from this service: 
  11086.  
  11087.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11088.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  11089.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  11090.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11091.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  11092.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11093.                     Γöé CEE3CD     Γöé 2        Γöé 3469      Γöé The country code country-code was invalid for  Γöé
  11094.                     Γöé        Γöé         Γöé         Γöé CEEFMTM.  The default time picture string    Γöé
  11095.                     Γöé        Γöé         Γöé         Γöé time-pic-string was returned.          Γöé
  11096.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11097.                     Γöé CEE3CE     Γöé 2        Γöé 3470      Γöé The date and time string datetime-string was  Γöé
  11098.                     Γöé        Γöé         Γöé         Γöé truncated and was not defined in CEEFMTM.    Γöé
  11099.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11100.  
  11101. Usage Note 
  11102.  
  11103.  OpenEdition MVS considerations-CEEFMTM applies to the enclave. Every enclave 
  11104.   has a single current country setting that has a single time format. Every 
  11105.   thread in every enclave has the same default. 
  11106.  
  11107. Examples 
  11108.  
  11109.  C/370 Example 
  11110.  
  11111.     /*COMPILATION UNIT: EDCFMTM   */
  11112.  
  11113.     #include <stdio.h>
  11114.     #include <string.h>
  11115.     #include <leawi.h>
  11116.     #include <ceeedcct.h>
  11117.  
  11118.     int main(void) {
  11119.  
  11120.        _FEEDBACK fc;
  11121.        _CHAR2 country;
  11122.        _CHAR80 time_pic;
  11123.  
  11124.        /* get the default time format for Canada */
  11125.        memcpy(country,"CA",2);
  11126.        CEEFMTM(country,time_pic,&fc);
  11127.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  11128.           printf("CEEFMTM failed with message number %d\n",
  11129.                  fc.tok_msgno);
  11130.           exit(2999);
  11131.        }
  11132.        /* print out the default time format */
  11133.        printf("%.80s\n",time_pic);
  11134.     }
  11135.  
  11136.  COBOL/370 Example 
  11137.  
  11138.     CBL LIB,APOST
  11139.           *COMPILATION UNIT: IGZTFMTM
  11140.           ****************************************************
  11141.           **                                                **
  11142.           ** Function: CEEFMTM - obtain default time format **
  11143.           **                                                **
  11144.           ****************************************************
  11145.            IDENTIFICATION DIVISION.
  11146.            PROGRAM-ID. IGZTFMTM.
  11147.            DATA DIVISION.
  11148.            WORKING-STORAGE SECTION.
  11149.            01  COUNTRY                 PIC X(2).
  11150.            01  PICSTR                  PIC X(80).
  11151.            01  FC.
  11152.                02  Condition-Token-Value.
  11153.                COPY  CEEIGZCT.
  11154.                    03  Case-1-Condition-ID.
  11155.                        04  Severity        PIC S9(4) COMP.
  11156.                        04  Msg-No          PIC S9(4) COMP.
  11157.                    03  Case-2-Condition-ID
  11158.                              REDEFINES Case-1-Condition-ID.
  11159.                        04  Class-Code      PIC S9(4) COMP.
  11160.                        04  Cause-Code      PIC S9(4) COMP.
  11161.                    03  Case-Sev-Ctl    PIC X.
  11162.                    03  Facility-ID     PIC XXX.
  11163.                02  I-S-Info        PIC S9(9) COMP.
  11164.            PROCEDURE DIVISION.
  11165.            PARA-CBLFMTM.
  11166.           ** Specify country code for the US.
  11167.                MOVE 'US' TO COUNTRY.
  11168.  
  11169.           ** Call CEEFMTM to return the default time format
  11170.           ** for the US.
  11171.                CALL 'CEEFMTM' USING COUNTRY , PICSTR , FC.
  11172.  
  11173.           ** If CEEFMTM runs successfully, display result.
  11174.                IF CEE000 of FC  THEN
  11175.                    DISPLAY  'The default time format for '
  11176.                        'the US is: ' PICSTR
  11177.                ELSE
  11178.                    DISPLAY 'CEEFMTM failed with msg '
  11179.                        Msg-No of FC UPON CONSOLE;
  11180.                    STOP RUN;
  11181.                END-IF.
  11182.                GOBACK.
  11183.  
  11184.  PL/I Example 
  11185.  
  11186.     *PROCESS MACRO;
  11187.      /*COMPILATION UNIT: IBMFMTM
  11188.      /***************************************************/
  11189.      /**                                               **/
  11190.      /** Function: CEEFMTM - obtain default time       **/
  11191.      /**                     format                    **/
  11192.      /**                                               **/
  11193.      /** This example calls CEEFMTM to request the     **/
  11194.      /** default time format for the US and print      **/
  11195.      /** it out.                                       **/
  11196.      /**                                               **/
  11197.      /***************************************************/
  11198.      PLIFMTM: PROC OPTIONS(MAIN);
  11199.  
  11200.         %INCLUDE  CEEIBMAW;
  11201.         %INCLUDE  CEEIBMCT;
  11202.  
  11203.         DCL COUNTRY CHARACTER ( 2 );
  11204.         DCL PICSTR CHAR80;
  11205.         DCL 01 FC FEEDBACK;
  11206.  
  11207.         COUNTRY = 'US'; /* Specify country code for      */
  11208.                         /*    the United States          */
  11209.  
  11210.         /* Call CEEFMTM to get default time format for   */
  11211.         /*    the US                                     */
  11212.         CALL CEEFMTM ( COUNTRY , PICSTR , FC );
  11213.  
  11214.         /* Print the default time format for the US      */
  11215.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  11216.            PUT SKIP LIST(
  11217.               'The default time format for the US is '
  11218.               || PICSTR);
  11219.            END;
  11220.         ELSE  DO;
  11221.            DISPLAY( 'CEEFMTM failed with msg '
  11222.               || FC.MsgNo );
  11223.            STOP;
  11224.            END;
  11225.  
  11226.      END PLIFMTM;
  11227.  
  11228.  
  11229. ΓòÉΓòÉΓòÉ 3.3.29. CEEFRST-Free Heap Storage ΓòÉΓòÉΓòÉ
  11230.  
  11231. CEEFRST frees storage previously allocated by CEEGTST or by a 
  11232. language-intrinsic function. Normally, you do not need to call CEEFRST because 
  11233. LE/370 automatically returns all heap storage to the operating system when the 
  11234. enclave terminates. However, if you are allocating a large amount of heap 
  11235. storage, you should free the storage when it is no longer needed. This freed 
  11236. storage then becomes available for later requests for heap storage, thus 
  11237. reducing the total amount of storage needed to run the application. 
  11238.  
  11239. All requests to free storage are conditional. If storage cannot be freed, the 
  11240. appropriate feedback code is set, but (if even possible) the application does 
  11241. not abend. An attempt to free storage that was already marked as free produces 
  11242. no action and returns a non-CEE000 symbolic feedback code. An attempt to free 
  11243. storage at anything other than a valid starting address produces no action and 
  11244. returns a non-CEE000 symbolic feedback code. 
  11245.  
  11246. However, if you call CEEFRST for an invalid address, and you had specified 
  11247. TRAP(OFF), your application can abend. LE/370's reaction to this is undefined. 
  11248. Also, partial freeing of an allocated area is not supported. 
  11249.  
  11250. When storage is allocated by CEEGTST, its allocated size is remembered and this 
  11251. size is used during free operations. Storage allocated by CEEGTST, but not 
  11252. explicitly freed, is automatically freed at enclave termination. 
  11253.  
  11254. CEEFRST generates a system-level free storage call to return a storage 
  11255. increment to the operating system only when: 
  11256.  
  11257.  The last heap element within an increment is being freed, and 
  11258.  The HEAP run-time option or a call to CEECRHP specifies FREE (note that KEEP 
  11259.   is the IBM-supplied default setting for the initial heap). See HEAP for 
  11260.   further information about the HEAP run-time option and CEECRHP-Create New 
  11261.   Additional Heap for information about CEECRHP. 
  11262. Otherwise, the freed storage is simply added to the free list; it is not 
  11263. returned to the operating system until termination. The out-of-storage 
  11264. condition can cause freeing of empty increments even when KEEP is specified. 
  11265.  
  11266. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11267. Γöé                                                  Γöé
  11268. Γöé >>ΓöÇΓöÇCEEFRSTΓöÇΓöÇ(ΓöÇΓöÇaddressΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  11269. Γöé                                                  Γöé
  11270. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11271.  
  11272. address (input) 
  11273.           A fullword address pointer. address is the address returned by a 
  11274.           previous CEEGTST call or a language intrinsic function such as 
  11275.           ALLOCATE or malloc(). The storage at this address is deallocated. 
  11276.  
  11277. fc (output) 
  11278.           A 12-byte feedback code, optional in some languages, that indicates 
  11279.           the result of this service. 
  11280.  
  11281.           The following symbolic conditions can result from this service: 
  11282.  
  11283.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11284.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  11285.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  11286.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11287.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  11288.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11289.                     Γöé CEE0P2     Γöé 4        Γöé 0802      Γöé Heap storage control information was damaged.  Γöé
  11290.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11291.                     Γöé CEE0PA     Γöé 3        Γöé 0810      Γöé The storage address in a free storage request  Γöé
  11292.                     Γöé        Γöé         Γöé         Γöé was not recognized, or heap storage control   Γöé
  11293.                     Γöé        Γöé         Γöé         Γöé information was damaged.            Γöé
  11294.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11295.  
  11296. Usage Notes 
  11297.  
  11298.  If you specify heap_free_value in the STORAGE run-time option, all freed 
  11299.   storage is overwritten with heap_free_value. Otherwise, it is simply marked 
  11300.   as available. 
  11301.  
  11302.   Portions of the freed storage area can be used to hold internal storage 
  11303.   manager control information. These areas are overwritten, but not with 
  11304.   heap_free_value. See STORAGE for further information about the STORAGE 
  11305.   run-time option. 
  11306.  
  11307.  The heap identifier is inferred from the address of the storage to be freed. 
  11308.   The storage is freed from the heap in which it was allocated. 
  11309.  
  11310.  The address passed as the argument is a dangling pointer after a call to 
  11311.   CEEFRST. The storage freed by this operation can be reallocated on a 
  11312.   subsequent CEEGTST call. If the pointer is not reassigned, any further use of 
  11313.   it causes unpredictable results. 
  11314.  
  11315.  OpenEdition MVS considerations-CEEFRST applies to the enclave. One thread can 
  11316.   allocate storage, and another can free it. 
  11317.  
  11318. Examples 
  11319.  
  11320.  C/370 Example 
  11321.  
  11322.     /*COMPILATION UNIT: EDCFRST   */
  11323.  
  11324.     #include <stdio.h>
  11325.     #include <string.h>
  11326.     #include <leawi.h>
  11327.     #include <ceeedcct.h>
  11328.  
  11329.     int main(void) {
  11330.  
  11331.        _INT4 heapid, size;
  11332.        _POINTER address;
  11333.        _FEEDBACK fc;
  11334.      /*  .
  11335.          .
  11336.          .  */
  11337.        heapid = 0;    /* get storage from initial heap   */
  11338.        size = 4000;   /* number of bytes of heap storage */
  11339.  
  11340.        /* obtain the storage using CEEGTST */
  11341.        CEEGTST(&heapid,&size,&address,&fc);
  11342.  
  11343.        /* check the first 4 bytes of the feedback token */
  11344.        /* (0 if successful) */
  11345.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  11346.           printf("CEEGTST failed with message number %d\n",
  11347.                  fc.tok_msgno);
  11348.           exit(99);
  11349.        }
  11350.      /*  .
  11351.          .
  11352.          .  */
  11353.  
  11354.        /* free the storage that was previously obtained
  11355.        /* using CEEGTST */
  11356.        CEEFRST(&address,&fc);
  11357.  
  11358.        /* check the first 4 bytes of the feedback token */
  11359.        /* (0 if successful) */
  11360.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  11361.           printf("CEEFRST failed with message number %d\n",
  11362.                  fc.tok_msgno);
  11363.           exit(99);
  11364.        }
  11365.      /*  .
  11366.          .
  11367.          .  */
  11368.     }
  11369.  
  11370.  COBOL/370 Example 
  11371.  
  11372.     CBL LIB,APOST
  11373.           *COMPILATION UNIT: IGZTFRST
  11374.           ***********************************************
  11375.           **                                           **
  11376.           ** Function: CEEFRST - free heap storage     **
  11377.           **                                           **
  11378.           ** In this example, a call is made to        **
  11379.           ** CEEGTST to obtain 4000 bytes of storage   **
  11380.           ** from the initial heap (HEAPID = 0).       **
  11381.           ** A call is then made to CEEFRST to free    **
  11382.           ** the storage.                              **
  11383.           **                                           **
  11384.           ***********************************************
  11385.            IDENTIFICATION DIVISION.
  11386.            PROGRAM-ID. IGZTFRST.
  11387.            DATA DIVISION.
  11388.            WORKING-STORAGE SECTION.
  11389.            01  HEAPID                  PIC S9(9) COMP.
  11390.            01  STGSIZE                 PIC S9(9) COMP.
  11391.            01  ADDRSS                  USAGE IS POINTER.
  11392.            01  FC.
  11393.                02  Condition-Token-Value.
  11394.                COPY  CEEIGZCT.
  11395.                    03  Case-1-Condition-ID.
  11396.                        04  Severity        PIC S9(4) COMP.
  11397.                        04  Msg-No          PIC S9(4) COMP.
  11398.                    03  Case-2-Condition-ID
  11399.                              REDEFINES Case-1-Condition-ID.
  11400.                        04  Class-Code      PIC S9(4) COMP.
  11401.                        04  Cause-Code      PIC S9(4) COMP.
  11402.                    03  Case-Sev-Ctl    PIC X.
  11403.                    03  Facility-ID     PIC XXX.
  11404.                02  I-S-Info        PIC S9(9) COMP.
  11405.            PROCEDURE DIVISION.
  11406.            PARA-CBLFRST.
  11407.  
  11408.           ** Specify 0 to get storage from the initial
  11409.           **    heap.
  11410.           ** Specify 4000 to get 4000 bytes of storage.
  11411.           ** Call CEEGTST to obtain storage.
  11412.                MOVE 0 TO HEAPID.
  11413.                MOVE 4000 TO STGSIZE.
  11414.  
  11415.                CALL 'CEEGTST' USING HEAPID , STGSIZE ,
  11416.                    ADDRSS , FC.
  11417.                IF CEE000 of FC  THEN
  11418.                    DISPLAY 'Obtained ' STGSIZE ' bytes of'
  11419.                        ' storage at location ' ADDRSS
  11420.                        ' from heap number ' HEAPID
  11421.                ELSE
  11422.                    DISPLAY 'CEEGTST failed with msg '
  11423.                        Msg-No of FC UPON CONSOLE;
  11424.                    STOP RUN;
  11425.                END-IF.
  11426.  
  11427.           ** To free storage, use the address returned
  11428.           **     by CEECRHP in the call to CEEFRST.
  11429.                CALL 'CEEFRST' USING ADDRSS , FC.
  11430.                IF CEE000 of FC THEN
  11431.                    DISPLAY 'Returned ' STGSIZE ' bytes of'
  11432.                        ' storage at location ' ADDRSS
  11433.                        '  to  heap number ' HEAPID
  11434.                ELSE
  11435.                    DISPLAY 'CEEFRST failed with msg '
  11436.                        Msg-No of FC UPON CONSOLE;
  11437.                END-IF.
  11438.                GOBACK.
  11439.  
  11440.  PL/I Example 
  11441.  
  11442.     *PROCESS MACRO;
  11443.      /*COMPILATION UNIT: IBMFRST
  11444.      /**************************************************/
  11445.      /**                                              **/
  11446.      /** Function: CEEFRST - free heap storage        **/
  11447.      /**                                              **/
  11448.      /** This example calls CEEGTST to obtain storage **/
  11449.      /** from the initial heap, and then calls        **/
  11450.      /** CEEFRST to discard it.                       **/
  11451.      /**                                              **/
  11452.      /**************************************************/
  11453.      PLIFRST: PROC OPTIONS(MAIN);
  11454.  
  11455.         %INCLUDE  CEEIBMAW;
  11456.         %INCLUDE  CEEIBMCT;
  11457.  
  11458.         DCL ADDRSS   POINTER;
  11459.         DCL HEAPID   INT4;
  11460.         DCL STGSIZE  INT4;
  11461.         DCL 01 FC    FEEDBACK;
  11462.  
  11463.         DCL 01 FC2 FEEDBACK;
  11464.  
  11465.         HEAPID = 0; /* get storage from the initial heap */
  11466.  
  11467.         STGSIZE = 4000;   /* get 4000 bytes of storage   */
  11468.  
  11469.         /* Call CEEGTST to obtain the storage            */
  11470.         CALL CEEGTST ( HEAPID, STGSIZE, ADDRSS, FC );
  11471.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  11472.            PUT SKIP LIST( 'Obtained ' || STGSIZE
  11473.               || ' bytes of storage at location '
  11474.               || DECIMAL( UNSPEC( ADDRSS ) )
  11475.               || ' from heap ' || HEAPID );
  11476.            END;
  11477.         ELSE  DO;
  11478.            DISPLAY( 'CEEGTST failed with msg '
  11479.               || FC.MsgNo );
  11480.            STOP;
  11481.            END;
  11482.  
  11483.  
  11484.         /* Call CEEFRST with the address returned from   */
  11485.         /*    CEEGTST to free the storage allocated by   */
  11486.         /*    the call to CEEGTST                        */
  11487.         CALL CEEFRST ( ADDRSS, FC2 );
  11488.         IF  FBCHECK( FC2, CEE000)  THEN  DO;
  11489.            PUT SKIP LIST( 'Storage block at location '
  11490.               || DECIMAL( UNSPEC( ADDRSS ) ) || ' freed');
  11491.            END;
  11492.         ELSE  DO;
  11493.            DISPLAY( 'CEEFRST failed with msg '
  11494.               || FC2.MsgNo );
  11495.            STOP;
  11496.            END;
  11497.  
  11498.      END PLIFRST;
  11499.  
  11500.  
  11501. ΓòÉΓòÉΓòÉ 3.3.30. CEEGMT-Get Current Greenwich Mean Time ΓòÉΓòÉΓòÉ
  11502.  
  11503. CEEGMT returns the current Greenwich Mean Time (GMT) as both a Lilian date and 
  11504. as the number of seconds since 00:00 14 October 1582. GMT is also known as 
  11505. Coordinated Universal Time. The returned values are compatible with those 
  11506. generated and used by the other LE/370 date and time services. 
  11507.  
  11508. In order for the results of this service to be meaningful, your system's TOD 
  11509. (time-of-day) clock must be set to Greenwich Mean Time and be based on the 
  11510. standard epoch. Use CEEGMTO (CEEGMTO-Get Offset from Greenwich Mean Time to 
  11511. Local Time) to obtain the offset from GMT to local time. 
  11512.  
  11513. The values returned by CEEGMT are handy for elapsed time calculations. For 
  11514. example, you can calculate the time elapsed between two calls to CEEGMT by 
  11515. calculating the differences between the returned values. 
  11516.  
  11517. CEEUTC is an alias of this service. See CEEUTC-Get Coordinated Universal Time. 
  11518.  
  11519. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11520. Γöé                                                  Γöé
  11521. Γöé >>ΓöÇΓöÇCEEGMTΓöÇΓöÇ(ΓöÇΓöÇoutput_GMT_LilianΓöÇΓöÇ,ΓöÇΓöÇoutput_GMT_secondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  11522. Γöé                                                  Γöé
  11523. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11524.  
  11525. output_GMT_Lilian (output) 
  11526.           A 32-bit binary integer representing the current time in Greenwich, 
  11527.           England, in the Lilian format (the number of days since 14 October 
  11528.           1582). 
  11529.  
  11530.           For example, 16 May 1988 is day number 148138. If GMT is not 
  11531.           available from the system, output_GMT_Lilian is set to 0 and CEEGMT 
  11532.           terminates with a non-CEE000 symbolic feedback code. 
  11533.  
  11534. output_GMT_seconds (output) 
  11535.           A 64-bit double floating-point number representing the current date 
  11536.           and time in Greenwich, England, as the number of seconds since 00:00 
  11537.           on 14 October 1582, not counting leap seconds. 
  11538.  
  11539.           For example, 00:01 on 15 October 1582 is second number 86,401 
  11540.           (24*60*60 + 01). 19:01.078 on 16 May 1988 is second number 
  11541.           12,799,191,601.078. If GMT is not available from the system, 
  11542.           output_GMT_seconds is set to 0 and CEEGMT terminates with a 
  11543.           non-CEE000 symbolic feedback code. 
  11544.  
  11545. fc (output) 
  11546.           A 12-byte feedback code, optional in some languages, that indicates 
  11547.           the result of this service. 
  11548.  
  11549.           The following symbolic conditions can result from this service: 
  11550.  
  11551.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11552.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  11553.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  11554.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11555.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  11556.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11557.                     Γöé CEE2E6     Γöé 3        Γöé 2502      Γöé The UTC/GMT was not available from the system. Γöé
  11558.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11559.  
  11560. Usage Notes 
  11561.  
  11562.  CEEDATE converts output_GMT_Lilian to a character date, and CEEDATM converts 
  11563.   output_GMT_seconds to a character timestamp. 
  11564.  
  11565.  CICS consideration-CEEGMT can be used under CICS, because CEEGMT does not use 
  11566.   the OS TIME macro. 
  11567.  
  11568.  OpenEdition MVS consideration-In multithread applications, CEEGMT affects 
  11569.   only the calling thread. 
  11570.  
  11571. Examples 
  11572.  
  11573.  C/370 Example 
  11574.  
  11575.     /*COMPILATION UNIT: EDCGMT    */
  11576.  
  11577.     #include <string.h>
  11578.     #include <stdio.h>
  11579.     #include <leawi.h>
  11580.     #include <ceeedcct.h>
  11581.  
  11582.     int main(void) {
  11583.  
  11584.       _FEEDBACK fc;
  11585.       _INT4     lilGMT_date;
  11586.       _FLOAT8   secGMT_date;
  11587.  
  11588.       CEEGMT(&lilGMT_date,&secGMT_date,&fc);
  11589.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  11590.          printf("CEEGMT failed with message number %d\n",
  11591.                 fc.tok_msgno);
  11592.          exit(2999);
  11593.       }
  11594.       printf("The current Lilian date in Greenwich,");
  11595.       printf(" England is %d\n", lilGMT_date);
  11596.     }
  11597.  
  11598.  COBOL/370 Example 
  11599.  
  11600.     CBL LIB,APOST
  11601.           *COMPILATION UNIT: IGZTGMT
  11602.           *************************************************
  11603.           **                                             **
  11604.           ** Function: CEEGMT - get current Greenwich    **
  11605.           **                    Mean Time                **
  11606.           **                                             **
  11607.           ** In this example, a call is made to CEEGMT   **
  11608.           ** to return the current GMT as a Lilian date  **
  11609.           ** and as Lilian seconds. The results are      **
  11610.           ** displayed.                                  **
  11611.           **                                             **
  11612.           *************************************************
  11613.            IDENTIFICATION DIVISION.
  11614.            PROGRAM-ID. IGZTGMT.
  11615.            DATA DIVISION.
  11616.            WORKING-STORAGE SECTION.
  11617.            01  LILIAN                  PIC S9(9) COMP.
  11618.            01  SECS                    COMP-2.
  11619.            01  FC.
  11620.                02  Condition-Token-Value.
  11621.                COPY  CEEIGZCT.
  11622.                    03  Case-1-Condition-ID.
  11623.                        04  Severity        PIC S9(4) COMP.
  11624.                        04  Msg-No          PIC S9(4) COMP.
  11625.                    03  Case-2-Condition-ID
  11626.                              REDEFINES Case-1-Condition-ID.
  11627.                        04  Class-Code      PIC S9(4) COMP.
  11628.                        04  Cause-Code      PIC S9(4) COMP.
  11629.                    03  Case-Sev-Ctl    PIC X.
  11630.                    03  Facility-ID     PIC XXX.
  11631.                02  I-S-Info        PIC S9(9) COMP.
  11632.            PROCEDURE DIVISION.
  11633.            PARA-CBLGMT.
  11634.                CALL 'CEEGMT' USING LILIAN , SECS , FC.
  11635.  
  11636.                IF CEE000 of FC  THEN
  11637.                    DISPLAY 'The current GMT is also '
  11638.                        'known as Lilian day: ' LILIAN
  11639.                    DISPLAY 'The current GMT in Lilian '
  11640.                        'seconds is: ' SECS
  11641.                ELSE
  11642.                    DISPLAY 'CEEGMT failed with msg '
  11643.                        Msg-No of FC UPON CONSOLE;
  11644.                    STOP RUN;
  11645.                END-IF.
  11646.                GOBACK.
  11647.  
  11648.  PL/I Example 
  11649.  
  11650.     *PROCESS MACRO;
  11651.      /*COMPILATION UNIT: IBMGMT
  11652.      /***************************************************/
  11653.      /**                                               **/
  11654.      /** Function: CEEGMT - get current Greenwich Mean **/
  11655.      /**           Time                                **/
  11656.      /** In this example, CEEGMT is called to return   **/
  11657.      /** the current Greenwich Mean Time as the number **/
  11658.      /** of days and number of seconds since           **/
  11659.      /** 14 October 1582. The Lilian date is then      **/
  11660.      /**  printed.                                     **/
  11661.      /**                                               **/
  11662.      /***************************************************/
  11663.  
  11664.      PLICGMT: PROC OPTIONS(MAIN);
  11665.  
  11666.         %INCLUDE  CEEIBMAW;
  11667.         %INCLUDE  CEEIBMCT;
  11668.  
  11669.         DCL LILIAN   INT4;
  11670.         DCL SECONDS  FLOAT8;
  11671.         DCL 01 FC    FEEDBACK;
  11672.  
  11673.         /* Call CEEGMT to return current GMT as a        */
  11674.         /* Lilian date and Lilian seconds                */
  11675.         CALL CEEGMT ( LILIAN, SECONDS, FC );
  11676.  
  11677.         /* If CEEGMT ran successfully, print results     */
  11678.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  11679.            PUT SKIP LIST( LILIAN ||
  11680.               ' days have passed since 14 October 1582.' );
  11681.            END;
  11682.         ELSE  DO;
  11683.            DISPLAY( 'CEEGMT  failed with msg '
  11684.               || FC.MsgNo );
  11685.            STOP;
  11686.            END;
  11687.  
  11688.      END PLICGMT;
  11689.  
  11690.  
  11691. ΓòÉΓòÉΓòÉ 3.3.31. CEEGMTO-Get Offset from Greenwich Mean Time to Local Time ΓòÉΓòÉΓòÉ
  11692.  
  11693. CEEGMTO returns values to the calling routine representing the difference 
  11694. between the local system time and Greenwich Mean Time (GMT). 
  11695.  
  11696. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11697. Γöé                                                  Γöé
  11698. Γöé >>ΓöÇΓöÇCEEGMTOΓöÇΓöÇ(ΓöÇΓöÇoffset_hoursΓöÇΓöÇ,ΓöÇΓöÇoffset_minutesΓöÇΓöÇ,ΓöÇΓöÇoffset_secondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  11699. Γöé                                                  Γöé
  11700. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11701.  
  11702. offset_hours (output) 
  11703.           A 32-bit binary integer representing the offset from GMT to local 
  11704.           time, in hours. 
  11705.  
  11706.           For example, for Pacific Standard Time, offset_hours equals -8. 
  11707.  
  11708.           The range of offset_hours is -12 to +13 (+13  = Daylight Savings Time 
  11709.           in the +12 time zone). 
  11710.  
  11711.           If local time offset is not available, offset_hours equals 0 and 
  11712.           CEEGMTO terminates with a non-CEE000 symbolic feedback code. 
  11713.  
  11714. offset_minutes (output) 
  11715.           A 32-bit binary integer representing the number of additional minutes 
  11716.           that local time is ahead of or behind GMT. 
  11717.  
  11718.           The range of offset_minutes is 0 to 59. 
  11719.  
  11720.           If the local time offset is not available, offset_minutes equals 0 
  11721.           and CEEGMTO terminates with a non-CEE000 symbolic feedback code. 
  11722.  
  11723.           CEEUTC is an alias of this service. See CEEUTC-Get Coordinated 
  11724.           Universal Time. 
  11725.  
  11726. offset_seconds (output) 
  11727.           A 64-bit double floating-point number representing the offset from 
  11728.           GMT to local time, in seconds. 
  11729.  
  11730.           For example, Pacific Standard Time is eight hours behind GMT. If 
  11731.           local time is in the Pacific time zone during standard time, CEEGMTO 
  11732.           would return -28,800 (-8 * 60 * 60). The range of offset_seconds is 
  11733.           -43,200 to +46,800. offset_seconds can be used with CEEGMT to 
  11734.           calculate local date and time. See CEEGMT-Get Current Greenwich Mean 
  11735.           Time for more information. 
  11736.  
  11737.           If the local time offset is not available from the system, 
  11738.           offset_seconds is set to 0 and CEEGMTO terminates with a non-CEE000 
  11739.           symbolic feedback code. 
  11740.  
  11741. fc (output) 
  11742.           A 12-byte feedback code, optional in some languages, that indicates 
  11743.           the result of this service. 
  11744.  
  11745.           The following symbolic conditions can result from this service: 
  11746.  
  11747.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11748.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  11749.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  11750.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11751.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  11752.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11753.                     Γöé CEE2E7     Γöé 3        Γöé 2503      Γöé The offset from UTC/GMT to local time was not  Γöé
  11754.                     Γöé        Γöé         Γöé         Γöé available from the system.           Γöé
  11755.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11756.  
  11757. Usage Notes 
  11758.  
  11759.  CEEDATM is used to convert number of seconds to a character timestamp. See 
  11760.   CEEDATM-Convert Seconds to Character Timestamp for more information. 
  11761.  
  11762.  CICS consideration-CEEGMTO does not use the OS TIME macro. Therefore, CEEGMTO 
  11763.   works under CICS. 
  11764.  
  11765.  OpenEdition MVS consideration-In multithread applications, CEEGMTO affects 
  11766.   only the calling thread. 
  11767.  
  11768. Examples 
  11769.  
  11770.  C/370 Example 
  11771.  
  11772.     /*COMPILATION UNIT: EDCGMTO   */
  11773.  
  11774.     #include <string.h>
  11775.     #include <stdio.h>
  11776.     #include <leawi.h>
  11777.     #include <ceeedcct.h>
  11778.  
  11779.     int main(void) {
  11780.  
  11781.       _FEEDBACK fc;
  11782.       _INT4     GMT_hours,GMT_mins;
  11783.       _FLOAT8   GMT_secs;
  11784.  
  11785.       CEEGMTO(&GMT_hours,&GMT_mins,&GMT_secs,&fc);
  11786.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  11787.          printf("CEEGMTO failed with message number %d\n",
  11788.                 fc.tok_msgno);
  11789.          exit(2999);
  11790.       }
  11791.       printf("The difference between GMT and the local ");
  11792.       printf("time is:\n");
  11793.       printf("%d hours, %d minutes\n",GMT_hours,GMT_mins);
  11794.     }
  11795.  
  11796.  COBOL/370 Example 
  11797.  
  11798.     CBL LIB,APOST
  11799.           *COMPILATION UNIT: IGZTGMTO
  11800.           *************************************************
  11801.           **                                             **
  11802.           ** Function: CEEGMTO - get offset from         **
  11803.           **                     Greenwich Mean Time     **
  11804.           **                     to local time           **
  11805.           **                                             **
  11806.           ** In this example, a call is made to CEEGMTO  **
  11807.           ** to return the offset from GMT to local time **
  11808.           ** as separate binary integers representing    **
  11809.           ** offset hours, minutes, and seconds. The     **
  11810.           ** results are displayed.                      **
  11811.           **                                             **
  11812.           *************************************************
  11813.            IDENTIFICATION DIVISION.
  11814.            PROGRAM-ID. IGZTGMTO.
  11815.            DATA DIVISION.
  11816.            WORKING-STORAGE SECTION.
  11817.            01  HOURS                   PIC S9(9) COMP.
  11818.            01  MINUTES                 PIC S9(9) COMP.
  11819.            01  SECONDS COMP-2.
  11820.            01  FC.
  11821.                02  Condition-Token-Value.
  11822.                COPY  CEEIGZCT.
  11823.                    03  Case-1-Condition-ID.
  11824.                        04  Severity        PIC S9(4) COMP.
  11825.                        04  Msg-No          PIC S9(4) COMP.
  11826.                    03  Case-2-Condition-ID
  11827.                              REDEFINES Case-1-Condition-ID.
  11828.                        04  Class-Code      PIC S9(4) COMP.
  11829.                        04  Cause-Code      PIC S9(4) COMP.
  11830.                    03  Case-Sev-Ctl    PIC X.
  11831.                    03  Facility-ID     PIC XXX.
  11832.                02  I-S-Info        PIC S9(9) COMP.
  11833.            PROCEDURE DIVISION.
  11834.            PARA-CBLGMTO.
  11835.                CALL 'CEEGMTO' USING HOURS , MINUTES ,
  11836.                    SECONDS , FC.
  11837.  
  11838.                IF CEE000 of FC  THEN
  11839.                    DISPLAY 'Local time differs from GMT '
  11840.                        'by: ' HOURS ' hours, '
  11841.                        MINUTES ' minutes, and '
  11842.                        SECONDS ' seconds. '
  11843.                ELSE
  11844.                    DISPLAY 'CEEGMTO failed with msg '
  11845.                        Msg-No of FC UPON CONSOLE;
  11846.                    STOP RUN;
  11847.                END-IF.
  11848.                GOBACK.
  11849.  
  11850.  PL/I Example 
  11851.  
  11852.     *PROCESS MACRO;
  11853.      /*COMPILATION UNIT: IBMGMTO                    */
  11854.      /***********************************************/
  11855.      /**                                           **/
  11856.      /** Function: CEEGMTO - get the offset from   **/
  11857.      /**                     Greenwich Mean Time   **/
  11858.      /**                     to local time         **/
  11859.      /**                                           **/
  11860.      /***********************************************/
  11861.      PLIGMTO: PROC OPTIONS(MAIN);
  11862.  
  11863.         %INCLUDE  CEEIBMAW;
  11864.         %INCLUDE  CEEIBMCT;
  11865.  
  11866.         DCL HOURS INT4;
  11867.         DCL MINUTES INT4;
  11868.         DCL SECONDS FLOAT8;
  11869.         DCL 01 FC FEEDBACK;
  11870.  
  11871.        /* Call CEEGMTO to return hours, minutes, and */
  11872.        /* seconds that local time is offset from GMT */
  11873.  
  11874.         CALL CEEGMTO ( HOURS, MINUTES, SECONDS, FC );
  11875.  
  11876.        /* If CEEGMTO ran successfully, print results */
  11877.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  11878.            PUT SKIP EDIT('The difference between GMT and '
  11879.                  || 'local time is ', HOURS, ':', MINUTES )
  11880.               (A, P'S99', A, P'99' );
  11881.            END;
  11882.         ELSE  DO;
  11883.            DISPLAY( 'CEEGMTO failed with msg '
  11884.               || FC.MsgNo );
  11885.            STOP;
  11886.            END;
  11887.  
  11888.      END PLIGMTO;
  11889.  
  11890.  
  11891. ΓòÉΓòÉΓòÉ 3.3.32. CEEGPID-Retrieve the LE/370 Version and Platform ID ΓòÉΓòÉΓòÉ
  11892.  
  11893. CEEGPID retrieves the LE/370 version ID and the platform ID of the version and 
  11894. platform of LE/370 that is processing the currently active condition. 
  11895.  
  11896. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11897. Γöé                                                  Γöé
  11898. Γöé >>ΓöÇΓöÇCEEGPIDΓöÇΓöÇ(ΓöÇΓöÇCEE_Version_IDΓöÇΓöÇ,ΓöÇΓöÇPlat_IDΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  11899. Γöé                                                  Γöé
  11900. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11901.  
  11902. CEE_Version_ID (output) 
  11903.           A fullword integer representing the version of LE/370 that created 
  11904.           this data block. The current value of this parameter is: 
  11905.  
  11906.    130       Version 1 Release 3 Modification level 0 
  11907.  
  11908. Plat_ID (output) 
  11909.           A fullword integer representing the platform used for processing the 
  11910.           current condition. 
  11911.  
  11912.           The current values of this parameter are: 
  11913.  
  11914.    2         OS/2 
  11915.  
  11916.    3         MVS or VM or 370 
  11917.  
  11918.    4         AS/400* 
  11919.  
  11920. fc (output) 
  11921.           A 12-byte feedback code, optional in some languages, that indicates 
  11922.           the result of this service. 
  11923.  
  11924.           The following symbolic conditions can result from this service: 
  11925.  
  11926.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  11927.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  11928.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  11929.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  11930.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  11931.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  11932.  
  11933. Usage Note 
  11934.  
  11935.  OpenEdition MVS consideration-In multithread applications, CEEGPID affects 
  11936.   only the calling thread. 
  11937.  
  11938. Examples 
  11939.  
  11940.  C/370 Example 
  11941.  
  11942.     /*COMPILATION UNIT: EDCGPID   */
  11943.  
  11944.     #include <stdio.h>
  11945.     #include <string.h>
  11946.     #include <leawi.h>
  11947.     #include <ceeedcct.h>
  11948.  
  11949.     int main(void) {
  11950.  
  11951.       _INT4 cee_ver_id, plat_id;
  11952.       _FEEDBACK fc;
  11953.  
  11954.       /* get the LE version and the platform id */
  11955.       CEEGPID(common run-time environment_ver_id,&plat_id,&fc);
  11956.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  11957.           printf("CEEGPID failed with message number %d\n",
  11958.                  fc.tok_msgno);
  11959.           exit(2999);
  11960.        }
  11961.  
  11962.       printf("the LE/370 version is %d",cee_ver_id);
  11963.       printf(" the current platform is ");
  11964.       switch (plat_id) {
  11965.          case 2: printf("OS/2\n");
  11966.                  break;
  11967.          case 3: printf("MVS/VM/370\n");
  11968.                  break;
  11969.          case 4: printf("AS/400\n");
  11970.                  break;
  11971.         default: printf("unrecognized platform id\n");
  11972.       }
  11973.     }
  11974.  
  11975.  COBOL/370 Example 
  11976.  
  11977.     CBL LIB,APOST
  11978.           *COMPILATION UNIT: IGZTGPID
  11979.           *************************************************
  11980.           **                                             **
  11981.           ** Function: CEEGPID - retrieve the LE/370     **
  11982.           ** version and platform ID                     **
  11983.           **                                             **
  11984.           *************************************************
  11985.            IDENTIFICATION DIVISION.
  11986.            PROGRAM-ID. IGZTGPID.
  11987.            DATA DIVISION.
  11988.            WORKING-STORAGE SECTION.
  11989.            01  VERSION                 PIC S9(9) COMP.
  11990.            01  PLATID                  PIC S9(9) COMP.
  11991.            01  FC.
  11992.                02  Condition-Token-Value.
  11993.                COPY  CEEIGZCT.
  11994.                    03  Case-1-Condition-ID.
  11995.                        04  Severity        PIC S9(4) COMP.
  11996.                        04  Msg-No          PIC S9(4) COMP.
  11997.                    03  Case-2-Condition-ID
  11998.                              REDEFINES Case-1-Condition-ID.
  11999.                        04  Class-Code      PIC S9(4) COMP.
  12000.                        04  Cause-Code      PIC S9(4) COMP.
  12001.                    03  Case-Sev-Ctl    PIC X.
  12002.                    03  Facility-ID     PIC XXX.
  12003.                02  I-S-Info        PIC S9(9) COMP.
  12004.            PROCEDURE DIVISION.
  12005.            PARA-CBLGPID.
  12006.           ** Call CEEGPID to return the version and
  12007.           **     platform ID
  12008.                CALL 'CEEGPID' USING VERSION , PLATID , FC.
  12009.                IF  NOT CEE000 of FC  THEN
  12010.                    DISPLAY 'CEEGPID failed with msg '
  12011.                        Msg-No of FC UPON CONSOLE;
  12012.                    STOP RUN;
  12013.                END-IF.
  12014.  
  12015.                DISPLAY 'Currently running version ' VERSION
  12016.                     ' of IBM AD/Cycle Language Environment'
  12017.  
  12018.           ** Evaluate PLATID to display this platform
  12019.                EVALUATE PLATID
  12020.                  WHEN 2
  12021.                    DISPLAY 'under OS/2'
  12022.                  WHEN 3
  12023.                    DISPLAY 'under MVS/VM/370'
  12024.                  WHEN 4
  12025.                    DISPLAY 'on an AS/400'
  12026.                END-EVALUATE
  12027.                GOBACK.
  12028.  
  12029.  PL/I Example 
  12030.  
  12031.     *PROCESS MACRO;
  12032.      /*COMPILATION UNIT: IBMGPID                 */
  12033.      /********************************************/
  12034.      /**                                        **/
  12035.      /** Function: CEEGPID - Get LE/370 Version **/
  12036.      /** and Platform ID                        **/
  12037.      /**                                        **/
  12038.      /** This example calls CEEGPID to get the  **/
  12039.      /** version and platform of Language       **/
  12040.      /** Environment that is currently running. **/
  12041.      /**This information is then printed out.   **/
  12042.      /**                                        **/
  12043.      /********************************************/
  12044.      PLIGPID: PROC OPTIONS(MAIN);
  12045.  
  12046.         %INCLUDE  CEEIBMAW;
  12047.         %INCLUDE  CEEIBMCT;
  12048.  
  12049.         DCL VERSION  INT4;
  12050.         DCL PLATID   INT4;
  12051.         DCL 01 FC    FEEDBACK;
  12052.  
  12053.         /* Call CEEGPID to get the version and platform   */
  12054.         /*    of Language Environment that is currently   */
  12055.         /*    running                                     */
  12056.         CALL CEEGPID ( VERSION, PLATID, FC );
  12057.  
  12058.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  12059.            PUT SKIP LIST
  12060.               ('Language Environment Version ' || VERSION);
  12061.            PUT LIST (' is running on system ');
  12062.            SELECT (PLATID);
  12063.               WHEN (2) PUT LIST( 'OS/2');
  12064.               WHEN (3) PUT LIST( 'MVS/VM/370');
  12065.               WHEN (4) PUT LIST( 'AS/400');
  12066.               END /* Case of PLATID */;
  12067.            END;
  12068.         ELSE  DO;
  12069.            DISPLAY( 'CEEGPID failed with msg '
  12070.               || FC.MsgNo );
  12071.            STOP;
  12072.            END;
  12073.  
  12074.      END PLIGPID;
  12075.  
  12076.  
  12077. ΓòÉΓòÉΓòÉ 3.3.33. CEEGQDT-Retrieve q_data_token ΓòÉΓòÉΓòÉ
  12078.  
  12079. CEEGQDT retrieves the q_data_token from the Instance Specific Information 
  12080. (ISI). CEEGQDT is particularly useful when you have user-written condition 
  12081. handlers registered by CEEHDLR. 
  12082.  
  12083. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  12084. Γöé                                                  Γöé
  12085. Γöé >>ΓöÇΓöÇCEEGQDTΓöÇΓöÇ(ΓöÇΓöÇcond_repΓöÇΓöÇ,ΓöÇΓöÇq_data_tokenΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  12086. Γöé                                                  Γöé
  12087. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  12088.  
  12089. cond_rep (input) 
  12090.           A condition token defining the condition for which the q_data_token 
  12091.           is retrieved. 
  12092.  
  12093. q_data_token (output) 
  12094.           A 32-bit data object defined in the CEESQDT service and placed in the 
  12095.           ISI by the CEESGL service. 
  12096.  
  12097. fc (output) 
  12098.           An optional 12-byte condition token returned by CEEGQDT indicating 
  12099.           the result of the service. 
  12100.  
  12101.           The following feedback codes can result from this service: 
  12102.  
  12103.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  12104.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  12105.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  12106.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12107.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  12108.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12109.                     Γöé CEE0EE     Γöé 3        Γöé 0462      Γöé Instance specific information for the condi-  Γöé
  12110.                     Γöé        Γöé         Γöé         Γöé tion token with message number message-number  Γöé
  12111.                     Γöé        Γöé         Γöé         Γöé and facility ID facility-id could not be    Γöé
  12112.                     Γöé        Γöé         Γöé         Γöé found.                     Γöé
  12113.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12114.                     Γöé CEE0EG     Γöé 3        Γöé 0464      Γöé Instance specific information for the condi-  Γöé
  12115.                     Γöé        Γöé         Γöé         Γöé tion token with message number message-number  Γöé
  12116.                     Γöé        Γöé         Γöé         Γöé and facility ID facility-id did not exist.   Γöé
  12117.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  12118.  
  12119. Usage Note 
  12120.  
  12121.  OpenEdition MVS consideration-In multithread applications, CEEGQDT affects 
  12122.   only the calling thread. 
  12123.  
  12124. Examples 
  12125.  
  12126.  C/370 Example 
  12127.  
  12128.     /*COMPILATION UNIT: EDCGQDT   */
  12129.  
  12130.     #include <stdio.h>
  12131.     #include <stdlib.h>
  12132.     #include <string.h>
  12133.     #include <leawi.h>
  12134.     #include <ceeedcct.h>
  12135.  
  12136.     void handler(_FEEDBACK *,_INT4 *,_INT4 *,_FEEDBACK *);
  12137.  
  12138.     typedef struct {       /* condition info structure */
  12139.        int   error_value;
  12140.        char err_msg[80];
  12141.        int   retcode;
  12142.     } info_struct;
  12143.  
  12144.     int main(void) {
  12145.  
  12146.       _FEEDBACK fc,condtok;
  12147.       _ENTRY routine;
  12148.       _INT4 token,qdata;
  12149.       _INT2 c_1,c_2,cond_case,sev,control;
  12150.       _CHAR3 facid;
  12151.       _INT4 isi;
  12152.       info_struct *info;
  12153.  
  12154.      /* .
  12155.         .
  12156.         . */
  12157.       /* register the condition handler */
  12158.       token = 99;
  12159.       routine.address = (_POINTER)&handler;
  12160.       routine.nesting = NULL;
  12161.       CEEHDLR(&routine,&token,&fc);
  12162.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  12163.          printf("CEEHDLR failed with message number %d\n",
  12164.                 fc.tok_msgno);
  12165.          exit(2999);
  12166.       }
  12167.      /* .
  12168.         .
  12169.         . */
  12170.       /* set up the condition info structure */
  12171.       info = (info_struct *)malloc(sizeof(info_struct));
  12172.       if (info == NULL) {
  12173.          printf("error allocating info_struct\n");
  12174.          exit(2399);
  12175.       }
  12176.  
  12177.       info->error_value = 86;
  12178.       strcpy(info->err_msg,"Test message");
  12179.       info->retcode = 99;
  12180.  
  12181.       /* set qdata to be the condition info structure */
  12182.       qdata = (int)info;
  12183.  
  12184.       /* build the condition token */
  12185.       c_1 = 3;
  12186.       c_2 = 99;
  12187.       cond_case = 1;
  12188.       sev = 3;
  12189.       control = 0;
  12190.       memcpy(facid,"ZZZ",3);
  12191.       isi = 0;
  12192.  
  12193.       CEENCOD(&c_1,&c_2,&cond_case,&sev,&control,
  12194.               facid,&isi,&condtok,&fc);
  12195.  
  12196.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  12197.          printf("CEENCOD failed with message number %d\n",
  12198.                 fc.tok_msgno);
  12199.          exit(2999);
  12200.       }
  12201.  
  12202.       /* signal the condition */
  12203.       CEESGL(&condtok,&qdata,&fc);
  12204.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  12205.          printf("CEESGL failed with message number %d\n",
  12206.                 fc.tok_msgno);
  12207.          exit(2999);
  12208.       }
  12209.  
  12210.      /* .
  12211.         .
  12212.         . */
  12213.     }
  12214.  
  12215.     void handler(_FEEDBACK *fc, _INT4 *token, _INT4 *result,
  12216.                  _FEEDBACK *newfc) {
  12217.  
  12218.        _FEEDBACK qdatafc;
  12219.        _INT4 idata;
  12220.        info_struct *qdata;
  12221.      /* .
  12222.         .
  12223.         . */
  12224.        /* get the q_data_token from the ISI */
  12225.        CEEGQDT(fc, &idata, &qdatafc);
  12226.  
  12227.        if ( _FBCHECK ( qdatafc , CEE000 ) != 0 ) {
  12228.           printf("CEEGQDT failed with message number %d\n",
  12229.                  qdatafc.tok_msgno);
  12230.           *result = 20; /* percolate */
  12231.           return;
  12232.        }
  12233.  
  12234.        /************************************************/
  12235.        /* set info_struct pointer to address return by */
  12236.        /* CEEGQDT                                      */
  12237.        /************************************************/
  12238.        qdata = (info_struct *) idata;
  12239.  
  12240.        /* use the condition info structure (qdata) */
  12241.        if (qdata->error_value == 86) {
  12242.           printf("%.12s\n",qdata->err_msg);
  12243.           printf("retcode = %d\n",qdata->retcode);
  12244.           *result = 10; /* resume this is what we want */
  12245.           return;
  12246.        }
  12247.      /* .
  12248.         .
  12249.         . */
  12250.        *result = 20; /* percolate */
  12251.     }
  12252.  
  12253.  COBOL/370 Example 
  12254.  
  12255.     CBL LIB,APOST
  12256.           *COMPILATION UNIT: IGZTGQDT
  12257.           *************************************************
  12258.           **                                             **
  12259.           ** DRVGQDT - Drive sample program for CEEGQDT  **
  12260.           **                                             **
  12261.           *************************************************
  12262.            IDENTIFICATION DIVISION.
  12263.            PROGRAM-ID. DRVGQDT.
  12264.            DATA DIVISION.
  12265.            WORKING-STORAGE SECTION.
  12266.            01  ROUTINE                 PROCEDURE-POINTER.
  12267.            01  TOKEN                   PIC S9(9) COMP.
  12268.            01  SEV                     PIC S9(4) COMP.
  12269.            01  MSGNO                   PIC S9(4) COMP.
  12270.            01  CASE                    PIC S9(4) COMP.
  12271.            01  SEV2                    PIC S9(4) COMP.
  12272.            01  CNTRL                   PIC S9(4) COMP.
  12273.            01  FACID                   PIC X(3).
  12274.            01  ISINFO                  PIC S9(9) COMP.
  12275.            01  FC.
  12276.                02  Condition-Token-Value.
  12277.                COPY  CEEIGZCT.
  12278.                    03  Case-1-Condition-ID.
  12279.                        04  Severity        PIC S9(4) COMP.
  12280.                        04  Msg-No          PIC S9(4) COMP.
  12281.                    03  Case-2-Condition-ID
  12282.                              REDEFINES Case-1-Condition-ID.
  12283.                        04  Class-Code      PIC S9(4) COMP.
  12284.                        04  Cause-Code      PIC S9(4) COMP.
  12285.                    03  Case-Sev-Ctl    PIC X.
  12286.                    03  Facility-ID     PIC XXX.
  12287.                02  I-S-Info        PIC S9(9) COMP.
  12288.            01  QDATA                   PIC S9(9) COMP.
  12289.            01  CONDTOK.
  12290.                02  Condition-Token-Value.
  12291.                COPY  CEEIGZCT.
  12292.                    03  Case-1-Condition-ID.
  12293.                        04  Severity        PIC S9(4) COMP.
  12294.                        04  Msg-No          PIC S9(4) COMP.
  12295.                    03  Case-2-Condition-ID
  12296.                              REDEFINES Case-1-Condition-ID.
  12297.                        04  Class-Code      PIC S9(4) COMP.
  12298.                        04  Cause-Code      PIC S9(4) COMP.
  12299.                    03  Case-Sev-Ctl    PIC X.
  12300.                    03  Facility-ID     PIC XXX.
  12301.                02  I-S-Info        PIC S9(9) COMP.
  12302.            PROCEDURE DIVISION.
  12303.           ** Register handler
  12304.                SET ROUTINE TO ENTRY 'CBLGQDT'.
  12305.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  12306.                IF  NOT CEE000 of FC  THEN
  12307.                    DISPLAY 'CEEHDLR failed with msg '
  12308.                        Msg-No of FC UPON CONSOLE;
  12309.                    STOP RUN;
  12310.                END-IF.
  12311.  
  12312.           ** Signal a condition
  12313.                MOVE 1 TO QDATA.
  12314.                SET CEE001 of CONDTOK to TRUE.
  12315.                MOVE ZERO to I-S-Info of CONDTOK.
  12316.                CALL 'CEESGL' USING CONDTOK , QDATA , FC.
  12317.                IF CEE000 of FC  THEN
  12318.                    DISPLAY '**** Resumed execution in the '
  12319.                      'routine which registered the handler'
  12320.                ELSE
  12321.                    DISPLAY 'CEESGL failed with msg '
  12322.                        Msg-No of FC UPON CONSOLE;
  12323.                END-IF.
  12324.           ** UNregister handler
  12325.                CALL 'CEEHDLU' USING ROUTINE , TOKEN , FC.
  12326.                IF NOT CEE000 of FC  THEN
  12327.                    DISPLAY 'CEEHDLU failed with msg '
  12328.                        Msg-No of FC UPON CONSOLE;
  12329.                END-IF.
  12330.                STOP RUN.
  12331.            END PROGRAM DRVGQDT.
  12332.  
  12333.           *COMPILATION UNIT: CBLGQDT
  12334.           ******************************************
  12335.           **                                      **
  12336.           ** Function: CEEGQDT - get q_data_token **
  12337.           **                                      **
  12338.           ******************************************
  12339.            IDENTIFICATION DIVISION.
  12340.            PROGRAM-ID. CBLGQDT.
  12341.            DATA DIVISION.
  12342.            WORKING-STORAGE SECTION.
  12343.            01  FC.
  12344.                02  Condition-Token-Value.
  12345.                COPY  CEEIGZCT.
  12346.                    03  Case-1-Condition-ID.
  12347.                        04  Severity        PIC S9(4) COMP.
  12348.                        04  Msg-No          PIC S9(4) COMP.
  12349.                    03  Case-2-Condition-ID
  12350.                              REDEFINES Case-1-Condition-ID.
  12351.                        04  Class-Code      PIC S9(4) COMP.
  12352.                        04  Cause-Code      PIC S9(4) COMP.
  12353.                    03  Case-Sev-Ctl    PIC X.
  12354.                    03  Facility-ID     PIC XXX.
  12355.                02  I-S-Info        PIC S9(9) COMP.
  12356.            01  QDATA                   PIC S9(9) COMP.
  12357.            LINKAGE SECTION.
  12358.            01   CURCOND.
  12359.                02  Condition-Token-Value.
  12360.                COPY  CEEIGZCT.
  12361.                    03  Case-1-Condition-ID.
  12362.                        04  Severity        PIC S9(4) COMP.
  12363.                        04  Msg-No          PIC S9(4) COMP.
  12364.                    03  Case-2-Condition-ID
  12365.                              REDEFINES Case-1-Condition-ID.
  12366.                        04  Class-Code      PIC S9(4) COMP.
  12367.                        04  Cause-Code      PIC S9(4) COMP.
  12368.                    03  Case-Sev-Ctl    PIC X.
  12369.                    03  Facility-ID     PIC XXX.
  12370.                02  I-S-Info        PIC S9(9) COMP.
  12371.            01  TOKEN           PIC S9(9) COMP.
  12372.            01  RESULT          PIC S9(9) COMP.
  12373.                88  RESUME          VALUE 10.
  12374.            01  NEWCOND.
  12375.                02  Condition-Token-Value.
  12376.                COPY  CEEIGZCT.
  12377.                    03  Case-1-Condition-ID.
  12378.                        04  Severity        PIC S9(4) COMP.
  12379.                        04  Msg-No          PIC S9(4) COMP.
  12380.                    03  Case-2-Condition-ID
  12381.                              REDEFINES Case-1-Condition-ID.
  12382.                        04  Class-Code      PIC S9(4) COMP.
  12383.                        04  Cause-Code      PIC S9(4) COMP.
  12384.                    03  Case-Sev-Ctl    PIC X.
  12385.                    03  Facility-ID     PIC XXX.
  12386.                02  I-S-Info        PIC S9(9) COMP.
  12387.            PROCEDURE DIVISION
  12388.                USING CURCOND, TOKEN, RESULT, NEWCOND.
  12389.            PARA-CBLGQDT.
  12390.  
  12391.           ** Obtain the Qdata for the current condition
  12392.  
  12393.                CALL 'CEEGQDT' USING CURCOND , QDATA , FC.
  12394.                IF  CEE000 of FC  THEN
  12395.                    DISPLAY 'QDATA for ' Facility-ID of
  12396.                        CURCOND Msg-No of CURCOND
  12397.                        ' is ' QDATA
  12398.                ELSE
  12399.                    DISPLAY 'CEEGQDT failed with msg '
  12400.                        Msg-No of FC UPON CONSOLE;
  12401.                END-IF.
  12402.  
  12403.                SET RESUME TO TRUE.
  12404.                GOBACK.
  12405.  
  12406.            END PROGRAM CBLGQDT.
  12407.  
  12408.  PL/I Example 
  12409.  
  12410.   The following example uses a COBOL program and handler to establish the 
  12411.   condition handling environment prior to calling a PL/I subroutine to 
  12412.   illustrate the use of the callable service from PL/I. 
  12413.  
  12414.     CBL LIB,APOST
  12415.           *COMPILATION UNIT: IGZTGQDP
  12416.           *************************************************
  12417.           **                                             **
  12418.           ** IGZTGQDP - Drive sample program for CEEGQDT **
  12419.           **                                             **
  12420.           *************************************************
  12421.            IDENTIFICATION DIVISION.
  12422.            PROGRAM-ID. IGZTGQDP.
  12423.            DATA DIVISION.
  12424.            WORKING-STORAGE SECTION.
  12425.            01  ROUTINE                 PROCEDURE-POINTER.
  12426.            01  TOKEN                   PIC S9(9) COMP.
  12427.            01  SEV                     PIC S9(4) COMP.
  12428.            01  MSGNO                   PIC S9(4) COMP.
  12429.            01  CASE                    PIC S9(4) COMP.
  12430.            01  SEV2                    PIC S9(4) COMP.
  12431.            01  CNTRL                   PIC S9(4) COMP.
  12432.            01  FACID                   PIC X(3).
  12433.            01  ISINFO                  PIC S9(9) COMP.
  12434.            01  FC.
  12435.                02  Condition-Token-Value.
  12436.                COPY  CEEIGZCT.
  12437.                    03  Case-1-Condition-ID.
  12438.                        04  Severity        PIC S9(4) COMP.
  12439.                        04  Msg-No          PIC S9(4) COMP.
  12440.                    03  Case-2-Condition-ID
  12441.                              REDEFINES Case-1-Condition-ID.
  12442.                        04  Class-Code      PIC S9(4) COMP.
  12443.                        04  Cause-Code      PIC S9(4) COMP.
  12444.                    03  Case-Sev-Ctl        PIC X.
  12445.                    03  Facility-ID         PIC XXX.
  12446.                02  I-S-Info                PIC S9(9) COMP.
  12447.            01  QDATA                       PIC S9(9) COMP.
  12448.            01  CONDTOK.
  12449.                02  Condition-Token-Value.
  12450.                COPY  CEEIGZCT.
  12451.                    03  Case-1-Condition-ID.
  12452.                        04  Severity        PIC S9(4) COMP.
  12453.                        04  Msg-No          PIC S9(4) COMP.
  12454.                    03  Case-2-Condition-ID
  12455.                              REDEFINES Case-1-Condition-ID.
  12456.                        04  Class-Code      PIC S9(4) COMP.
  12457.                        04  Cause-Code      PIC S9(4) COMP.
  12458.                    03  Case-Sev-Ctl        PIC X.
  12459.                    03  Facility-ID         PIC XXX.
  12460.                02  I-S-Info                PIC S9(9) COMP.
  12461.            PROCEDURE DIVISION.
  12462.           ** Register handler
  12463.                SET ROUTINE TO ENTRY 'HDLGQDT'.
  12464.                CALL 'CEEHDLR' USING ROUTINE, TOKEN, FC.
  12465.                IF  NOT CEE000 of FC  THEN
  12466.                    DISPLAY 'CEEHDLR failed with msg '
  12467.                        Msg-No of FC UPON CONSOLE;
  12468.                    STOP RUN;
  12469.                END-IF.
  12470.  
  12471.           ** Signal a condition
  12472.                MOVE 1 TO QDATA.
  12473.                SET CEE001 of CONDTOK to TRUE.
  12474.                MOVE ZERO to I-S-Info of CONDTOK.
  12475.                CALL 'CEESGL' USING CONDTOK, QDATA, FC.
  12476.                IF CEE000 of FC  THEN
  12477.                    DISPLAY '**** Resumed execution in the '
  12478.                      'routine which registered the handler'
  12479.                ELSE
  12480.                    DISPLAY 'CEESGL failed with msg '
  12481.                        Msg-No of FC UPON CONSOLE;
  12482.                END-IF.
  12483.           ** UNregister handler
  12484.                CALL 'CEEHDLU' USING ROUTINE, FC.
  12485.                IF NOT CEE000 of FC  THEN
  12486.                    DISPLAY 'CEEHDLU failed with msg '
  12487.                        Msg-No of FC UPON CONSOLE;
  12488.                END-IF.
  12489.                STOP RUN.
  12490.            END PROGRAM IGZTGQDP.
  12491.  
  12492.           *COMPILATION UNIT: HDLGQDT
  12493.           *************************************************
  12494.           **                                             **
  12495.           ** HDLGQDT -- COBOL condition handler to call  **
  12496.           **            PL/I routine for actual work.    **
  12497.           **                                             **
  12498.           *************************************************
  12499.            IDENTIFICATION DIVISION.
  12500.            PROGRAM-ID. HDLGQDT.
  12501.            DATA DIVISION.
  12502.            LINKAGE SECTION.
  12503.            01   CURCOND.
  12504.                02  Condition-Token-Value.
  12505.                COPY  CEEIGZCT.
  12506.                    03  Case-1-Condition-ID.
  12507.                        04  Severity        PIC S9(4) COMP.
  12508.                        04  Msg-No          PIC S9(4) COMP.
  12509.                    03  Case-2-Condition-ID
  12510.                              REDEFINES Case-1-Condition-ID.
  12511.                        04  Class-Code      PIC S9(4) COMP.
  12512.                        04  Cause-Code      PIC S9(4) COMP.
  12513.                    03  Case-Sev-Ctl        PIC X.
  12514.                    03  Facility-ID         PIC XXX.
  12515.                02  I-S-Info                PIC S9(9) COMP.
  12516.            01  TOKEN                       PIC S9(9) COMP.
  12517.            01  RESULT                      PIC S9(9) COMP.
  12518.            01  NEWCOND.
  12519.                02  Condition-Token-Value.
  12520.                COPY  CEEIGZCT.
  12521.                    03  Case-1-Condition-ID.
  12522.                        04  Severity        PIC S9(4) COMP.
  12523.                        04  Msg-No          PIC S9(4) COMP.
  12524.                    03  Case-2-Condition-ID
  12525.                              REDEFINES Case-1-Condition-ID.
  12526.                        04  Class-Code      PIC S9(4) COMP.
  12527.                        04  Cause-Code      PIC S9(4) COMP.
  12528.                    03  Case-Sev-Ctl        PIC X.
  12529.                    03  Facility-ID         PIC XXX.
  12530.                02  I-S-Info                PIC S9(9) COMP.
  12531.            PROCEDURE DIVISION
  12532.                USING CURCOND, TOKEN, RESULT, NEWCOND.
  12533.            PARA-CBLGQDT.
  12534.  
  12535.           ** Invoke the PL/I routine to handle condition
  12536.  
  12537.                CALL 'IBMGQDT'
  12538.                    USING ADDRESS OF CURCOND,
  12539.                          ADDRESS OF TOKEN,
  12540.                          ADDRESS OF RESULT,
  12541.                          ADDRESS OF NEWCOND.
  12542.                GOBACK.
  12543.  
  12544.            END PROGRAM HDLGQDT.
  12545.  
  12546.     *PROCESS OPT(0), MACRO;
  12547.      /*COMPILATION UNIT: IBMGQDT                        **/
  12548.      /****************************************************/
  12549.      /**                                               ***/
  12550.      /** Function:  CEEGQDT -- get qualifying data     ***/
  12551.      /**                                               ***/
  12552.      /****************************************************/
  12553.      IBMGQDT:  PROCEDURE( @CONDTOK, @TOKEN, @RESULT, @NEWCOND )
  12554.                   OPTIONS( COBOL );
  12555.  
  12556.         %INCLUDE  CEEIBMAW;
  12557.         %INCLUDE  CEEIBMCT;
  12558.  
  12559.         /* Parameters */
  12560.         DCL  @CONDTOK    POINTER;
  12561.         DCL  @TOKEN      POINTER;
  12562.         DCL  @RESULT     POINTER;
  12563.         DCL  @NEWCOND    POINTER;
  12564.         DCL  01 CONDTOK  BASED(@CONDTOK) FEEDBACK;
  12565.         DCL  TOKEN       BASED(@TOKEN)   INT4;
  12566.         DCL  RESULT      BASED(@RESULT)  INT4;
  12567.         DCL  01 NEWCOND  BASED(@NEWCOND) FEEDBACK;
  12568.  
  12569.         /* Local identifiers */
  12570.         DCL  QDATA       INT4;
  12571.         DCL  01 FC       FEEDBACK;
  12572.  
  12573.         IF  FBCHECK(CONDTOK, CEE001) THEN /* expected */ DO;
  12574.  
  12575.            /* Call CEEGQDT with condition token defined */
  12576.            /*    above to retrieve associated q_data    */
  12577.            CALL CEEGQDT ( CONDTOK, QDATA, FC );
  12578.            IF  FBCHECK( FC, CEE000)  THEN  DO;
  12579.               PUT SKIP LIST( 'Qualifying data for current '
  12580.                  || ' condition is ' || QDATA );
  12581.               RESULT = 10 /* Resume */;
  12582.               END;
  12583.            ELSE  DO;
  12584.               DISPLAY( 'CEEGQDT failed with msg ' || FC.MsgNo );
  12585.               NEWCOND = FC;
  12586.               RESULT = 30 /* Promote */;
  12587.               END;
  12588.            END;
  12589.         ELSE /* Unexpected condition -- percolate */  DO;
  12590.            DISPLAY( 'User condition handler entered for '
  12591.               || CONDTOK.FacID || ' condition with message '
  12592.               || 'number ' || CONDTOK.MsgNo );
  12593.            RESULT = 20 /* Percolate */;
  12594.            END;
  12595.  
  12596.         RETURN;
  12597.  
  12598.      END IBMGQDT;
  12599.  
  12600.  
  12601. ΓòÉΓòÉΓòÉ 3.3.34. CEEGTST-Get Heap Storage ΓòÉΓòÉΓòÉ
  12602.  
  12603. CEEGTST gets storage from a heap whose ID you specify. It is used to acquire 
  12604. both large and small blocks of storage. 
  12605.  
  12606. CEEGTST always allocates storage that is addressable by the caller. Therefore, 
  12607. if the caller is in AMODE(24), or if HEAP(,,BELOW) is in effect, the storage 
  12608. returned is always below the 16M line. Above-the-line storage is returned only 
  12609. if the caller is in AMODE(31) and HEAP(,,ANY) is in effect. See HEAP for 
  12610. further information about the LE/370 HEAP run-time option. 
  12611.  
  12612. All requests for storage are conditional. If storage is not available, the 
  12613. feedback code (fc) is set and returned to you, but the thread does not abend. 
  12614. When storage is not available, the appropriate action in the member environment 
  12615. should be taken. One option is to use the CEESGL callable service to signal the 
  12616. LE/370 condition handler with the returned feedback code. For more information, 
  12617. see CEESGL-Signal a Condition. 
  12618.  
  12619. Storage obtained by CEEGTST can be freed by a call to CEEFRST or CEEDSHP. You 
  12620. can also free storage by using a language intrinsic function. If storage is not 
  12621. explicitly freed, it is freed automatically at termination. For more 
  12622. information about CEEFRST and CEEDSHP, see CEEFRST-Free Heap Storage and 
  12623. CEEDSHP-Discard Heap. 
  12624.  
  12625. If you have specified a heap_alloc_value in the STORAGE run-time option, all 
  12626. storage allocated by CEEGTST is initialized to heap_alloc_value. Otherwise, it 
  12627. is left uninitialized. For more information about the STORAGE run-time option, 
  12628. see STORAGE. 
  12629.  
  12630. If the value specified in the size parameter of CEEGTST is greater than the 
  12631. size of an increment (as specified in the HEAP run-time option), all of the 
  12632. requested storage (rounded up to the nearest doubleword) is allocated in a 
  12633. single system-level call. 
  12634.  
  12635. Heap storage is acquired by a system-level get storage call in increments of 
  12636. init_size and incr_size bytes as specified by the HEAP run-time option, or in 
  12637. CEECRHP-Create New Additional Heap. If the increment size is chosen 
  12638. appropriately, only a few of the calls to CEEGTST result in a system call. The 
  12639. storage report generated when the RPTSTG run-time option is specified shows the 
  12640. number of system-level get storage calls required. This helps you tune the 
  12641. init_size and incr_size fields in order to minimize calls to the operating 
  12642. system. For more information about HEAP and RPTSTG see HEAP and RPTSTG. For 
  12643. more information about CEECRHP, see CEECRHP-Create New Additional Heap. 
  12644.  
  12645. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  12646. Γöé                                                  Γöé
  12647. Γöé >>ΓöÇΓöÇCEEGTSTΓöÇΓöÇ(ΓöÇΓöÇheap_idΓöÇΓöÇ,ΓöÇΓöÇsizeΓöÇΓöÇ,ΓöÇΓöÇaddressΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  12648. Γöé                                                  Γöé
  12649. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  12650.  
  12651. heap_id (input) 
  12652.           A fullword binary signed integer. heap_id is a token denoting the 
  12653.           heap in which the storage is allocated. A heap_id of 0 allocates 
  12654.           storage from the initial heap (or user heap). Any other heap_id must 
  12655.           be a value obtained from the CEECRHP-Create Additional Heap callable 
  12656.           service. 
  12657.  
  12658.           If the heap_id you specify is invalid, no storage is allocated. 
  12659.           CEEGTST terminates with a non-CEE000 symbolic feedback code and the 
  12660.           value of the address parameter is undefined. 
  12661.  
  12662.           For more information about the CEECRHP callable service, see 
  12663.           CEECRHP-Create New Additional Heap. 
  12664.  
  12665. size (input) 
  12666.           A fullword binary signed integer. size represents the amount of 
  12667.           storage allocated, in bytes. If the specified amount of storage 
  12668.           cannot be obtained, no storage is allocated, CEEGTST terminates with 
  12669.           a non-CEE000 symbolic feedback code, and the value of the address 
  12670.           parameter is undefined. 
  12671.  
  12672. address (output) 
  12673.           A fullword address pointer. address is the machine address of the 
  12674.           first byte of allocated storage. If storage cannot be obtained, 
  12675.           address remains undefined. Storage is always allocated on a 
  12676.           doubleword boundary. 
  12677.  
  12678. fc (output) 
  12679.           A 12-byte feedback code, optional in some languages, that indicates 
  12680.           the result of this service. 
  12681.  
  12682.           The following symbolic conditions can result from this service: 
  12683.  
  12684.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  12685.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  12686.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  12687.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12688.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  12689.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12690.                     Γöé CEE0P2     Γöé 4        Γöé 0802      Γöé Heap storage control information was damaged.  Γöé
  12691.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12692.                     Γöé CEE0P3     Γöé 3        Γöé 0803      Γöé The heap identifier in a get storage request  Γöé
  12693.                     Γöé        Γöé         Γöé         Γöé or a discard heap request was unrecognized.   Γöé
  12694.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12695.                     Γöé CEE0P8     Γöé 3        Γöé 0808      Γöé Storage size in a get storage request or a   Γöé
  12696.                     Γöé        Γöé         Γöé         Γöé re-allocate request was not a positive number. Γöé
  12697.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12698.                     Γöé CEE0PD     Γöé 3        Γöé 0813      Γöé Insufficient storage was available to satisfy  Γöé
  12699.                     Γöé        Γöé         Γöé         Γöé a get storage request.             Γöé
  12700.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  12701.  
  12702. Usage Notes 
  12703.  
  12704.  PL/I considerations-Storage allocated within PL/I AREAs is managed by PL/I. 
  12705.   Therefore, only PL/I language functions can allocate and free storage within 
  12706.   a PL/I area. 
  12707.  
  12708.   Based upon the layout of a PL/I structure, PL/I might adjust the starting 
  12709.   byte of the PL/I structure to a non-doubleword aligned byte. The difference 
  12710.   between the doubleword boundary and the first byte of such a structure is 
  12711.   known as the hang. Because LE/370 callable storage services do not adjust the 
  12712.   starting byte, you must be careful using callable services to allocate 
  12713.   storage for PL/I structures. You must use fully defined structures and 
  12714.   aggregates. 
  12715.  
  12716.  CICS considerations-In a CICS environment, size should not exceed 1024M (1 
  12717.   gigabyte or X'40000000') when running in AMODE ANY, and 65,504 bytes when 
  12718.   running in AMODE(24). These CICS restrictions are subject to change from one 
  12719.   release of CICS to another. Portable applications should respect current CICS 
  12720.   limitations. 
  12721.  
  12722.  OpenEdition MVS considerations-CEEGTST applies to the enclave. Any thread can 
  12723.   free the allocated storage. 
  12724.  
  12725. Examples 
  12726.  
  12727.  C/370 Example 
  12728.  
  12729.     /*COMPILATION UNIT: EDCGTST   */
  12730.  
  12731.     #include <stdio.h>
  12732.     #include <string.h>
  12733.     #include <leawi.h>
  12734.     #include <ceeedcct.h>
  12735.  
  12736.     int main(void) {
  12737.  
  12738.        _INT4 heapid, size;
  12739.        _POINTER address;
  12740.        _FEEDBACK fc;
  12741.       /* .
  12742.          .
  12743.          . */
  12744.        heapid = 0;    /* get storage from initial heap   */
  12745.        size = 4000;   /* number of bytes of heap storage */
  12746.  
  12747.        /* obtain the storage using CEEGTST */
  12748.        CEEGTST(&heapid,&size,&address,&fc);
  12749.  
  12750.        /* check the first 4 bytes of the feedback token */
  12751.        /* (0 if successful) */
  12752.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  12753.           printf("CEEGTST failed with message number %d\n",
  12754.                  fc.tok_msgno);
  12755.           exit(99);
  12756.        }
  12757.       /* .
  12758.          .
  12759.          . */
  12760.        /* free the storage that was previously obtained */
  12761.        /* using CEEGTST */
  12762.        CEEFRST(&address,&fc);
  12763.  
  12764.        /* check the first 4 bytes of the feedback token */
  12765.        /* (0 if successful) */
  12766.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  12767.           printf("CEEFRST failed with message number %d\n",
  12768.                  fc.tok_msgno);
  12769.           exit(99);
  12770.        }
  12771.       /* .
  12772.          .
  12773.          . */
  12774.     }
  12775.  
  12776.  COBOL/370 Example 
  12777.  
  12778.     CBL LIB,APOST
  12779.           *COMPILATION UNIT: IGZTGTST
  12780.           ***************************************************
  12781.           **                                               **
  12782.           ** Function: CEEGTST - get heap storage          **
  12783.           **                                               **
  12784.           ** In this example, a call is made to CEEGTST to **
  12785.           ** obtain 4000 bytes of storage from the initial **
  12786.           ** heap (HEAPID=0).                              **
  12787.           **                                               **
  12788.           ***************************************************
  12789.            IDENTIFICATION DIVISION.
  12790.            PROGRAM-ID. IGZTGTST.
  12791.            DATA DIVISION.
  12792.            WORKING-STORAGE SECTION.
  12793.            01  HEAPID                  PIC S9(9) COMP.
  12794.            01  STGSIZE                 PIC S9(9) COMP.
  12795.            01  ADDRSS                  PIC S9(9) COMP.
  12796.            01  FC.
  12797.                02  Condition-Token-Value.
  12798.                COPY  CEEIGZCT.
  12799.                    03  Case-1-Condition-ID.
  12800.                        04  Severity        PIC S9(4) COMP.
  12801.                        04  Msg-No          PIC S9(4) COMP.
  12802.                    03  Case-2-Condition-ID
  12803.                              REDEFINES Case-1-Condition-ID.
  12804.                        04  Class-Code      PIC S9(4) COMP.
  12805.                        04  Cause-Code      PIC S9(4) COMP.
  12806.                    03  Case-Sev-Ctl    PIC X.
  12807.                    03  Facility-ID     PIC XXX.
  12808.                02  I-S-Info            PIC S9(9) COMP.
  12809.            PROCEDURE DIVISION.
  12810.           ** Specify 0 to get storage from the initial heap.
  12811.           ** Specify 4000 to get 4000 bytes of storage.
  12812.           ** Call CEEGTST to obtain storage.
  12813.            PARA-CBLGTST.
  12814.                MOVE 0 TO HEAPID.
  12815.                MOVE 4000 TO STGSIZE.
  12816.  
  12817.                CALL 'CEEGTST' USING HEAPID , STGSIZE ,
  12818.                    ADDRSS , FC.
  12819.                IF CEE000 of FC  THEN
  12820.                    DISPLAY 'Obtained ' STGSIZE ' bytes of'
  12821.                        ' storage at location ' ADDRSS
  12822.                        ' from heap number ' HEAPID
  12823.                ELSE
  12824.                    DISPLAY 'CEEGTST failed with msg '
  12825.                        Msg-No of FC UPON CONSOLE;
  12826.                    STOP RUN;
  12827.                END-IF.
  12828.  
  12829.                GOBACK.
  12830.  
  12831.  PL/I Example 
  12832.  
  12833.     *PROCESS MACRO;
  12834.      /*COMPILATION UNIT: IBMGTST
  12835.      /****************************************************/
  12836.      /**                                                **/
  12837.      /** Function: CEEGTST - Get Heap Storage           **/
  12838.      /**                                                **/
  12839.      /** In this example, a call is made to CEEGTST to  **/
  12840.      /** request 4000 bytes of storage from the         **/
  12841.      /** initial heap.                                  **/
  12842.      /**                                                **/
  12843.      /****************************************************/
  12844.      PLIGTST: PROC OPTIONS(MAIN);
  12845.  
  12846.         %INCLUDE  CEEIBMAW;
  12847.         %INCLUDE  CEEIBMCT;
  12848.  
  12849.         DCL HEAPID   INT4;
  12850.         DCL STGSIZE  INT4;
  12851.         DCL ADDRSS   POINTER;
  12852.         DCL 01 FC    FEEDBACK;
  12853.  
  12854.         HEAPID = 0; /* get storage from the initial heap */
  12855.         STGSIZE = 4000;   /* get 4000 bytes of storage   */
  12856.  
  12857.         /* Call CEEGTST to obtain the storage            */
  12858.         CALL CEEGTST ( HEAPID, STGSIZE, ADDRSS, FC );
  12859.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  12860.            PUT SKIP LIST( 'Obtained ' || STGSIZE
  12861.               || ' bytes of storage at location '
  12862.               || DECIMAL( UNSPEC( ADDRSS1 ) )
  12863.               || ' from heap ' || HEAPID );
  12864.            END;
  12865.         ELSE  DO;
  12866.            DISPLAY( 'CEEGTST failed with msg '
  12867.               || FC.MsgNo );
  12868.            STOP;
  12869.            END;
  12870.  
  12871.      END PLIGTST;
  12872.  
  12873.  
  12874. ΓòÉΓòÉΓòÉ 3.3.35. CEEHDLR-Register User-Written Condition Handler ΓòÉΓòÉΓòÉ
  12875.  
  12876. CEEHDLR registers a user-written condition handler for the current stack frame 
  12877. (note that stack frames are called by various names in different HLLs). The 
  12878. user condition handler is invoked when: 
  12879.  
  12880.  It is registered for the current stack frame by CEEHDLR, and 
  12881.  
  12882.  The LE/370 condition manager requests the condition handler associated with 
  12883.   the current stack frame handle the condition. 
  12884.  
  12885. LE/370 places the user-written condition handlers associated with each stack 
  12886. frame in a queue. The queue can be empty at any given time. The LE/370 
  12887. condition manager invokes the registered condition handlers in LIFO (last in, 
  12888. first out) order to handle the condition. 
  12889.  
  12890. The opposite of CEEHDLR, which registers a user-written condition handler, is 
  12891. CEEHDLU, which unregisters the handler. However, you are not required to remove 
  12892. user-written condition handlers you registered through the CEEHDLR callable 
  12893. service. Any user-written condition handlers created through CEEHDLR and not 
  12894. unregistered by CEEHDLU are unregistered automatically by LE/370 when the 
  12895. associated stack frame is removed from the stack. 
  12896.  
  12897. LE/370 condition handlers are driven only for synchronous conditions. 
  12898.  
  12899. Note:   PL/I cannot use CEEHDLR, because user-written condition handlers cannot 
  12900. be registered in PL/I. 
  12901.  
  12902. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  12903. Γöé                                                  Γöé
  12904. Γöé >>ΓöÇΓöÇCEEHDLRΓöÇΓöÇ(ΓöÇΓöÇroutineΓöÇΓöÇ,ΓöÇΓöÇtokenΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  12905. Γöé                                                  Γöé
  12906. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  12907.  
  12908. routine (input) 
  12909.           An entry variable or entry constant for the routine called to process 
  12910.           the condition. The entry variable or constant must be passed by 
  12911.           reference. The routine must be an external routine; that is, it must 
  12912.           not be a nested routine. 
  12913.  
  12914. token (input) 
  12915.           A fullword integer of information you want passed to your user 
  12916.           handler each time it is called. This can be a pointer or any other 
  12917.           fullword integer you want to pass. 
  12918.  
  12919. fc (output) 
  12920.           A 12-byte feedback code, optional in some languages, that indicates 
  12921.           the result of this service. 
  12922.  
  12923.           The following symbolic conditions can result from this service: 
  12924.  
  12925.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  12926.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  12927.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  12928.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12929.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  12930.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12931.                     Γöé CEE080     Γöé 1        Γöé 0256      Γöé The routine specified was already registered  Γöé
  12932.                     Γöé        Γöé         Γöé         Γöé for this stack frame. It was registered again. Γöé
  12933.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  12934.                     Γöé CEE081     Γöé 3        Γöé 0257      Γöé The routine specified contained an invalid   Γöé
  12935.                     Γöé        Γöé         Γöé         Γöé entry variable.                 Γöé
  12936.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  12937.  
  12938. Usage Note 
  12939.  
  12940.  COBOL consideration-You should not call CEEHDLR from a nested COBOL program. 
  12941.  
  12942.  OpenEdition MVS consideration-In multithread applications, CEEHDLR affects 
  12943.   only the calling thread. 
  12944.  
  12945. Examples 
  12946.  
  12947.  C/370 Example 
  12948.  
  12949.     /*COMPILATION UNIT: EDCHDLR   */
  12950.  
  12951.     #include <stdio.h>
  12952.     #include <string.h>
  12953.     #include <leawi.h>
  12954.     #include <ceeedcct.h>
  12955.  
  12956.     void handler(_FEEDBACK *,_INT4 *,_INT4 *,_FEEDBACK *);
  12957.  
  12958.     int main(void) {
  12959.  
  12960.       _FEEDBACK fc;
  12961.       _ENTRY routine;
  12962.       _INT4 token;
  12963.  
  12964.  
  12965.       /* set the routine structure to point to the handler */
  12966.       /* and use CEEHDLR to register the user handler      */
  12967.  
  12968.       token = 99;
  12969.       routine.address = (_POINTER)&handler;
  12970.       routine.nesting = NULL;
  12971.  
  12972.       CEEHDLR(&routine,&token,&fc);
  12973.  
  12974.       /* verify that CEEHDLR was successful */
  12975.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  12976.          printf("CEEHDLR failed with message number %d\n",
  12977.                 fc.tok_msgno);
  12978.          exit (2999);
  12979.       }
  12980.      /* .
  12981.         .
  12982.         . */
  12983.     }
  12984.  
  12985.     /*******************************************************/
  12986.     /* handler is a user condition handler                 */
  12987.     /*******************************************************/
  12988.     void handler(_FEEDBACK *fc, _INT4 *token, _INT4 *result,
  12989.                  _FEEDBACK *newfc) {
  12990.      /* .
  12991.         .
  12992.         . */
  12993.     }
  12994.  
  12995.  COBOL/370 Example 
  12996.  
  12997.  
  12998.     COBOL/370 Routine that Registers HANDLER Routine
  12999.  
  13000.     CBL LIB,APOST
  13001.           *COMPILATION UNIT: IGZTHDLR
  13002.           ***********************************************
  13003.           **                                           **
  13004.           ** Function: CEEHDLR - Register user         **
  13005.           **           condition handler               **
  13006.           **                                           **
  13007.           ***********************************************
  13008.            IDENTIFICATION DIVISION.
  13009.            PROGRAM-ID. CBLHDLR.
  13010.            DATA DIVISION.
  13011.            WORKING-STORAGE SECTION.
  13012.            01  ROUTINE  PROCEDURE-POINTER.
  13013.            01  TOKEN                   PIC S9(9) COMP.
  13014.            01  SEV                     PIC S9(4) COMP.
  13015.            01  MSGNO                   PIC S9(4) COMP.
  13016.            01  CASE                    PIC S9(4) COMP.
  13017.            01  SEV2                    PIC S9(4) COMP.
  13018.            01  CNTRL                   PIC S9(4) COMP.
  13019.            01  FACID                   PIC X(3).
  13020.            01  ISINFO                  PIC S9(9) COMP.
  13021.            01  QDATA                   PIC S9(9) COMP.
  13022.            01  FC.
  13023.                02  Condition-Token-Value.
  13024.                COPY  CEEIGZCT.
  13025.                    03  Case-1-Condition-ID.
  13026.                        04  Severity        PIC S9(4) COMP.
  13027.                        04  Msg-No          PIC S9(4) COMP.
  13028.                    03  Case-2-Condition-ID
  13029.                              REDEFINES Case-1-Condition-ID.
  13030.                        04  Class-Code      PIC S9(4) COMP.
  13031.                        04  Cause-Code      PIC S9(4) COMP.
  13032.                    03  Case-Sev-Ctl    PIC X.
  13033.                    03  Facility-ID     PIC XXX.
  13034.                02  I-S-Info        PIC S9(9) COMP.
  13035.            01  CONDTOK.
  13036.                02  Condition-Token-Value.
  13037.                COPY  CEEIGZCT.
  13038.                    03  Case-1-Condition-ID.
  13039.                        04  Severity        PIC S9(4) COMP.
  13040.                        04  Msg-No          PIC S9(4) COMP.
  13041.                    03  Case-2-Condition-ID
  13042.                              REDEFINES Case-1-Condition-ID.
  13043.                        04  Class-Code      PIC S9(4) COMP.
  13044.                        04  Cause-Code      PIC S9(4) COMP.
  13045.                    03  Case-Sev-Ctl    PIC X.
  13046.                    03  Facility-ID     PIC XXX.
  13047.                02  I-S-Info        PIC S9(9) COMP.
  13048.            PROCEDURE DIVISION.
  13049.            PARA-CBLHDLR.
  13050.                SET ROUTINE TO ENTRY 'HANDLER'.
  13051.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  13052.                IF NOT CEE000 of FC  THEN
  13053.                    DISPLAY 'CEEHDLR failed with msg '
  13054.                        Msg-No of FC UPON CONSOLE;
  13055.                    STOP RUN;
  13056.                END-IF.
  13057.  
  13058.           *  RAISE A SIGNAL
  13059.  
  13060.            PARA-CBLSGL.
  13061.           ** Call CEENCOD with the values assigned above to
  13062.           **     build a condition token "CONDTOK"
  13063.           ** Set CONDTOK to sev = 3, msgno = 1 facid = CEE
  13064.           ** We raise a sev 3 to ensure our handler is driven
  13065.                MOVE 3 TO SEV.
  13066.                MOVE 1 TO MSGNO.
  13067.                MOVE 1 TO CASE.
  13068.                MOVE 3 TO SEV2.
  13069.                MOVE 1 TO CNTRL.
  13070.                MOVE 'CEE' TO FACID.
  13071.                MOVE 0 TO ISINFO.
  13072.  
  13073.                CALL 'CEENCOD' USING SEV, MSGNO, CASE,
  13074.                    SEV2, CNTRL, FACID, ISINFO, CONDTOK, FC.
  13075.                IF NOT CEE000 of FC  THEN
  13076.                    DISPLAY 'CEENCOD failed with msg '
  13077.                        Msg-No of FC UPON CONSOLE;
  13078.                    STOP RUN;
  13079.                END-IF.
  13080.  
  13081.           ** Call CEESGL to signal the condition with
  13082.           **     the condition token and qdata described
  13083.           **     in CONDTOK and QDATA
  13084.                MOVE 0 TO QDATA.
  13085.                CALL 'CEESGL' USING CONDTOK , QDATA , FC.
  13086.                IF NOT CEE000 of FC  THEN
  13087.                    DISPLAY 'CEESGL  failed with msg '
  13088.                        Msg-No of FC UPON CONSOLE;
  13089.                    STOP RUN;
  13090.                END-IF.
  13091.  
  13092.                GOBACK.
  13093.  
  13094.  
  13095.     COBOL/370 User-Written Condition Handler Registered by CBLHDLR
  13096.  
  13097.     CBL LIB,APOST,NOOPT,NODYNAM
  13098.           *COMPILATION UNIT: IGZTHAND
  13099.           *************************************************
  13100.           **                                             **
  13101.           ** DRVHAND - Drive sample program for COBOL    **
  13102.           **           user-written condition handler.   **
  13103.           **                                             **
  13104.           *************************************************
  13105.            IDENTIFICATION DIVISION.
  13106.            PROGRAM-ID. DRVHAND.
  13107.            DATA DIVISION.
  13108.            WORKING-STORAGE SECTION.
  13109.            01  ROUTINE             PROCEDURE-POINTER.
  13110.            01  DENOMINATOR         PIC S9(9) COMP.
  13111.            01  NUMERATOR           PIC S9(9) COMP.
  13112.            01  RATIO               PIC S9(9) COMP.
  13113.            01  TOKEN               PIC S9(9) COMP VALUE 0.
  13114.            01  FC.
  13115.                02  Condition-Token-Value.
  13116.                COPY  CEEIGZCT.
  13117.                    03  Case-1-Condition-ID.
  13118.                        04  Severity        PIC S9(4) COMP.
  13119.                        04  Msg-No          PIC S9(4) COMP.
  13120.                    03  Case-2-Condition-ID
  13121.                              REDEFINES Case-1-Condition-ID.
  13122.                        04  Class-Code      PIC S9(4) COMP.
  13123.                        04  Cause-Code      PIC S9(4) COMP.
  13124.                    03  Case-Sev-Ctl    PIC X.
  13125.                    03  Facility-ID     PIC XXX.
  13126.                02  I-S-Info        PIC S9(9) COMP.
  13127.  
  13128.            PROCEDURE DIVISION.
  13129.  
  13130.            REGISTER-HANDLER.
  13131.           ** Register handler
  13132.                SET ROUTINE TO ENTRY 'HANDLER'.
  13133.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  13134.                IF  NOT CEE000 of FC  THEN
  13135.                    DISPLAY 'CEEHDLR failed with msg '
  13136.                        Msg-No of FC UPON CONSOLE;
  13137.                    STOP RUN;
  13138.                END-IF.
  13139.  
  13140.            RAISE-CONDITION.
  13141.           ** Cause a zero-divide condition.
  13142.                MOVE 0 TO DENOMINATOR.
  13143.                MOVE 1 TO NUMERATOR.
  13144.                DIVIDE NUMERATOR BY DENOMINATOR, GIVING RATIO.
  13145.                DISPLAY 'Execution continues following '
  13146.                    'divide-by-zero exception'.
  13147.  
  13148.            UNREGISTER-HANDLER.
  13149.           ** UNregister handler
  13150.                CALL 'CEEHDLU' USING ROUTINE , TOKEN , FC.
  13151.                IF NOT CEE000 of FC  THEN
  13152.                    DISPLAY 'CEEHDLU failed with msg '
  13153.                        Msg-No of FC UPON CONSOLE;
  13154.                END-IF.
  13155.                STOP RUN.
  13156.            END PROGRAM DRVHAND.
  13157.  
  13158.           *COMPILATION UNIT: HANDLER
  13159.            IDENTIFICATION DIVISION.
  13160.            PROGRAM-ID. HANDLER.
  13161.            DATA DIVISION.
  13162.            WORKING-STORAGE SECTION.
  13163.  
  13164.            LINKAGE SECTION.
  13165.            01  TOKEN                   PIC S9(9) COMP.
  13166.            01  RESULT                  PIC S9(9) COMP.
  13167.                88 RESUME                   VALUE 10.
  13168.            01  CURCOND.
  13169.                02  Condition-Token-Value.
  13170.                COPY  CEEIGZCT.
  13171.                    03  Case-1-Condition-ID.
  13172.                        04  Severity        PIC S9(4) COMP.
  13173.                        04  Msg-No          PIC S9(4) COMP.
  13174.                    03  Case-2-Condition-ID
  13175.                              REDEFINES Case-1-Condition-ID.
  13176.                        04  Class-Code      PIC S9(4) COMP.
  13177.                        04  Cause-Code      PIC S9(4) COMP.
  13178.                    03  Case-Sev-Ctl    PIC X.
  13179.                    03  Facility-ID     PIC XXX.
  13180.                02  I-S-Info        PIC S9(9) COMP.
  13181.            01  NEWCOND.
  13182.                02  Condition-Token-Value.
  13183.                COPY  CEEIGZCT.
  13184.                    03  Case-1-Condition-ID.
  13185.                        04  Severity        PIC S9(4) COMP.
  13186.                        04  Msg-No          PIC S9(4) COMP.
  13187.                    03  Case-2-Condition-ID
  13188.                              REDEFINES Case-1-Condition-ID.
  13189.                        04  Class-Code      PIC S9(4) COMP.
  13190.                        04  Cause-Code      PIC S9(4) COMP.
  13191.                    03  Case-Sev-Ctl    PIC X.
  13192.                    03  Facility-ID     PIC XXX.
  13193.                02  I-S-Info        PIC S9(9) COMP.
  13194.  
  13195.            PROCEDURE DIVISION USING
  13196.                CURCOND, TOKEN, RESULT, NEWCOND.
  13197.  
  13198.            PARA-HANDLER.
  13199.                DISPLAY 'Entered user handler for condition'
  13200.                   ' with message number ' Msg-No Of CURCOND
  13201.                   ' -- will resume execution'.
  13202.                SET RESUME TO TRUE.
  13203.                GOBACK.
  13204.  
  13205.  Assembler Example 
  13206.  
  13207.     AHDL     TITLE 'main program that registers a handler'
  13208.     *
  13209.     *        symbolic register definitions and usage
  13210.     *
  13211.     R0       EQU   0             parm list addr (CMS only)
  13212.     R1       EQU   1             parm list addr, 0=none
  13213.     R10      EQU   10            base reg of exectbl code
  13214.     R12      EQU   12            LE CAA addr
  13215.     R13      EQU   13            DSA addr
  13216.     R14      EQU   14            return point addr
  13217.     R15      EQU   15            entry point address
  13218.     *
  13219.     *        Prologue
  13220.     *
  13221.     ASMHDLR  CEEENTRY AUTO=DSASIZ,    main memory to obtain *
  13222.                    MAIN=YES,     this program is a mn prog  *
  13223.                    PPA=PPA1,     our program prolog area    *
  13224.                    BASE=R10      base reg for exectbl code
  13225.              USING CEECAA,R12    address for LE CAA
  13226.              USING CEEDSA,R13    address for dynamic data
  13227.     *
  13228.     *        announce ourselves
  13229.     *
  13230.              WTO   'ASMHDLR Says "HELLO"',ROUTCDE=11
  13231.     *
  13232.     *        register user handler
  13233.     *
  13234.              LA    R1,USRHDLPP   get proc-ptr addr to hdlr
  13235.              ST    R1,PARM1      make it 1st parameter
  13236.              LA    R1,TOKEN      get addr of 32-bit token
  13237.              ST    R1,PARM2      make it 2nd parameter
  13238.              LA    R1,FEEDBACK   get addr of feedback code
  13239.              ST    R1,PARM3      make it 3rd parameter
  13240.              LA    R1,HDLRPLST   pt to CEEHDLR's parm list
  13241.              CALL  CEEHDLR       invoke CEEHDLR service
  13242.              CLC   FEEDBACK,=XL12'00' check for success...
  13243.              BE    HDLRGOOD      skip diagnostics if success
  13244.     *                            failure...issue diagnostics
  13245.              WTO   '**** call to CEEHDLR failed ****',       *
  13246.                     ROUTCDE=11
  13247.              ABEND 1,DUMP        terminate prgm w/ dump
  13248.     HDLRGOOD EQU   *             handler registered OK
  13249.     *
  13250.     *  ... code covered by user-written hndlr goes here...
  13251.     *
  13252.     *        un-register user handler
  13253.     *
  13254.              LA    R1,USRHDLPP   get proc-ptr addr to HDLR
  13255.              ST    R1,HDLUPRM1   make it 1st parameter
  13256.              LA    R1,HDLUFBC    addr for feedback code
  13257.              ST    R1,HDLUPRM2   make it 2nd parameter
  13258.              LA    R1,HDLUPLST   pt to CEEHDLU parm list
  13259.              CALL  CEEHDLU       invoke CEEHDLU service
  13260.     *
  13261.     *        bid a fond farewell
  13262.     *
  13263.              WTO   'ASMHDLR Says "GOOD-BYE"',ROUTCDE=11
  13264.     *
  13265.     *        epilogue
  13266.     *
  13267.              CEETERM RC=4,MODIFIER=1  terminate program
  13268.     *
  13269.     *        program constants and local static variables
  13270.     *
  13271.     USRHDLPP DC    V(USRHDLR),A(0)    proc-ptr to handlr
  13272.     *
  13273.              LTORG ,                  put literal pool here
  13274.              EJECT
  13275.     PPA1     CEEPPA ,            our program prolog area
  13276.              EJECT
  13277.              CEEDSA ,            map CEE DSA
  13278.     *
  13279.     *        local automatic (dynamic) storage.
  13280.     *
  13281.     HDLRPLST DS    0F
  13282.     PARM1    DS    A             addr of user-writ handler
  13283.     PARM2    DS    A             addr of 32-bit token
  13284.     PARM3    DS    A             addr of feedback code
  13285.     *
  13286.     HDLUPLST DS    0F
  13287.     HDLUPRM1 DS    A             addr of user-writ handler
  13288.     HDLUPRM2 DS    A             addr of feedback code
  13289.     *
  13290.     TOKEN    DS    F             32-bit token: fullword
  13291.     *                                 *value* is passed
  13292.     *                                 to user handler each
  13293.     *                                 time it is called
  13294.     *
  13295.     FEEDBACK DS    CL12          CEEHDLR feedback code
  13296.     *
  13297.     HDLUFBC  DS    CL12          CEEHDLU feedback code
  13298.     *
  13299.     DSASIZ   EQU   *-CEEDSA      length of DSA
  13300.              EJECT
  13301.              CEECAA ,            map LE370 CAA
  13302.              END   ASMHDLR
  13303.  
  13304.  
  13305. ΓòÉΓòÉΓòÉ 3.3.36. CEEHDLU-Unregister User-Written Condition Handler ΓòÉΓòÉΓòÉ
  13306.  
  13307. CEEHDLU unregisters a user condition handler for the current stack frame. 
  13308.  
  13309. You are not required to remove user-written condition handlers you registered 
  13310. through the CEEHDLR callable service. Any user-written condition handlers 
  13311. created through CEEHDLR and not unregistered by CEEHDLU are unregistered 
  13312. automatically by LE/370 when the associated stack frame is removed from the 
  13313. stack. 
  13314.  
  13315. Note:   PL/I cannot use CEEHDLU, because user-written condition handlers cannot 
  13316. be registered in PL/I. 
  13317.  
  13318. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  13319. Γöé                                                  Γöé
  13320. Γöé >>ΓöÇΓöÇCEEHDLUΓöÇΓöÇ(ΓöÇΓöÇroutineΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  13321. Γöé                                                  Γöé
  13322. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  13323.  
  13324. routine (input) 
  13325.           An entry variable or constant for the routine to be unregistered as a 
  13326.           user condition handler. This routine must be previously registered 
  13327.           (with CEEHDLR) by the same stack frame that invokes CEEHDLU. See 
  13328.           CEEHDLR-Register User-Written Condition Handler for further 
  13329.           information about specifying the routine parameter. 
  13330.  
  13331. fc (output) 
  13332.           A 12-byte feedback code, optional in some languages, that indicates 
  13333.           the result of this service. 
  13334.  
  13335.           The following symbolic conditions can result from this service: 
  13336.  
  13337.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  13338.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  13339.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  13340.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13341.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  13342.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13343.                     Γöé CEE07S     Γöé 1        Γöé 0252      Γöé CEEHDLU was unable to find the requested user  Γöé
  13344.                     Γöé        Γöé         Γöé         Γöé condition handler routine.           Γöé
  13345.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  13346.  
  13347. Usage Note 
  13348.  
  13349.  OpenEdition MVS consideration-In multithread applications, CEEHDLU affects 
  13350.   only the calling thread. 
  13351.  
  13352. Examples 
  13353.  
  13354.  C/370 Example 
  13355.  
  13356.     /*COMPILATION UNIT: EDCHDLU   */
  13357.  
  13358.     #include <stdio.h>
  13359.     #include <string.h>
  13360.     #include <leawi.h>
  13361.     #include <ceeedcct.h>
  13362.  
  13363.     void handler(_FEEDBACK *,_INT4 *,_INT4 *,_FEEDBACK *);
  13364.  
  13365.     int main(void) {
  13366.  
  13367.       _FEEDBACK fc;
  13368.       _ENTRY routine;
  13369.       _INT4 token;
  13370.  
  13371.       /* set the routine structure to point to the handler */
  13372.       /* and use CEEHDLR to register the user handler      */
  13373.  
  13374.       token = 99;
  13375.       routine.address = (_POINTER)&handler;
  13376.       routine.nesting = NULL;
  13377.  
  13378.       CEEHDLR(&routine,&token,&fc);
  13379.  
  13380.       /* verify that CEEHDLR was successful */
  13381.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  13382.          printf("CEEHDLR failed with message number %d\n",
  13383.                 fc.tok_msgno);
  13384.          exit (2999);
  13385.       }
  13386.      /* .
  13387.         .
  13388.         . */
  13389.       /* Unregister the condition handler */
  13390.       CEEHDLU(&routine,&fc);
  13391.  
  13392.       /* verify that CEEHDLU was successful */
  13393.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  13394.          printf("CEEHDLU failed with message number %d\n",
  13395.                 fc.tok_msgno);
  13396.          exit (2999);
  13397.       }
  13398.      /* .
  13399.         .
  13400.         . */
  13401.     }
  13402.  
  13403.     void handler(_FEEDBACK *fc, _INT4 *token, _INT4 *result,
  13404.                  _FEEDBACK *newfc) {
  13405.      /* .
  13406.         .
  13407.         . */
  13408.     }
  13409.  
  13410.  COBOL/370 Example 
  13411.  
  13412.  
  13413.     COBOL/370 Routine that Unregisters User-Written Condition Handler
  13414.  
  13415.     CBL LIB,APOST
  13416.           *COMPILATION UNIT: IGZTHDLU
  13417.           ***************************************************
  13418.           **                                               **
  13419.           ** Function: CEEHDLU - unregister user condition **
  13420.           ** handler                                       **
  13421.           **                                               **
  13422.           ** In this example, a call is made to CEEHDLU to **
  13423.           ** unregister a user condition handler           **
  13424.           ** previously registered using CEEHDLR.          **
  13425.           **                                               **
  13426.           ***************************************************
  13427.            IDENTIFICATION DIVISION.
  13428.            PROGRAM-ID. CBLHDLU.
  13429.            DATA DIVISION.
  13430.            WORKING-STORAGE SECTION.
  13431.            01  ROUTINE  PROCEDURE-POINTER.
  13432.            01  TOKEN                   PIC S9(9) COMP.
  13433.            01  FC.
  13434.                02  Condition-Token-Value.
  13435.                COPY  CEEIGZCT.
  13436.                    03  Case-1-Condition-ID.
  13437.                        04  Severity        PIC S9(4) COMP.
  13438.                        04  Msg-No          PIC S9(4) COMP.
  13439.                    03  Case-2-Condition-ID
  13440.                              REDEFINES Case-1-Condition-ID.
  13441.                        04  Class-Code      PIC S9(4) COMP.
  13442.                        04  Cause-Code      PIC S9(4) COMP.
  13443.                    03  Case-Sev-Ctl    PIC X.
  13444.                    03  Facility-ID     PIC XXX.
  13445.                02  I-S-Info        PIC S9(9) COMP.
  13446.  
  13447.            PROCEDURE DIVISION.
  13448.            PARA-CBLHDLR.
  13449.                SET ROUTINE TO ENTRY 'HANDLER'.
  13450.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  13451.                IF NOT CEE000 of FC  THEN
  13452.                    DISPLAY 'CEEHDLR failed with msg '
  13453.                        Msg-No of FC UPON CONSOLE;
  13454.                    STOP RUN;
  13455.                ELSE
  13456.                    DISPLAY 'HANDLER REGISTERED';
  13457.                END-IF.
  13458.  
  13459.           *      .
  13460.           *      .
  13461.           *      .
  13462.  
  13463.            PARA-CBLHDLU.
  13464.                CALL 'CEEHDLU' USING ROUTINE , FC.
  13465.                IF NOT CEE000 of FC  THEN
  13466.                    DISPLAY 'CEEHDLU failed with msg '
  13467.                        Msg-No of FC UPON CONSOLE;
  13468.                    STOP RUN;
  13469.                ELSE
  13470.                    DISPLAY 'HANDLER UNREGISTERED';
  13471.                END-IF.
  13472.                GOBACK.
  13473.            END PROGRAM CBLHDLU.
  13474.  
  13475.  
  13476.     COBOL / 370User - WrittenConditionHandlerRegisteredbyCBLHDLRandUnregisteredbyCBLHDLU
  13477.  
  13478.     CBL LIB,APOST,NOOPT,NODYNAM
  13479.           *COMPILATION UNIT: IGZTHAND
  13480.           *************************************************
  13481.           **                                             **
  13482.           ** DRVHAND - Drive sample program for COBOL    **
  13483.           **           user-written condition handler.   **
  13484.           **                                             **
  13485.           *************************************************
  13486.            IDENTIFICATION DIVISION.
  13487.            PROGRAM-ID. DRVHAND.
  13488.            DATA DIVISION.
  13489.            WORKING-STORAGE SECTION.
  13490.            01  ROUTINE             PROCEDURE-POINTER.
  13491.            01  DENOMINATOR         PIC S9(9) COMP.
  13492.            01  NUMERATOR           PIC S9(9) COMP.
  13493.            01  RATIO               PIC S9(9) COMP.
  13494.            01  TOKEN               PIC S9(9) COMP VALUE 0.
  13495.            01  FC.
  13496.                02  Condition-Token-Value.
  13497.                COPY  CEEIGZCT.
  13498.                    03  Case-1-Condition-ID.
  13499.                        04  Severity        PIC S9(4) COMP.
  13500.                        04  Msg-No          PIC S9(4) COMP.
  13501.                    03  Case-2-Condition-ID
  13502.                              REDEFINES Case-1-Condition-ID.
  13503.                        04  Class-Code      PIC S9(4) COMP.
  13504.                        04  Cause-Code      PIC S9(4) COMP.
  13505.                    03  Case-Sev-Ctl    PIC X.
  13506.                    03  Facility-ID     PIC XXX.
  13507.                02  I-S-Info        PIC S9(9) COMP.
  13508.  
  13509.            PROCEDURE DIVISION.
  13510.  
  13511.            REGISTER-HANDLER.
  13512.           ** Register handler
  13513.                SET ROUTINE TO ENTRY 'HANDLER'.
  13514.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  13515.                IF  NOT CEE000 of FC  THEN
  13516.                    DISPLAY 'CEEHDLR failed with msg '
  13517.                        Msg-No of FC UPON CONSOLE;
  13518.                    STOP RUN;
  13519.                END-IF.
  13520.  
  13521.            RAISE-CONDITION.
  13522.           ** Cause a zero-divide condition.
  13523.                MOVE 0 TO DENOMINATOR.
  13524.                MOVE 1 TO NUMERATOR.
  13525.                DIVIDE NUMERATOR BY DENOMINATOR, GIVING RATIO.
  13526.                DISPLAY 'Execution continues following '
  13527.                    'divide-by-zero exception'.
  13528.  
  13529.            UNREGISTER-HANDLER.
  13530.           ** UNregister handler
  13531.                CALL 'CEEHDLU' USING ROUTINE , TOKEN , FC.
  13532.                IF NOT CEE000 of FC  THEN
  13533.                    DISPLAY 'CEEHDLU failed with msg '
  13534.                        Msg-No of FC UPON CONSOLE;
  13535.                END-IF.
  13536.                STOP RUN.
  13537.            END PROGRAM DRVHAND.
  13538.  
  13539.           *COMPILATION UNIT: HANDLER
  13540.            IDENTIFICATION DIVISION.
  13541.            PROGRAM-ID. HANDLER.
  13542.            DATA DIVISION.
  13543.            WORKING-STORAGE SECTION.
  13544.  
  13545.            LINKAGE SECTION.
  13546.            01  TOKEN                   PIC S9(9) COMP.
  13547.            01  RESULT                  PIC S9(9) COMP.
  13548.                88 RESUME                   VALUE 10.
  13549.            01  CURCOND.
  13550.                02  Condition-Token-Value.
  13551.                COPY  CEEIGZCT.
  13552.                    03  Case-1-Condition-ID.
  13553.                        04  Severity        PIC S9(4) COMP.
  13554.                        04  Msg-No          PIC S9(4) COMP.
  13555.                    03  Case-2-Condition-ID
  13556.                              REDEFINES Case-1-Condition-ID.
  13557.                        04  Class-Code      PIC S9(4) COMP.
  13558.                        04  Cause-Code      PIC S9(4) COMP.
  13559.                    03  Case-Sev-Ctl    PIC X.
  13560.                    03  Facility-ID     PIC XXX.
  13561.                02  I-S-Info        PIC S9(9) COMP.
  13562.            01  NEWCOND.
  13563.                02  Condition-Token-Value.
  13564.                COPY  CEEIGZCT.
  13565.                    03  Case-1-Condition-ID.
  13566.                        04  Severity        PIC S9(4) COMP.
  13567.                        04  Msg-No          PIC S9(4) COMP.
  13568.                    03  Case-2-Condition-ID
  13569.                              REDEFINES Case-1-Condition-ID.
  13570.                        04  Class-Code      PIC S9(4) COMP.
  13571.                        04  Cause-Code      PIC S9(4) COMP.
  13572.                    03  Case-Sev-Ctl    PIC X.
  13573.                    03  Facility-ID     PIC XXX.
  13574.                02  I-S-Info        PIC S9(9) COMP.
  13575.  
  13576.            PROCEDURE DIVISION USING
  13577.                CURCOND, TOKEN, RESULT, NEWCOND.
  13578.  
  13579.            PARA-HANDLER.
  13580.                DISPLAY 'Entered user handler for condition'
  13581.                   ' with message number ' Msg-No Of CURCOND
  13582.                   ' -- will resume execution'.
  13583.                SET RESUME TO TRUE.
  13584.                GOBACK.
  13585.  
  13586.  
  13587. ΓòÉΓòÉΓòÉ 3.3.37. CEEISEC-Convert Integers to Seconds ΓòÉΓòÉΓòÉ
  13588.  
  13589. CEEISEC converts separate binary integers representing year, month, day, hour, 
  13590. minute, second, and millisecond to a number representing the number of seconds 
  13591. since 00:00 14 October 1582. Use CEEISEC instead of CEESECS when the input is 
  13592. in numeric format rather than character format. 
  13593.  
  13594. The inverse of CEEISEC is CEESECI, which converts number of seconds to integer 
  13595. year, month, day, hour, minute, second, and millisecond. 
  13596.  
  13597. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  13598. Γöé                                                  Γöé
  13599. Γöé >>ΓöÇΓöÇCEEISECΓöÇΓöÇ(ΓöÇΓöÇinput_yearΓöÇΓöÇ,ΓöÇΓöÇinput_monthsΓöÇΓöÇ,ΓöÇΓöÇinput_dayΓöÇΓöÇ,ΓöÇΓöÇinput_hoursΓöÇΓöÇ,ΓöÇΓöÇinput_minutesΓöÇΓöÇΓöÇΓöÇ> Γöé
  13600. Γöé                                                  Γöé
  13601. Γöé >ΓöÇΓöÇ,ΓöÇΓöÇinput_secondsΓöÇΓöÇ,ΓöÇΓöÇinput_millisecondsΓöÇΓöÇ,ΓöÇΓöÇoutput_secondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  13602. Γöé                                                  Γöé
  13603. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  13604.  
  13605. input_year (input) 
  13606.           A 32-bit binary integer representing the year. 
  13607.  
  13608.           The range of valid input_years is 1582 to 9999, inclusive. 
  13609.  
  13610. input_month (input) 
  13611.           A 32-bit binary integer representing the month. 
  13612.  
  13613.           The range of valid input_month is 1 to 12. 
  13614.  
  13615. input_day (input) 
  13616.           A 32-bit binary integer representing the day. 
  13617.  
  13618.           The range of valid input_days is 1 to 31. 
  13619.  
  13620. input_hours (input) 
  13621.           A 32-bit binary integer representing the hours. 
  13622.  
  13623.           The range of valid input_hours is 0 to 23. 
  13624.  
  13625. input_minutes (input) 
  13626.           A 32-bit binary integer representing the minutes. 
  13627.  
  13628.           The range of valid input_minutes is 0 to 59. 
  13629.  
  13630. input_seconds (input) 
  13631.           A 32-bit binary integer representing the seconds. 
  13632.  
  13633.           The range of valid input_seconds is 0 to 59. 
  13634.  
  13635. input_milliseconds (input) 
  13636.           A 32-bit binary integer representing milliseconds. 
  13637.  
  13638.           The range of valid input_milliseconds is 0 to 999. 
  13639.  
  13640. output_seconds (output) 
  13641.           A 64-bit double floating-point number representing the number of 
  13642.           seconds since 00:00 on 14 October 1582, not counting leap seconds. 
  13643.  
  13644.           For example, 00:01 on 15 October 1582 is second number 86,401 
  13645.           (24*60*60 + 01). The valid range of output_seconds is 86,400 to 
  13646.           265,621,679,999.999 (23:59.999 31 December 9999). 
  13647.  
  13648.           If any input values are invalid, output_seconds is set to zero. 
  13649.  
  13650.           To convert output_seconds to a Lilian day number, divide 
  13651.           output_seconds by 86,400 (the number of seconds in a day). 
  13652.  
  13653. fc (output) 
  13654.           A 12-byte feedback code, optional in some languages, that indicates 
  13655.           the result of this service. 
  13656.  
  13657.           The following symbolic conditions can result from this service: 
  13658.  
  13659.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  13660.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  13661.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  13662.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13663.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  13664.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13665.                     Γöé CEE2EE     Γöé 3        Γöé 2510      Γöé The hours value was not recognized.       Γöé
  13666.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13667.                     Γöé CEE2EF     Γöé 3        Γöé 2511      Γöé The day value was invalid for year and month  Γöé
  13668.                     Γöé        Γöé         Γöé         Γöé specified.                   Γöé
  13669.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13670.                     Γöé CEE2EH     Γöé 3        Γöé 2513      Γöé The input date was not within the supported   Γöé
  13671.                     Γöé        Γöé         Γöé         Γöé range.                     Γöé
  13672.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13673.                     Γöé CEE2EI     Γöé 3        Γöé 2514      Γöé The year value was not within the supported   Γöé
  13674.                     Γöé        Γöé         Γöé         Γöé range.                     Γöé
  13675.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13676.                     Γöé CEE2EJ     Γöé 3        Γöé 2515      Γöé The milliseconds value was not recognized.   Γöé
  13677.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13678.                     Γöé CEE2EK     Γöé 3        Γöé 2516      Γöé The minutes value was not recognized.      Γöé
  13679.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13680.                     Γöé CEE2EL     Γöé 3        Γöé 2517      Γöé The month value was not recognized.       Γöé
  13681.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13682.                     Γöé CEE2EN     Γöé 3        Γöé 2519      Γöé The seconds value was not recognized.      Γöé
  13683.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  13684.  
  13685. Usage Notes 
  13686.  
  13687.  OpenEdition MVS consideration-In multithread applications, CEEISEC affects 
  13688.   only the calling thread. 
  13689.  
  13690. Examples 
  13691.  
  13692.  C/370 Example 
  13693.  
  13694.     /*COMPILATION UNIT: EDCISEC   */
  13695.  
  13696.     #include <string.h>
  13697.     #include <stdio.h>
  13698.     #include <leawi.h>
  13699.     #include <ceeedcct.h>
  13700.  
  13701.     int main(void) {
  13702.  
  13703.       _INT4 year, month, day, hours, minutes, seconds,
  13704.             millisecs;
  13705.       _FLOAT8 output;
  13706.       _FEEDBACK fc;
  13707.  
  13708.       year = 1991;
  13709.       month = 9;
  13710.       day = 13;
  13711.       hours = 4;
  13712.       minutes = 34;
  13713.       seconds = 25;
  13714.       millisecs = 746;
  13715.  
  13716.       CEEISEC(&year,&month,&day,&hours,&minutes,&seconds,
  13717.               &millisecs,&output,&fc);
  13718.  
  13719.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  13720.          printf("CEEISEC failed with message number %d\n",
  13721.                 fc.tok_msgno);
  13722.          exit(2999);
  13723.       }
  13724.       printf("The number of seconds between 00:00.00"
  13725.              " 10/14/1582 and 04:25.746 09/13/1991"
  13726.              " is %.3f\n",output);
  13727.     }
  13728.  
  13729.  COBOL/370 Example 
  13730.  
  13731.     CBL LIB,APOST
  13732.           *COMPILATION UNIT: IGZTISEC
  13733.           *************************************************
  13734.           **                                             **
  13735.           ** Function: CEEISEC - convert integers to     **
  13736.           **                     seconds                 **
  13737.           **                                             **
  13738.           *************************************************
  13739.            IDENTIFICATION DIVISION.
  13740.            PROGRAM-ID. CBLISEC.
  13741.            DATA DIVISION.
  13742.            WORKING-STORAGE SECTION.
  13743.            01  YEAR                    PIC S9(9) COMP.
  13744.            01  MONTH                   PIC S9(9) COMP.
  13745.            01  DAYS                    PIC S9(9) COMP.
  13746.            01  HOURS                   PIC S9(9) COMP.
  13747.            01  MINUTES                 PIC S9(9) COMP.
  13748.            01  SECONDS                 PIC S9(9) COMP.
  13749.            01  MILLSEC                 PIC S9(9) COMP.
  13750.            01  OUTSECS                 COMP-2.
  13751.            01  FC.
  13752.                02  Condition-Token-Value.
  13753.                COPY  CEEIGZCT.
  13754.                    03  Case-1-Condition-ID.
  13755.                        04  Severity        PIC S9(4) COMP.
  13756.                        04  Msg-No          PIC S9(4) COMP.
  13757.                    03  Case-2-Condition-ID
  13758.                              REDEFINES Case-1-Condition-ID.
  13759.                        04  Class-Code      PIC S9(4) COMP.
  13760.                        04  Cause-Code      PIC S9(4) COMP.
  13761.                    03  Case-Sev-Ctl    PIC X.
  13762.                    03  Facility-ID     PIC XXX.
  13763.                02  I-S-Info        PIC S9(9) COMP.
  13764.            PROCEDURE DIVISION.
  13765.            PARA-CBLISEC.
  13766.           ** Specify seven binary integers representing
  13767.           **    the date and time as input to be converted
  13768.           **    to Lilian seconds
  13769.                MOVE 2000 TO YEAR.
  13770.                MOVE 1 TO MONTH.
  13771.                MOVE 1 TO DAYS.
  13772.                MOVE 0 TO HOURS.
  13773.                MOVE 0 TO MINUTES.
  13774.                MOVE 0 TO SECONDS.
  13775.                MOVE 0 TO MILLSEC.
  13776.           ** Call CEEISEC to conervt the integers to seconds
  13777.                CALL 'CEEISEC' USING YEAR , MONTH , DAYS ,
  13778.                    HOURS , MINUTES , SECONDS , MILLSEC ,
  13779.                    OUTSECS , FC.
  13780.           ** If CEEISEC runs successfully, display result.
  13781.                IF CEE000 of FC  THEN
  13782.                    DISPLAY MONTH '/' DAYS '/' YEAR
  13783.                        ' AT ' HOURS ':' MINUTES ':' SECONDS
  13784.                        ' is equivalent to ' OUTSECS ' seconds'
  13785.                ELSE
  13786.                    DISPLAY 'CEEISEC failed with msg '
  13787.                        Msg-No of FC UPON CONSOLE;
  13788.                    STOP RUN;
  13789.                END-IF.
  13790.                GOBACK.
  13791.  
  13792.  PL/I Example 
  13793.  
  13794.     *PROCESS MACRO;
  13795.      /*COMPILATION UNIT: IBMISEC
  13796.      /****************************************************/
  13797.      /**                                                **/
  13798.      /** Function: CEEISEC - Convert integers to        **/
  13799.      /**                     seconds                    **/
  13800.      /**                                                **/
  13801.      /** In this example, CEEISEC is called to convert  **/
  13802.      /** integers representing the date and time to the **/
  13803.      /** number of seconds since 00:00 14 October 1582. **/
  13804.      /**                                                **/
  13805.      /****************************************************/
  13806.      PLIISEC: PROC OPTIONS(MAIN);
  13807.  
  13808.         %INCLUDE  CEEIBMAW;
  13809.         %INCLUDE  CEEIBMCT;
  13810.  
  13811.         DCL YEAR     INT4;
  13812.         DCL MONTH    INT4;
  13813.         DCL DAYS     INT4;
  13814.         DCL HOURS    INT4;
  13815.         DCL MINUTES  INT4;
  13816.         DCL SECONDS  INT4;
  13817.         DCL MILLSEC  INT4;
  13818.         DCL OUTSECS  FLOAT8;
  13819.         DCL 01 FC    FEEDBACK;
  13820.  
  13821.         /* Specify integers representing */
  13822.         /*    00:00 1 January 2000    */
  13823.         YEAR = 2000;
  13824.         MONTH = 1;
  13825.         DAYS = 1;
  13826.         HOURS = 0;
  13827.         MINUTES = 0;
  13828.         SECONDS = 0;
  13829.         MILLSEC = 0;
  13830.  
  13831.        /* Call CEEISEC to convert integers to Lilian     */
  13832.        /*    seconds                                     */
  13833.         CALL CEEISEC ( YEAR, MONTH, DAYS, HOURS,
  13834.            MINUTES, SECONDS, MILLSEC, OUTSECS, FC );
  13835.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  13836.            PUT EDIT( OUTSECS, ' seconds corresponds to ',
  13837.                  MONTH, '/', DAYS, '/', YEAR, ' at ', HOURS,
  13838.                  ':', MINUTES, ':', SECONDS, '.', MILLSEC )
  13839.               (SKIP, F(9), A, 2 (P'99',A), P'9999', A,
  13840.                  3 (P'99', A), P'999' );
  13841.            END;
  13842.         ELSE  DO;
  13843.            DISPLAY( 'CEEISEC failed with msg '
  13844.               || FC.MsgNo );
  13845.            STOP;
  13846.            END;
  13847.  
  13848.      END PLIISEC;
  13849.  
  13850.  
  13851. ΓòÉΓòÉΓòÉ 3.3.38. CEEITOK-Return Initial Condition Token ΓòÉΓòÉΓòÉ
  13852.  
  13853. CEEITOK returns the initial condition for the current condition. 
  13854.  
  13855. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  13856. Γöé                                                  Γöé
  13857. Γöé >>ΓöÇΓöÇCEEITOKΓöÇΓöÇ(ΓöÇΓöÇi_ctokΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  13858. Γöé                                                  Γöé
  13859. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  13860.  
  13861. i_ctok(output) 
  13862.           A 12-byte condition token (see CEENCOD-Construct a Condition Token 
  13863.           for information) identifying the initial condition in the current 
  13864.           active data block being processed. 
  13865.  
  13866. fc (output) 
  13867.           A 12-byte feedback code, optional in some languages, that indicates 
  13868.           the result of this service. 
  13869.  
  13870.           The following symbolic conditions can result from this service: 
  13871.  
  13872.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  13873.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  13874.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  13875.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13876.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  13877.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  13878.                     Γöé CEE35S     Γöé 1        Γöé 3260      Γöé No condition was active when a call to a con-  Γöé
  13879.                     Γöé        Γöé         Γöé         Γöé dition management routine was made.       Γöé
  13880.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  13881.  
  13882. Usage Note 
  13883.  
  13884.  OpenEdition MVS considerations-In multithread applications, CEEITOK affects 
  13885.   only the calling thread. CEEITOK returns the initial token for the condition 
  13886.   of the thread. 
  13887.  
  13888. Examples 
  13889.  
  13890.  C/370 Example 
  13891.  
  13892.     /*COMPILATION UNIT: EDCITOK   */
  13893.  
  13894.     #include <stdio.h>
  13895.     #include <string.h>
  13896.     #include <leawi.h>
  13897.     #include <ceeedcct.h>
  13898.  
  13899.     void handler(_FEEDBACK *,_INT4 *,_INT4 *,_FEEDBACK *);
  13900.  
  13901.     int main(void) {
  13902.  
  13903.       _FEEDBACK fc,condtok;
  13904.       _ENTRY routine;
  13905.       _INT4 token,qdata;
  13906.       _INT2 c_1,c_2,cond_case,sev,control;
  13907.       _CHAR3 facid;
  13908.       _INT4 isi;
  13909.  
  13910.       /* register condition handler */
  13911.       token = 99;
  13912.       routine.address = (_POINTER)&handler;
  13913.       routine.nesting = NULL;
  13914.       CEEHDLR(&routine,&token,&fc);
  13915.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  13916.           printf("CEEHDLR failed with message number %d\n",
  13917.                  fc.tok_msgno);
  13918.           exit(2999);
  13919.        }
  13920.       /* .
  13921.          .
  13922.          . */
  13923.       /* build the condition token */
  13924.       c_1 = 1;
  13925.       c_2 = 99;
  13926.       cond_case = 1;
  13927.       sev = 1;
  13928.       control = 0;
  13929.       memcpy(facid,"ZZZ",3);
  13930.       isi = 0;
  13931.  
  13932.       CEENCOD(&c_1,&c_2,&cond_case,&sev,&control,
  13933.               facid,&isi,&condtok,&fc);
  13934.  
  13935.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  13936.          printf("CEENCOD failed with message number %d\n",
  13937.                 fc.tok_msgno);
  13938.          exit(2999);
  13939.       }
  13940.  
  13941.       /* .
  13942.          .
  13943.          . */
  13944.       /* signal the condition */
  13945.       CEESGL(&condtok,&qdata,&fc);
  13946.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  13947.           printf("CEESGL failed with message number %d\n",
  13948.                  fc.tok_msgno);
  13949.           exit(2999);
  13950.        }
  13951.       /* .
  13952.          .
  13953.          . */
  13954.     }
  13955.     void handler(_FEEDBACK *fc, _INT4 *token, _INT4 *result,
  13956.                  _FEEDBACK *newfc) {
  13957.  
  13958.        _FEEDBACK orig_fc, itok_fc;
  13959.       /* .
  13960.          .
  13961.          . */
  13962.        /* get the original condition token */
  13963.        CEEITOK(&orig_fc, &itok_fc);
  13964.       if ( _FBCHECK ( itok_fc , CEE000 ) != 0 ) {
  13965.           printf("CEEITOK failed with message number %d\n",
  13966.                  itok_fc.tok_msgno);
  13967.           exit(2999);
  13968.        }
  13969.       /* .
  13970.          .
  13971.          . */
  13972.       *result = 10;
  13973.     }
  13974.  
  13975.  COBOL/370 Example 
  13976.  
  13977.     CBL LIB,APOST,NOOPT
  13978.           *COMPILATION UNIT: IGZTITOK
  13979.           *************************************************
  13980.           **                                             **
  13981.           ** Purpose:  Drive sample program for CEEITOK. **
  13982.           **                                             **
  13983.           *************************************************
  13984.            IDENTIFICATION DIVISION.
  13985.            PROGRAM-ID. DRVITOK.
  13986.            DATA DIVISION.
  13987.            WORKING-STORAGE SECTION.
  13988.            01  ROUTINE             PROCEDURE-POINTER.
  13989.            01  DENOMINATOR         PIC S9(9) COMP.
  13990.            01  NUMERATOR           PIC S9(9) COMP.
  13991.            01  RATIO               PIC S9(9) COMP.
  13992.            01  TOKEN               PIC S9(9) COMP VALUE 0.
  13993.            01  FC.
  13994.                02  Condition-Token-Value.
  13995.                COPY  CEEIGZCT.
  13996.                    03  Case-1-Condition-ID.
  13997.                        04  Severity        PIC S9(4) COMP.
  13998.                        04  Msg-No          PIC S9(4) COMP.
  13999.                    03  Case-2-Condition-ID
  14000.                              REDEFINES Case-1-Condition-ID.
  14001.                        04  Class-Code      PIC S9(4) COMP.
  14002.                        04  Cause-Code      PIC S9(4) COMP.
  14003.                    03  Case-Sev-Ctl    PIC X.
  14004.                    03  Facility-ID     PIC XXX.
  14005.                02  I-S-Info        PIC S9(9) COMP.
  14006.  
  14007.            PROCEDURE DIVISION.
  14008.  
  14009.            REGISTER-HANDLER.
  14010.           ** Register handler
  14011.                SET ROUTINE TO ENTRY 'CBLITOK'.
  14012.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  14013.                IF  NOT CEE000 of FC  THEN
  14014.                    DISPLAY 'CEEHDLR failed with msg '
  14015.                        Msg-No of FC UPON CONSOLE;
  14016.                    STOP RUN;
  14017.                END-IF.
  14018.  
  14019.            RAISE-CONDITION.
  14020.           ** Cause a zero-divide condition.
  14021.                MOVE 0 TO DENOMINATOR.
  14022.                MOVE 1 TO NUMERATOR.
  14023.                DIVIDE NUMERATOR BY DENOMINATOR, GIVING RATIO.
  14024.  
  14025.            UNREGISTER-HANDLER.
  14026.           ** UNregister handler
  14027.                CALL 'CEEHDLU' USING ROUTINE , TOKEN , FC.
  14028.                IF NOT CEE000 of FC  THEN
  14029.                    DISPLAY 'CEEHDLU failed with msg '
  14030.                        Msg-No of FC UPON CONSOLE;
  14031.                END-IF.
  14032.                STOP RUN.
  14033.            END PROGRAM DRVITOK.
  14034.  
  14035.           *************************************************
  14036.           **                                             **
  14037.           ** Function: CEEITOK - Return initial          **
  14038.           **                     condition token         **
  14039.           **                                             **
  14040.           *************************************************
  14041.            IDENTIFICATION DIVISION.
  14042.            PROGRAM-ID. CBLITOK.
  14043.            DATA DIVISION.
  14044.            WORKING-STORAGE SECTION.
  14045.            01  ITOKEN.
  14046.                02  Condition-Token-Value.
  14047.                COPY  CEEIGZCT.
  14048.                    03  Case-1-Condition-ID.
  14049.                        04  Severity        PIC S9(4) COMP.
  14050.                        04  Msg-No          PIC S9(4) COMP.
  14051.                    03  Case-2-Condition-ID
  14052.                              REDEFINES Case-1-Condition-ID.
  14053.                        04  Class-Code      PIC S9(4) COMP.
  14054.                        04  Cause-Code      PIC S9(4) COMP.
  14055.                    03  Case-Sev-Ctl    PIC X.
  14056.                    03  Facility-ID     PIC XXX.
  14057.                02  I-S-Info        PIC S9(9) COMP.
  14058.            01  FC.
  14059.                02  Condition-Token-Value.
  14060.                COPY  CEEIGZCT.
  14061.                    03  Case-1-Condition-ID.
  14062.                        04  Severity        PIC S9(4) COMP.
  14063.                        04  Msg-No          PIC S9(4) COMP.
  14064.                    03  Case-2-Condition-ID
  14065.                              REDEFINES Case-1-Condition-ID.
  14066.                        04  Class-Code      PIC S9(4) COMP.
  14067.                        04  Cause-Code      PIC S9(4) COMP.
  14068.                    03  Case-Sev-Ctl    PIC X.
  14069.                    03  Facility-ID     PIC XXX.
  14070.                02  I-S-Info        PIC S9(9) COMP.
  14071.            LINKAGE SECTION.
  14072.            01  TOKEN                   PIC S9(9) COMP.
  14073.            01  RESULT                  PIC S9(9) COMP.
  14074.                88 RESUME                   VALUE 10.
  14075.            01  CURCOND.
  14076.                02  Condition-Token-Value.
  14077.                COPY  CEEIGZCT.
  14078.                    03  Case-1-Condition-ID.
  14079.                        04  Severity        PIC S9(4) COMP.
  14080.                        04  Msg-No          PIC S9(4) COMP.
  14081.                    03  Case-2-Condition-ID
  14082.                              REDEFINES Case-1-Condition-ID.
  14083.                        04  Class-Code      PIC S9(4) COMP.
  14084.                        04  Cause-Code      PIC S9(4) COMP.
  14085.                    03  Case-Sev-Ctl    PIC X.
  14086.                    03  Facility-ID     PIC XXX.
  14087.                02  I-S-Info        PIC S9(9) COMP.
  14088.            01  NEWCOND.
  14089.                02  Condition-Token-Value.
  14090.                COPY  CEEIGZCT.
  14091.                    03  Case-1-Condition-ID.
  14092.                        04  Severity        PIC S9(4) COMP.
  14093.                        04  Msg-No          PIC S9(4) COMP.
  14094.                    03  Case-2-Condition-ID
  14095.                              REDEFINES Case-1-Condition-ID.
  14096.                        04  Class-Code      PIC S9(4) COMP.
  14097.                        04  Cause-Code      PIC S9(4) COMP.
  14098.                    03  Case-Sev-Ctl    PIC X.
  14099.                    03  Facility-ID     PIC XXX.
  14100.                02  I-S-Info        PIC S9(9) COMP.
  14101.  
  14102.            PROCEDURE DIVISION
  14103.                USING CURCOND, TOKEN, RESULT, NEWCOND.
  14104.            PARA-CBLITOK.
  14105.                CALL 'CEEITOK' USING ITOKEN , FC.
  14106.                IF  CEE000 of FC  THEN
  14107.                    DISPLAY 'Initial condition has msg '
  14108.                        Msg-No of ITOKEN;
  14109.                ELSE
  14110.                    DISPLAY 'CEEITOK failed with msg '
  14111.                        Msg-No of FC UPON CONSOLE;
  14112.                    STOP RUN;
  14113.                END-IF.
  14114.  
  14115.            PARA-HANDLER.
  14116.           ** In user handler - resume execution
  14117.                SET RESUME TO TRUE.
  14118.                GOBACK.
  14119.  
  14120.            END PROGRAM CBLITOK.
  14121.  
  14122.  PL/I Example 
  14123.  
  14124.     *PROCESS OPT(0), MACRO;
  14125.      /*COMPILATION UNIT: IBMITOK
  14126.      /********************************************/
  14127.      /**                                        **/
  14128.      /** Function: CEEITOK - example of CEEITOK **/
  14129.      /**                     invoked from PL/I  **/
  14130.      /**                     ON-unit            **/
  14131.      /**                                        **/
  14132.      /********************************************/
  14133.  
  14134.      IBMITOK:  PROCEDURE  OPTIONS(MAIN);
  14135.  
  14136.              %INCLUDE CEEIBMAW;
  14137.              %INCLUDE CEEIBMCT;
  14138.  
  14139.              DECLARE
  14140.                 01 ITOKEN   FEEDBACK,
  14141.                 01 FC       FEEDBACK,
  14142.                 divisor     FIXED BINARY(31) INITIAL(0);
  14143.  
  14144.              ON  ZERODIVIDE  BEGIN;
  14145.  
  14146.                 CALL CEEITOK ( ITOKEN, FC );
  14147.                 IF  FBCHECK( FC, CEE000)  THEN  DO;
  14148.                    PUT SKIP LIST( 'The initial condition for the '
  14149.                       || 'current active block was message '
  14150.                       || ITOKEN.MsgNo
  14151.                       || ' for facility '|| ITOKEN.FacID );
  14152.                    END;
  14153.                 ELSE  DO;
  14154.                    DISPLAY( 'CEEITOK failed with msg '
  14155.                       || FC.MsgNo );
  14156.                    CALL  CEEMSG( FC, 2, * );
  14157.                    END;
  14158.  
  14159.                 END /* ON ZeroDivide */;
  14160.  
  14161.  
  14162.              divisor = 15 / divisor  /* signals ZERODIVIDE */;
  14163.  
  14164.      END IBMITOK;
  14165.  
  14166.  
  14167. ΓòÉΓòÉΓòÉ 3.3.39. CEELOCT-Get Current Local Date or Time ΓòÉΓòÉΓòÉ
  14168.  
  14169. CEELOCT returns the current local date or time in three formats: 
  14170.  
  14171.  Lilian date (the number of days since 14 October 1582) 
  14172.  Lilian seconds (the number of seconds since 00:00 14 October 1582) 
  14173.  Gregorian character string (in the form YYYYMMDDHHMISS999). 
  14174. These values are compatible with other LE/370 date and time services, and with 
  14175. existing language intrinsic functions. CEELOCT performs the same function as 
  14176. calling the CEEGMT, CEEGMTO, and CEEDATM date and time services in succession. 
  14177. CEELOCT, however, performs the same service with much greater speed. 
  14178.  
  14179. The character value returned by CEELOCT is designed to match that produced by 
  14180. existing language intrinsic functions. The numeric values returned can be used 
  14181. to simplify date calculations. 
  14182.  
  14183. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14184. Γöé                                                  Γöé
  14185. Γöé >>ΓöÇΓöÇCEELOCTΓöÇΓöÇ(ΓöÇΓöÇoutput_LilianΓöÇΓöÇ,ΓöÇΓöÇoutput_secondsΓöÇΓöÇ,ΓöÇΓöÇoutput_GregorianΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  14186. Γöé                                                  Γöé
  14187. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14188.  
  14189. output_Lilian (output) 
  14190.           A 32-bit binary integer representing the current local date in the 
  14191.           Lilian format, that is, day 1 equals 15 October 1582, day 148,887 
  14192.           equals 4 June 1990. 
  14193.  
  14194.           If the local time is not available from the system, output_Lilian is 
  14195.           set to 0 and CEELOCT terminates with a non-CEE000 symbolic feedback 
  14196.           code. 
  14197.  
  14198. output_seconds (output) 
  14199.           A 64-bit double-floating point number representing the current local 
  14200.           date and time as the number of seconds since 00:00 on 14 October 
  14201.           1582, not counting leap seconds. For example, 00:01 on 15 October 
  14202.           1582 is second number 86,401 (24*60*60 + 01). 19:01.078 on 4 June 
  14203.           1990 is second number 12,863,905,201.078. 
  14204.  
  14205.           If the local time is not available from the system, output_seconds is 
  14206.           set to 0 and CEELOCT terminates with a non-CEE000 symbolic feedback 
  14207.           code. 
  14208.  
  14209. output_Gregorian (output) 
  14210.           A 17-byte fixed-length character string in the form YYYYMMDDHHMISS999 
  14211.           representing local year, month, day, hour, minute, second, and 
  14212.           millisecond. 
  14213.  
  14214.           If the format of output_Gregorian does not meet your needs, you can 
  14215.           use the CEEDATM callable service (CEEDATM-Convert Seconds to 
  14216.           Character Timestamp) to convert output_seconds to another format. 
  14217.  
  14218. fc (output) 
  14219.           A 12-byte feedback code, optional in some languages, that indicates 
  14220.           the result of this service. 
  14221.  
  14222.           The following symbolic conditions can result from this service: 
  14223.  
  14224.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14225.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  14226.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  14227.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14228.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  14229.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14230.                     Γöé CEE2F3     Γöé 3        Γöé 2531      Γöé The local time was not available from the    Γöé
  14231.                     Γöé        Γöé         Γöé         Γöé system.                     Γöé
  14232.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14233.  
  14234. Usage Notes 
  14235.  
  14236.  You can use the CEEGMT callable service (CEEGMT-Get Current Greenwich Mean 
  14237.   Time) to determine Greenwich Mean Time (GMT). 
  14238.  
  14239.  You can use the CEEGMTO callable service (CEEGMTO-Get Offset from Greenwich 
  14240.   Mean Time to Local Time) to obtain the offset from GMT to local time. 
  14241.  
  14242.  CICS consideration-CEELOCT does not use the OS TIME macro. Therefore, CEELOCT 
  14243.   can be used under CICS. 
  14244.  
  14245.  OpenEdition MVS consideration-In multithread applications, CEELOCT affects 
  14246.   only the calling thread. 
  14247.  
  14248. Examples 
  14249.  
  14250.  C/370 Example 
  14251.  
  14252.     /*COMPILATION UNIT: EDCLOCT   */
  14253.  
  14254.     #include <string.h>
  14255.     #include <stdio.h>
  14256.     #include <leawi.h>
  14257.     #include <ceeedcct.h>
  14258.  
  14259.     int main(void) {
  14260.  
  14261.       _FEEDBACK fc;
  14262.       _INT4     lil_date;
  14263.       _FLOAT8   local_date;
  14264.       _CHAR17   gregorian_date;
  14265.  
  14266.       CEELOCT(&lil_date,&local_date,gregorian_date,&fc);
  14267.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  14268.          printf("CEELOCT failed with message number %d\n",
  14269.                 fc.tok_msgno);
  14270.          exit(2999);
  14271.       }
  14272.  
  14273.       printf("The current date is YYYYMMDDHHMISS999\n");
  14274.       printf("                    %.17s\n",gregorian_date);
  14275.     }
  14276.  
  14277.  COBOL/370 Example 
  14278.  
  14279.     CBL LIB,APOST
  14280.           *COMPILATION UNIT: IGZTLOCT
  14281.           ***************************************************
  14282.           **                                               **
  14283.           ** Function: CEELOCT - get current local time    **
  14284.           **                                               **
  14285.           ** In this example, a call is made to CEELOCT to **
  14286.           ** return the current local time as a Lilian     **
  14287.           ** (the number of days since 14 October 1582),   **
  14288.           ** Lilian timestamp (the number of seconds since **
  14289.           ** 00:00 14 October 1582), and a Gregorian    **
  14290.           ** string (in the form YYYYMMDDMISS999).  The    **
  14291.           ** Gregorian character string is then displayed. **
  14292.           **                                               **
  14293.           ***************************************************
  14294.            IDENTIFICATION DIVISION.
  14295.            PROGRAM-ID. CBLLOCT.
  14296.            DATA DIVISION.
  14297.            WORKING-STORAGE SECTION.
  14298.            01  LILIAN                  PIC S9(9) COMP.
  14299.            01  SECONDS                 COMP-2.
  14300.            01  GREGORN                 PIC X(17).
  14301.            01  FC.
  14302.                02  Condition-Token-Value.
  14303.                COPY  CEEIGZCT.
  14304.                    03  Case-1-Condition-ID.
  14305.                        04  Severity        PIC S9(4) COMP.
  14306.                        04  Msg-No          PIC S9(4) COMP.
  14307.                    03  Case-2-Condition-ID
  14308.                              REDEFINES Case-1-Condition-ID.
  14309.                        04  Class-Code      PIC S9(4) COMP.
  14310.                        04  Cause-Code      PIC S9(4) COMP.
  14311.                    03  Case-Sev-Ctl    PIC X.
  14312.                    03  Facility-ID     PIC XXX.
  14313.                02  I-S-Info        PIC S9(9) COMP.
  14314.            PROCEDURE DIVISION.
  14315.            PARA-CBLLOCT.
  14316.                CALL 'CEELOCT' USING LILIAN , SECONDS ,
  14317.                    GREGORN , FC.
  14318.           ** If CEELOCT runs successfully, display
  14319.           **     Gregorian character string
  14320.                IF CEE000 of FC  THEN
  14321.                    DISPLAY 'Local Time is ' GREGORN
  14322.                ELSE
  14323.                    DISPLAY 'CEELOCT failed with msg '
  14324.                        Msg-No of FC UPON CONSOLE;
  14325.                    STOP RUN;
  14326.                END-IF.
  14327.                GOBACK.
  14328.  
  14329.  PL/I Example 
  14330.  
  14331.     *PROCESS MACRO;
  14332.      /*COMPILATION UNIT: IBMLOCT                         */
  14333.      /****************************************************/
  14334.      /**                                                **/
  14335.      /** Function: CEELOCT - get current local time     **/
  14336.      /**                                                **/
  14337.      /** In this example, CEELOCT is called to return   **/
  14338.      /** the current local time as a Lilian date,       **/
  14339.      /** Lilian timestamp, and Gregorian character      **/
  14340.      /** string.                                        **/
  14341.      /**                                                **/
  14342.      /****************************************************/
  14343.      PLILOCT: PROC OPTIONS(MAIN);
  14344.  
  14345.         %INCLUDE  CEEIBMAW;
  14346.         %INCLUDE  CEEIBMCT;
  14347.  
  14348.         DCL LILIAN   INT4;
  14349.         DCL SECONDS  FLOAT8;
  14350.         DCL GREGORN  CHARACTER ( 17 );
  14351.         DCL 01 FC    FEEDBACK;
  14352.  
  14353.        /* Call CEELOCT to return local time in 3 formats */
  14354.         CALL CEELOCT ( LILIAN, SECONDS, GREGORN, FC );
  14355.  
  14356.         /* If CEELOCT ran successfully, print Gregorian  */
  14357.         /* result                                        */
  14358.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  14359.            PUT SKIP LIST( 'The local date and time are '
  14360.               || GREGORN || '.' );
  14361.            END;
  14362.         ELSE  DO;
  14363.            DISPLAY( 'CEELOCT failed with msg '
  14364.               || FC.MsgNo );
  14365.            STOP;
  14366.            END;
  14367.  
  14368.      END PLILOCT;
  14369.  
  14370.  
  14371. ΓòÉΓòÉΓòÉ 3.3.40. CEEMGET-Get a Message ΓòÉΓòÉΓòÉ
  14372.  
  14373. CEEMGET retrieves, formats, and stores in a passed message area a message 
  14374. corresponding to a condition token either returned from a callable service or 
  14375. passed to a user-written condition handler. The caller can later retrieve the 
  14376. message to change or to output. 
  14377.  
  14378. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14379. Γöé                                                  Γöé
  14380. Γöé >>ΓöÇΓöÇCEEMGETΓöÇΓöÇ(ΓöÇΓöÇcond_tokenΓöÇΓöÇ,ΓöÇΓöÇmessage_areaΓöÇΓöÇ,ΓöÇΓöÇmsg_ptrΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  14381. Γöé                                                  Γöé
  14382. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14383.  
  14384. cond_token (input) 
  14385.           A 12-byte condition token received as the result of an LE/370 
  14386.           callable service. See CEENCOD-Construct a Condition Token for a 
  14387.           description of this condition token. 
  14388.  
  14389. message_area (input/output) 
  14390.           A VSTRING, that is, a fixed-length 80-character string, where the 
  14391.           message is placed. 
  14392.  
  14393.           The message is left-justified and padded on the right with blanks. 
  14394.  
  14395. msg_ptr (input/output) 
  14396.           A 4-byte binary integer returned to the calling routine. 
  14397.  
  14398.           The msg_ptr should be passed a value of zero on the initial call to 
  14399.           CEEMGET. If a message is too large to be contained in the 
  14400.           message_area, msg_ptr (containing the index) is returned into the 
  14401.           message. This index is used on subsequent calls to CEEMGET to 
  14402.           retrieve the remaining portion of the message. A feedback code is 
  14403.           also returned, indicating the message has been truncated. When the 
  14404.           entire message is returned, msg_ptr is zero. 
  14405.  
  14406.           If a message contains fewer than 80 characters, the entire message is 
  14407.           returned on the first call. msg_ptr contains 0. 
  14408.  
  14409.           If a message contains exactly 80 characters, the entire message is 
  14410.           returned on the first call. msg_ptr contains 0. 
  14411.  
  14412.           If a message contains more than 80 characters and at least one blank 
  14413.           is contained in the first 80 characters, the string up to and 
  14414.           including the last blank is returned on the first call. 
  14415.  
  14416.           If the 80th character is nonblank (even if the 81st character is a 
  14417.           blank), msg_ptr contains the index of the last blank, that is 
  14418.           something less than 80 and the next call starts with the next 
  14419.           character. 
  14420.  
  14421.           If the 80th character is a blank, msg_ptr contains 80 and the next 
  14422.           call starts with the 81st character, blank or nonblank. 
  14423.  
  14424.           If a message contains more than 80 characters and at least the first 
  14425.           80 are all nonblank, the first 80 are returned and the next call does 
  14426.           not add any blanks and starts with the 81st character. msg_ptr 
  14427.           contains 80. 
  14428.  
  14429.           If the message is too long, CEEMGET splits it into segments. The 
  14430.           msg_ptr does not contain the cumulative index for the entire message 
  14431.           returned so far, but contains only the index into the segment that 
  14432.           was just returned. It is up to the user of CEEMGET to maintain the 
  14433.           cumulative count if needed. 
  14434.  
  14435. fc (output) 
  14436.           A 12-byte feedback code, optional in some languages, that indicates 
  14437.           the result of this service. 
  14438.  
  14439.           The following symbolic conditions can result from this service: 
  14440.  
  14441.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14442.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  14443.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  14444.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14445.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  14446.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14447.                     Γöé CEE036     Γöé 3        Γöé 0102      Γöé An unrecognized condition token was passed to  Γöé
  14448.                     Γöé        Γöé         Γöé         Γöé routine and could not be used.         Γöé
  14449.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14450.                     Γöé CEE0E2     Γöé 3        Γöé 0450      Γöé The message inserts for the condition token   Γöé
  14451.                     Γöé        Γöé         Γöé         Γöé with message number message-number and     Γöé
  14452.                     Γöé        Γöé         Γöé         Γöé facility ID facility-id could not be located.  Γöé
  14453.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14454.                     Γöé CEE0E6     Γöé 3        Γöé 0454      Γöé The message number message-number could not be Γöé
  14455.                     Γöé        Γöé         Γöé         Γöé found for facility ID facility-id.       Γöé
  14456.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14457.                     Γöé CEE0E7     Γöé 1        Γöé 0455      Γöé The message with message number message-number Γöé
  14458.                     Γöé        Γöé         Γöé         Γöé and facility ID facility-id was truncated.   Γöé
  14459.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14460.                     Γöé CEE0EA     Γöé 3        Γöé 0458      Γöé The message repository repository-name could  Γöé
  14461.                     Γöé        Γöé         Γöé         Γöé not be located.                 Γöé
  14462.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14463.  
  14464. Usage Note 
  14465.  
  14466.  OpenEdition MVS considerations-In multithread applications, CEEMGET affects 
  14467.   only the calling thread. However, CEEMGET uses the NATLANG value of the 
  14468.   enclave. Any subsequent calls to CEEMGET, for a given condition, use the 
  14469.   NATLANG value in effect at the time of the first call. 
  14470.  
  14471. Examples 
  14472.  
  14473.  C/370 Example 
  14474.  
  14475.     /*COMPILATION UNIT: EDCMGET   */
  14476.  
  14477.     #include <string.h>
  14478.     #include <stdio.h>
  14479.     #include <leawi.h>
  14480.     #include <ceeedcct.h>
  14481.  
  14482.  
  14483.     int main(void) {
  14484.  
  14485.       _VSTRING message;
  14486.       _INT4 dest,msgindx;
  14487.       _INT2 c_1,c_2,cond_case,sev,control;
  14488.       _CHAR3 facid;
  14489.       _INT4 isi;
  14490.       _CHAR80 msgarea;
  14491.       _FEEDBACK fc,token;
  14492.  
  14493.       /* construct a token for CEE message 2523 */
  14494.       c_1 = 1;
  14495.       c_2 = 2523;
  14496.       cond_case = 1;
  14497.       sev = 1;
  14498.       control = 1;
  14499.       memcpy(facid,"CEE",3);
  14500.       isi = 0;
  14501.  
  14502.       CEENCOD(&c_1,&c_2,&cond_case,&sev,&control,
  14503.               facid,&isi,&token,&fc);
  14504.  
  14505.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  14506.          printf("CEENCOD failed with message number %d\n",
  14507.                 fc.tok_msgno);
  14508.          exit(2999);
  14509.       }
  14510.  
  14511.       msgindx = 0;
  14512.       memset(msgarea,' ',79);/* initialize the message area */
  14513.       msgarea[80] = '\0';
  14514.  
  14515.       /* use CEEMGET until all the message has been */
  14516.       /* retrieved */
  14517.       /* msgindx will be zero when all the message has */
  14518.       /* been retrieved */
  14519.       do {
  14520.          CEEMGET(&token,msgarea,&msgindx,&fc);
  14521.  
  14522.          if (fc.tok_sev > 1 ) {
  14523.             printf("CEEMGET failed with message number %d\n",
  14524.                    fc.tok_msgno);
  14525.             exit(2999);
  14526.          }
  14527.  
  14528.          /* put out the message using CEEMOUT */
  14529.          memcpy(message.string,msgarea,80);
  14530.          message.length = 80;
  14531.          dest = 2;
  14532.          CEEMOUT(&message,&dest,&fc);
  14533.  
  14534.          if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  14535.             printf("CEEMOUT failed with message number %d\n",
  14536.                    fc.tok_msgno);
  14537.             exit(2999);
  14538.          }
  14539.       } while (msgindx != 0);
  14540.     }
  14541.  
  14542.  COBOL/370 Example 
  14543.  
  14544.     CBL LIB,APOST
  14545.           *COMPILATION UNIT: IGZTMGET
  14546.           ******************************************
  14547.           **                                      **
  14548.           ** Function: CEEMGET - get a message    **
  14549.           **                                      **
  14550.           ******************************************
  14551.            IDENTIFICATION DIVISION.
  14552.            PROGRAM-ID. CBLMGET.
  14553.            DATA DIVISION.
  14554.            WORKING-STORAGE SECTION.
  14555.            01  MSGBUF                  PIC X(80).
  14556.            01  MSGPTR                  PIC S9(9) COMP.
  14557.            01  SEV                     PIC S9(4) COMP.
  14558.            01  MSGNO                   PIC S9(4) COMP.
  14559.            01  CASE                    PIC S9(4) COMP.
  14560.            01  SEV2                    PIC S9(4) COMP.
  14561.            01  CNTRL                   PIC S9(4) COMP.
  14562.            01  FACID                   PIC X(3).
  14563.            01  ISINFO                  PIC S9(9) COMP.
  14564.            01  NEWTOK.
  14565.                02  Condition-Token-Value.
  14566.                COPY  CEEIGZCT.
  14567.                    03  Case-1-Condition-ID.
  14568.                        04  Severity        PIC S9(4) COMP.
  14569.                        04  Msg-No          PIC S9(4) COMP.
  14570.                    03  Case-2-Condition-ID
  14571.                              REDEFINES Case-1-Condition-ID.
  14572.                        04  Class-Code      PIC S9(4) COMP.
  14573.                        04  Cause-Code      PIC S9(4) COMP.
  14574.                    03  Case-Sev-Ctl    PIC X.
  14575.                    03  Facility-ID     PIC XXX.
  14576.                02  I-S-Info        PIC S9(9) COMP.
  14577.            01  FC.
  14578.                02  Condition-Token-Value.
  14579.                COPY  CEEIGZCT.
  14580.                    03  Case-1-Condition-ID.
  14581.                        04  Severity        PIC S9(4) COMP.
  14582.                        04  Msg-No          PIC S9(4) COMP.
  14583.                    03  Case-2-Condition-ID
  14584.                              REDEFINES Case-1-Condition-ID.
  14585.                        04  Class-Code      PIC S9(4) COMP.
  14586.                        04  Cause-Code      PIC S9(4) COMP.
  14587.                    03  Case-Sev-Ctl    PIC X.
  14588.                    03  Facility-ID     PIC XXX.
  14589.                02  I-S-Info        PIC S9(9) COMP.
  14590.            PROCEDURE DIVISION.
  14591.            PARA-CBLMGET.
  14592.           ** Give contok value of
  14593.           ** sev = 0, msgno = 1 facid = CEE
  14594.                MOVE 0 TO SEV.
  14595.                MOVE 1 TO MSGNO.
  14596.                MOVE 1 TO CASE.
  14597.                MOVE 0 TO SEV2.
  14598.                MOVE 1 TO CNTRL.
  14599.                MOVE 'CEE' TO FACID.
  14600.                MOVE 0 TO ISINFO.
  14601.  
  14602.           ** Call CEENCOD with the values assigned above to
  14603.           **     build a condition token "NEWTOK"
  14604.                CALL 'CEENCOD' USING SEV, MSGNO, CASE,
  14605.                    SEV2, CNTRL, FACID, ISINFO, NEWTOK, FC.
  14606.                IF NOT CEE000 of FC  THEN
  14607.                    DISPLAY 'CEENCOD failed with msg '
  14608.                        Msg-No of FC UPON CONSOLE;
  14609.                    STOP RUN;
  14610.                END-IF.
  14611.  
  14612.           ** Always pass 0 in MSGPTR on the initial call
  14613.           ** to CEEMGET.  If message is too long to be
  14614.           ** returned in a single call, MSGPTR will be
  14615.           ** returned containing an index to the message
  14616.           ** that can be used on subsequent calls to CEEMGET.
  14617.                MOVE 0 TO MSGPTR.
  14618.           ** Call CEEMGET to get message associated with
  14619.           ** the condition token
  14620.                CALL 'CEEMGET' USING NEWTOK , MSGBUF ,
  14621.                MSGPTR , FC.
  14622.                IF NOT CEE000 of FC  THEN
  14623.                    DISPLAY 'CEEMGET failed with msg '
  14624.                        Msg-No of FC UPON CONSOLE;
  14625.                    STOP RUN;
  14626.                ELSE
  14627.                    DISPLAY 'The message is: ' MSGBUF;
  14628.                END-IF.
  14629.  
  14630.                GOBACK.
  14631.  
  14632.  PL/I Example 
  14633.  
  14634.     *PROCESS MACRO;
  14635.      /*COMPILATION UNIT: IBMMGET                        **/
  14636.      /****************************************************/
  14637.      /**                                               ***/
  14638.      /**Function       : CEEMGET - Get a Message        **/
  14639.      /**                                               ***/
  14640.      /****************************************************/
  14641.      PLIMGET: PROC OPTIONS(MAIN);
  14642.  
  14643.         %INCLUDE  CEEIBMAW;
  14644.         %INCLUDE  CEEIBMCT;
  14645.  
  14646.         DCL 01 CONTOK   FEEDBACK;
  14647.         DCL 01 FC       FEEDBACK;
  14648.         DCL MSGBUF      CHAR80;
  14649.         DCL MSGPOINTER  INT4;
  14650.         DCL ADDR        BUILTIN;
  14651.  
  14652.         /* Give CONTOK value of condition CEE001         */
  14653.         ADDR( CONTOK ) -> CEEIBMCT = CEE001;
  14654.         MSGPTR = 0;
  14655.  
  14656.         /* Call CEEMGET to retrieve msg corresponding    */
  14657.         /*    to condition token                         */
  14658.         CALL CEEMGET ( CONTOK, MSGBUF, MSGPTR, FC );
  14659.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  14660.            PUT SKIP LIST( 'Message text for message number'
  14661.               || CONTOK.MsgNo || ' is "' || MSGBUF || '"');
  14662.            END;
  14663.         ELSE  DO;
  14664.            DISPLAY( 'CEEMGET failed with msg '
  14665.               || FC.MsgNo );
  14666.            STOP;
  14667.            END;
  14668.  
  14669.      END PLIMGET;
  14670.  
  14671.  
  14672. ΓòÉΓòÉΓòÉ 3.3.41. CEEMOUT-Dispatch a Message ΓòÉΓòÉΓòÉ
  14673.  
  14674. CEEMOUT dispatches a user-defined message string to the message file. 
  14675.  
  14676. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14677. Γöé                                                  Γöé
  14678. Γöé >>ΓöÇΓöÇCEEMOUTΓöÇΓöÇ(ΓöÇΓöÇmessage_stringΓöÇΓöÇ,ΓöÇΓöÇdestination_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  14679. Γöé                                                  Γöé
  14680. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14681.  
  14682. message_string (input) 
  14683.           A halfword prefixed string containing the message. DBCS characters 
  14684.           must be enclosed within shift-out shift-in characters (that is, bytes 
  14685.           X'0F' and X'0E', respectively). 
  14686.  
  14687.           Insert data cannot be placed in the message with CEEMOUT. 
  14688.  
  14689. destination_code (input) 
  14690.           A 4-byte binary integer. The only accepted value for destination_code 
  14691.           is 2. Under systems other than CICS, LE/370 writes the message to the 
  14692.           ddname of the file specified in the MSGFILE run-time option. Under 
  14693.           CICS, the message is written to a transient data queue named CESE. 
  14694.           See MSGFILE for more information. 
  14695.  
  14696. fc (output) 
  14697.           A 12-byte feedback code, optional in some languages, that indicates 
  14698.           the result of this service. 
  14699.  
  14700.           The following symbolic conditions can result from this service: 
  14701.  
  14702.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14703.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  14704.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  14705.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14706.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  14707.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14708.                     Γöé CEE0E3     Γöé 3        Γöé 0451      Γöé An unsupported destination code destination-  Γöé
  14709.                     Γöé        Γöé         Γöé         Γöé code was passed to routine routine-name.    Γöé
  14710.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14711.                     Γöé CEE0E9     Γöé 3        Γöé 0457      Γöé The MSGFILE destination ddname could not be   Γöé
  14712.                     Γöé        Γöé         Γöé         Γöé located.                    Γöé
  14713.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14714.  
  14715. Usage Note 
  14716.  
  14717.  OpenEdition MVS considerations-In multithread applications, CEEMOUT affects 
  14718.   only the calling thread. When multiple threads write to the message file, the 
  14719.   output is interwoven by line. To group lines of output, serialize MSGFILE 
  14720.   access by using a mutex, for example. 
  14721.  
  14722. Examples 
  14723.  
  14724.  C/370 Example 
  14725.  
  14726.     /*COMPILATION UNIT: EDCMOUT   */
  14727.  
  14728.     #include <string.h>
  14729.     #include <stdio.h>
  14730.     #include <leawi.h>
  14731.     #include <ceeedcct.h>
  14732.  
  14733.     int main(void) {
  14734.  
  14735.       _VSTRING message;
  14736.       _INT4 dest;
  14737.       _FEEDBACK fc;
  14738.  
  14739.       strcpy(message.string,"This is a test message");
  14740.       message.length = strlen(message.string);
  14741.       dest = 2;
  14742.  
  14743.       CEEMOUT(&message,&dest,&fc);
  14744.  
  14745.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  14746.          printf("CEEMOUT failed with message number %d\n",
  14747.                 fc.tok_msgno);
  14748.          exit(2999);
  14749.       }
  14750.       /* .
  14751.          .
  14752.          . */
  14753.     }
  14754.  
  14755.  COBOL/370 Example 
  14756.  
  14757.     CBL LIB,APOST
  14758.           *COMPILATION UNIT: IGZTMOUT
  14759.           ************************************************
  14760.           **                                            **
  14761.           ** Function: CEEMOUT - dispatch a message     **
  14762.           **                                            **
  14763.           ** In this example, a call is made to CEEMOUT **
  14764.           ** to dispatch a user-defined message string  **
  14765.           ** to the ddname specified defaulted in the   **
  14766.           ** MSGFILE run-time option.                   **
  14767.           **                                            **
  14768.           ************************************************
  14769.            IDENTIFICATION DIVISION.
  14770.            PROGRAM-ID. CBLMOUT.
  14771.            DATA DIVISION.
  14772.            WORKING-STORAGE SECTION.
  14773.            01  MSGSTR.
  14774.                02  Vstring-length      PIC S9(4) COMP.
  14775.                02  Vstring-text.
  14776.                    03  Vstring-char        PIC X,
  14777.                                OCCURS 0 TO 256 TIMES,
  14778.                                DEPENDING ON Vstring-length
  14779.                                   of MSGSTR.
  14780.            01  DESTIN                  PIC S9(9) COMP.
  14781.            01  FC.
  14782.                02  Condition-Token-Value.
  14783.                COPY  CEEIGZCT.
  14784.                    03  Case-1-Condition-ID.
  14785.                        04  Severity        PIC S9(4) COMP.
  14786.                        04  Msg-No          PIC S9(4) COMP.
  14787.                    03  Case-2-Condition-ID
  14788.                              REDEFINES Case-1-Condition-ID.
  14789.                        04  Class-Code      PIC S9(4) COMP.
  14790.                        04  Cause-Code      PIC S9(4) COMP.
  14791.                    03  Case-Sev-Ctl    PIC X.
  14792.                    03  Facility-ID     PIC XXX.
  14793.                02  I-S-Info        PIC S9(9) COMP.
  14794.            PROCEDURE DIVISION.
  14795.            PARA-CBLMOUT.
  14796.           ** Create message string and specify length
  14797.                MOVE 25 TO Vstring-length of MSGSTR.
  14798.                MOVE 'CEEMOUT ran successfully'
  14799.                  TO Vstring-text of MSGSTR.
  14800.           ** Specify 2 to send the message to the ddname
  14801.           **     specified or defaulted in the MSGFILE
  14802.           **     run-time option.
  14803.                MOVE 2 TO DESTIN.
  14804.                CALL 'CEEMOUT' USING MSGSTR , DESTIN , FC.
  14805.                IF  NOT CEE000 of FC  THEN
  14806.                    DISPLAY 'CEEMOUT failed with msg '
  14807.                        Msg-No of FC UPON CONSOLE;
  14808.                    STOP RUN;
  14809.                END-IF.
  14810.                GOBACK.
  14811.  
  14812.  PL/I Example 
  14813.  
  14814.     *PROCESS MACRO;
  14815.      /*COMPILATION UNIT: IBMMOUT                         */
  14816.      /****************************************************/
  14817.      /**                                                **/
  14818.      /** Function: CEEMOUT - Dispatch a message         **/
  14819.      /**                                                **/
  14820.      /** In this example, CEEMOUT is called to dispatch **/
  14821.      /** a user-defined message string to the ddname    **/
  14822.      /** specified or defaulted in the MSGFILE run-time **/
  14823.      /** option.                                        **/
  14824.      /**                                                **/
  14825.      /****************************************************/
  14826.      PLIMOUT: PROC OPTIONS(MAIN);
  14827.  
  14828.         %INCLUDE  CEEIBMAW;
  14829.         %INCLUDE  CEEIBMCT;
  14830.  
  14831.         DCL MSGSTR VSTRING;
  14832.         DCL DESTIN INT4;
  14833.         DCL 01 FC FEEDBACK;
  14834.  
  14835.         MSGSTR = 'CEEMOUT ran successfully.';
  14836.                                    /* Set message string */
  14837.         DESTIN = 2;  /* Send to MSGFILE ddname           */
  14838.  
  14839.         /* Dispatch message to destination by a  */
  14840.         /*    call to CEEMOUT                    */
  14841.         CALL CEEMOUT ( MSGSTR, DESTIN, FC );
  14842.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  14843.            PUT SKIP LIST( 'Message "' || MSGSTR
  14844.               || '" sent to destination ' || DESTIN );
  14845.            END;
  14846.         ELSE  DO;
  14847.            DISPLAY( 'CEEMOUT failed with msg '
  14848.               || FC.MsgNo );
  14849.            STOP;
  14850.            END;
  14851.  
  14852.      END PLIMOUT;
  14853.  
  14854.  
  14855. ΓòÉΓòÉΓòÉ 3.3.42. CEEMRCR-Move Resume Cursor ΓòÉΓòÉΓòÉ
  14856.  
  14857. CEEMRCR moves the resume cursor to a position relative to the current position 
  14858. of the handle cursor. The actions supported are: 
  14859.  
  14860.  Moving the resume cursor to the call return point of the routine registering 
  14861.   the executing condition handler. 
  14862.  Moving the resume cursor to the caller of the routine registering the 
  14863.   executing condition handler. 
  14864.  
  14865. Initially, the resume cursor is placed after the machine instruction that 
  14866. causes the condition. Whenever CEEMRCR moves the resume cursor and passes stack 
  14867. frames, associated exit routines are invoked. Note that "exit routine" refers 
  14868. to user condition handlers as well as language-specific condition handlers. 
  14869. This moving also unregisters any associated user condition handlers. The 
  14870. movement direction is always toward earlier stack frames, never toward more 
  14871. recent stack frames. The action occurs only after the condition handler returns 
  14872. to the LE/370 condition manager. 
  14873.  
  14874. Multiple calls to CEEMRCR yield the net results of the calls; that is, if two 
  14875. calls move the resume cursor to different places for the same stack frame, the 
  14876. most restrictive call (that closest to the earliest stack frame) is used for 
  14877. that stack frame. 
  14878.  
  14879. Moving the resume cursor to a particular stack frame: 
  14880.  
  14881.  Cancels all stack frames from the previous resume point up to but not 
  14882.   including the new resume point 
  14883.  
  14884.  Unregisters any user condition handlers registered for the canceled stack 
  14885.   frames 
  14886.  
  14887. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14888. Γöé                                                  Γöé
  14889. Γöé >>ΓöÇΓöÇCEEMRCRΓöÇΓöÇ(ΓöÇΓöÇtype_of_moveΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  14890. Γöé                                                  Γöé
  14891. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14892.  
  14893. type_of_move (input) 
  14894.           A fullword binary signed integer indicating the target of the resume 
  14895.           cursor movement. The possible values for type_of_move are: 
  14896.  
  14897.    0         Move the resume cursor to the call return point of the stack frame 
  14898.              associated with the handle cursor. 
  14899.  
  14900.    1         Move the resume cursor to the call return point of a stack frame 
  14901.              prior to the stack frame associated with the handle cursor. The 
  14902.              handle cursor is moved to the first condition handler of the stack 
  14903.              frame the new resume cursor position now points to. 
  14904.  
  14905.              Do not use a type_of_move value of 1 if the caller of the stack 
  14906.              frame associated with the handle cursor is a nested COBOL program. 
  14907.  
  14908.           Modifying the resume cursor to point to stack frame 0 is not allowed. 
  14909.           You cannot move the resume cursor beyond the earliest stack frame. 
  14910.  
  14911. fc (output) 
  14912.           A 12-byte feedback code, optional in some languages, that indicates 
  14913.           the result of this service. 
  14914.  
  14915.           The following symbolic conditions can result from this service: 
  14916.  
  14917.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14918.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  14919.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  14920.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14921.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  14922.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14923.                     Γöé CEE07U     Γöé 1        Γöé 0254      Γöé The first argument passed to CEEMRCR was not 0 Γöé
  14924.                     Γöé        Γöé         Γöé         Γöé or 1.                      Γöé
  14925.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14926.                     Γöé CEE083     Γöé 3        Γöé 0259      Γöé A move to stack frame zero using CEEMRCR was  Γöé
  14927.                     Γöé        Γöé         Γöé         Γöé attempted from a MAIN routine.         Γöé
  14928.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14929.                     Γöé CEE084     Γöé 3        Γöé 0260      Γöé No condition was active when a call to a con-  Γöé
  14930.                     Γöé        Γöé         Γöé         Γöé dition management routine was made.  The    Γöé
  14931.                     Γöé        Γöé         Γöé         Γöé requested function was not performed.      Γöé
  14932.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  14933.                     Γöé CEE08L     Γöé 1        Γöé 0277      Γöé CEEMRCR was called to perform an unnecessary  Γöé
  14934.                     Γöé        Γöé         Γöé         Γöé move.                      Γöé
  14935.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14936.  
  14937. Usage Note 
  14938.  
  14939.  OpenEdition MVS considerations-In multithread applications, CEEMRCR affects 
  14940.   only the calling thread. You can use CEEMRCR only within the thread's call 
  14941.   chain. 
  14942.  
  14943. Illustration of CEEMRCR Usage 
  14944.  
  14945. The following three figures illustrate how you can move the resume cursor by 
  14946. using the CEEMRCR service. 
  14947.  
  14948. In Moving Resume Cursor Using CEEMRCR, routine A calls routine B, which in turn 
  14949. calls C, which calls D. User condition handlers are registered in routines B 
  14950. and C. 
  14951.  
  14952. When a condition is signaled in routine D, the LE/370 condition manager passes 
  14953. control to the user condition handler established for routine C. The handle 
  14954. cursor now points to the stack frame for routine C. Routine C percolates the 
  14955. condition. 
  14956.  
  14957. The handle cursor now points to the stack frame for routine B. The next user 
  14958. condition handler to gain control is that one established for Routine B; it 
  14959. recognizes the condition and issues a resume by calling CEEMRCR. 
  14960.  
  14961. A 0 type_of_move, meaning move the resume cursor to the stack frame associated 
  14962. with the handle cursor, causes control to resume at the call return point in 
  14963. Routine B, the instruction immediately following the call to routine C. A 1 
  14964. type_of_move, meaning move the resume cursor to the call return point of the 
  14965. stack frame immediately preceding the one to which the handle cursor points, 
  14966. moves the resume cursor to the instruction immediately following a call in 
  14967. routine A to routine B. 
  14968.  
  14969.  
  14970. Moving Resume Cursor Using CEEMRCR
  14971.  
  14972.  
  14973.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14974.    ΓöéA          Γöé
  14975.    Γöé  .         Γöé
  14976.    Γöé  call b       Γöé
  14977.    Γöé  . ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝type=1ΓöÇΓöÇΓöÇΓöÉ
  14978.    Γöé  .         Γöé     Γöé
  14979.    Γöé  .         Γöé     Γöé
  14980.    ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ     Γöé
  14981.         Γöé           Γöé
  14982.                    Γöé
  14983.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ     Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14984.    ΓöéB          Γöé     Γöé ΓöéHDLR1      Γöé
  14985.    Γöé  .         Γöé     Γöé Γöé        Γöé
  14986.    Γöé  register hdlr1   Γöé     Γö£ΓöÇΓö╝ΓöÇΓöÇcall CEEMRCR Γöé
  14987.    Γöé  .         Γöé     Γöé Γöé        Γöé
  14988.    Γöé  call c       Γöé     Γöé Γöé        Γöé
  14989.    Γöé  . ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝type=0ΓöÇΓöÇΓöÇΓöÿ ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14990.    ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ          
  14991.         Γöé                Γöé
  14992.                         Γöé
  14993.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ      ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  14994.    ΓöéC          Γöé      ΓöéHDLR2      Γöé
  14995.    Γöé  .         Γöé      Γöé  .       Γöé
  14996.    Γöé  register hdlr2   Γöé      Γöé  percolate   Γöé
  14997.    Γöé  .         Γöé      Γöé  .       Γöé
  14998.    Γöé  call d       Γöé      ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  14999.    Γöé  .         Γöé          
  15000.    ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ          Γöé
  15001.         Γöé                Γöé
  15002.                         Γöé
  15003.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ          Γöé
  15004.    ΓöéD          Γöé          Γöé
  15005.    Γöé  .         Γöé          Γöé
  15006.    Γöé  signal condition  ΓöéΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15007.    Γöé  .         Γöé
  15008.    Γöé  .         Γöé
  15009.    Γöé  .         Γöé
  15010.    ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15011.  
  15012. The same scenario is illustrated in Moving Resume Cursor Using CEEMRCR, except 
  15013. that HDLR2 issues a resume for the signaled condition rather than percolating 
  15014. it. HDLR1 never gains control. Because the handle cursor now points to the 
  15015. stack frame for routine C, a 0 type_of_move causes control to resume at the 
  15016. call return point in Routine C, the instruction immediately following the call 
  15017. to routine D. A 1 type_of_move moves the resume cursor to the instruction 
  15018. immediately following a call in routine B to routine C. 
  15019.  
  15020.  
  15021. Moving Resume Cursor Using CEEMRCR
  15022.  
  15023.  
  15024.  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15025.  ΓöéA          Γöé
  15026.  Γöé  .         Γöé
  15027.  Γöé  call b       Γöé
  15028.  Γöé  .         Γöé
  15029.  Γöé  .         Γöé
  15030.  Γöé  .         Γöé
  15031.  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15032.       Γöé
  15033.       Γöé
  15034.  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ        ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15035.  ΓöéB          Γöé        ΓöéHDLR1      Γöé
  15036.  Γöé  .         Γöé        Γöé  .       Γöé
  15037.  Γöé  register hdlr1   Γöé        Γöé  .       Γöé
  15038.  Γöé  .         Γöé        Γöé  .       Γöé
  15039.  Γöé  call c       Γöé        Γöé  .       Γöé
  15040.  Γöé  .ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇtype=1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15041.  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ       Γöé
  15042.       Γöé             Γöé
  15043.       Γöé             Γöé
  15044.  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ       Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15045.  ΓöéC          Γöé       Γöé ΓöéHDLR2      Γöé
  15046.  Γöé  .         Γöé       Γöé Γöé  .       Γöé
  15047.  Γöé  register hdlr2   Γöé       Γö£ΓöÇΓö╝ΓöÇ call CEEMRCR Γöé
  15048.  Γöé  .         Γöé       Γöé Γöé  .       Γöé
  15049.  Γöé  call d       Γöé       Γöé ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15050.  Γöé  .ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇtype=0ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ     
  15051.  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ            Γöé
  15052.       Γöé                  Γöé
  15053.       Γöé                  Γöé
  15054.  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ            Γöé
  15055.  ΓöéD          Γöé            Γöé
  15056.  Γöé  .         Γöé            Γöé
  15057.  Γöé  signal condition  ΓöéΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15058.  Γöé  .         Γöé
  15059.  Γöé  .         Γöé
  15060.  Γöé  .         Γöé
  15061.  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15062.  
  15063. In Moving Resume Cursor Using CEEMRCR, the user condition handlers are 
  15064. established for routines C and D. When a condition is raised in routine D, only 
  15065. a 1 type_of_move is permitted. A 0 type_of_move results in CEE error message 
  15066. 0277. 
  15067.  
  15068.  
  15069. Moving Resume Cursor Using CEEMRCR
  15070.  
  15071.  
  15072.  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15073.  ΓöéA          Γöé
  15074.  Γöé  .         Γöé
  15075.  Γöé  call b       Γöé
  15076.  Γöé  .         Γöé
  15077.  Γöé  .         Γöé
  15078.  Γöé  .         Γöé
  15079.  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15080.       Γöé
  15081.       
  15082.  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15083.  ΓöéB          Γöé
  15084.  Γöé  .         Γöé
  15085.  Γöé  .         Γöé
  15086.  Γöé  .         Γöé
  15087.  Γöé  call c       Γöé
  15088.  Γöé  .         Γöé
  15089.  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15090.       Γöé
  15091.       
  15092.  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15093.  ΓöéC          Γöé        ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15094.  Γöé  .         Γöé        ΓöéHDLR1      Γöé
  15095.  Γöé  register hdlr1   Γöé        Γöé  .       Γöé
  15096.  Γöé  .         Γöé        Γöé  .       Γöé
  15097.  Γöé  call d       Γöé        Γöé  .       Γöé
  15098.  Γöé  .ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇtype=1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé  .       Γöé
  15099.  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ       Γöé  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15100.       Γöé            Γöé
  15101.                   Γöé
  15102.  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ       Γöé
  15103.  ΓöéD          Γöé       Γöé  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15104.  Γöé  .         Γöé       Γöé  ΓöéHDLR2      Γöé
  15105.  Γöé  register hdlr2   Γöé       Γöé  Γöé  .       Γöé
  15106.  Γöé  .         Γöé       ΓööΓöÇΓöÇΓö╝ΓöÇ call CEEMRCR Γöé
  15107.  Γöé  signal condition  Γö£ΓöÇΓöÇΓöÇΓöÉ      Γöé  .       Γöé
  15108.  Γöé  .         Γöé  Γöé      ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15109.  ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  Γöé          
  15110.              ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15111.  
  15112. Examples 
  15113.  
  15114.  C/370 Example 
  15115.  
  15116.     /*COMPILATION UNIT: EDCMRCR   */
  15117.  
  15118.     #include <stdio.h>
  15119.     #include <string.h>
  15120.     #include <leawi.h>
  15121.     #include <ceeedcct.h>
  15122.  
  15123.     void handler(_FEEDBACK *,_INT4 *,_INT4 *,_FEEDBACK *);
  15124.  
  15125.     int main(void) {
  15126.     /*  .
  15127.         .
  15128.         . */
  15129.       b();
  15130.       /* the CEEMRCR call in the handler will place the */
  15131.       /* resume cursor at this point.  */
  15132.     /*  .
  15133.         .
  15134.         . */
  15135.     }
  15136.  
  15137.     b(void) {
  15138.  
  15139.       _FEEDBACK fc,condtok;
  15140.       _ENTRY routine;
  15141.       _INT4 token,qdata;
  15142.       _INT2 c_1,c_2,cond_case,sev,control;
  15143.       _CHAR3 facid;
  15144.       _INT4 isi;
  15145.  
  15146.       /* register the condition handler */
  15147.       token = 99;
  15148.       routine.address = (_POINTER)&handler;
  15149.       routine.nesting = NULL;
  15150.  
  15151.       CEEHDLR(&routine,&token,&fc);
  15152.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  15153.         printf("CEEHDLR failed with message number %d\n",
  15154.                 fc.tok_msgno);
  15155.         exit (2999);
  15156.       }
  15157.     /*  .
  15158.         .
  15159.         . */
  15160.       /* set up the condition using CEENCOD */
  15161.       c_1 = 3;
  15162.       c_2 = 2523;
  15163.       cond_case = 1;
  15164.       sev = 3;
  15165.       control = 0;
  15166.       memcpy(facid,"CEE",3);
  15167.       isi = 0;
  15168.  
  15169.       CEENCOD(&c_1,&c_2,&cond_case,&sev,&control,
  15170.               facid,&isi,&condtok,&fc);
  15171.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  15172.          printf("CEENCOD failed with message number %d\n",
  15173.                 fc.tok_msgno);
  15174.          exit(2999);
  15175.       }
  15176.  
  15177.       /* signal the condition */
  15178.       CEESGL(&condtok,&qdata,&fc);
  15179.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  15180.          printf("CEESGL failed with message number %d\n",
  15181.                 fc.tok_msgno);
  15182.          exit(2999);
  15183.       }
  15184.     /*  .
  15185.         .
  15186.         . */
  15187.     }
  15188.  
  15189.     void handler(_FEEDBACK *fc, _INT4 *token, _INT4 *result,
  15190.                  _FEEDBACK *newfc) {
  15191.  
  15192.        _FEEDBACK cursorfc, orig_fc;
  15193.        _INT4 type;
  15194.     /*  .
  15195.         .
  15196.         . */
  15197.        /* move the resume cursor to the caller of the  */
  15198.        /* routine that registered the condition handler */
  15199.        type = 1;
  15200.        CEEMRCR(&type,&cursorfc);
  15201.        if ( _FBCHECK ( cursorfc , CEE000 ) != 0 ) {
  15202.           printf("CEEMRCR failed with message number %d\n",
  15203.                   cursorfc.tok_msgno);
  15204.           exit (2999);
  15205.        }
  15206.  
  15207.        printf("condition handled\n");
  15208.        *result = 10;
  15209.        return;
  15210.     }
  15211.  
  15212.  COBOL/370 Example 
  15213.  
  15214.     CBL LIB,APOST
  15215.           *COMPILATION UNIT: IGZTMRCR
  15216.           ****************************************************
  15217.           **                                                **
  15218.           ** CBLMAIN - Main for sample program for CEEMRCR. **
  15219.           **                                                **
  15220.           ****************************************************
  15221.            IDENTIFICATION DIVISION.
  15222.            PROGRAM-ID. CBLMAIN.
  15223.            PROCEDURE DIVISION.
  15224.                CALL 'DRVMRCR'
  15225.                DISPLAY 'Resumed execution in the CALLER '
  15226.                    'of the routine which registered the '
  15227.                    'handler'
  15228.                GOBACK.
  15229.            END PROGRAM CBLMAIN.
  15230.           *COMPILATION UNIT: DRVMRCR
  15231.           ************************************************
  15232.           **                                            **
  15233.           ** DRVMRCR - Drive sample program CEEMRCR.    **
  15234.           **                                            **
  15235.           ************************************************
  15236.            IDENTIFICATION DIVISION.
  15237.            PROGRAM-ID. DRVMRCR.
  15238.            DATA DIVISION.
  15239.            WORKING-STORAGE SECTION.
  15240.            01  ROUTINE                 PROCEDURE-POINTER.
  15241.            01  TOKEN                   PIC S9(9) COMP.
  15242.            01  SEV                     PIC S9(4) COMP.
  15243.            01  MSGNO                   PIC S9(4) COMP.
  15244.            01  CASE                    PIC S9(4) COMP.
  15245.            01  SEV2                    PIC S9(4) COMP.
  15246.            01  CNTRL                   PIC S9(4) COMP.
  15247.            01  FACID                   PIC X(3).
  15248.            01  ISINFO                  PIC S9(9) COMP.
  15249.            01  FC.
  15250.                02  Condition-Token-Value.
  15251.                COPY  CEEIGZCT.
  15252.                    03  Case-1-Condition-ID.
  15253.                        04  Severity        PIC S9(4) COMP.
  15254.                        04  Msg-No          PIC S9(4) COMP.
  15255.                    03  Case-2-Condition-ID
  15256.                              REDEFINES Case-1-Condition-ID.
  15257.                        04  Class-Code      PIC S9(4) COMP.
  15258.                        04  Cause-Code      PIC S9(4) COMP.
  15259.                    03  Case-Sev-Ctl    PIC X.
  15260.                    03  Facility-ID     PIC XXX.
  15261.                02  I-S-Info        PIC S9(9) COMP.
  15262.            01  QDATA                   PIC S9(9) COMP.
  15263.            01  CONDTOK.
  15264.                02  Condition-Token-Value.
  15265.                COPY  CEEIGZCT.
  15266.                    03  Case-1-Condition-ID.
  15267.                        04  Severity        PIC S9(4) COMP.
  15268.                        04  Msg-No          PIC S9(4) COMP.
  15269.                    03  Case-2-Condition-ID
  15270.                              REDEFINES Case-1-Condition-ID.
  15271.                        04  Class-Code      PIC S9(4) COMP.
  15272.                        04  Cause-Code      PIC S9(4) COMP.
  15273.                    03  Case-Sev-Ctl    PIC X.
  15274.                    03  Facility-ID     PIC XXX.
  15275.                02  I-S-Info        PIC S9(9) COMP.
  15276.            PROCEDURE DIVISION.
  15277.           ** Register handler
  15278.                SET ROUTINE TO ENTRY 'CBLMRCR'.
  15279.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  15280.                IF  NOT CEE000 of FC  THEN
  15281.                    DISPLAY 'CEEHDLR failed with msg '
  15282.                        Msg-No of FC UPON CONSOLE;
  15283.                    STOP RUN;
  15284.                END-IF.
  15285.  
  15286.           ** Signal a condition
  15287.                MOVE 1 TO QDATA.
  15288.                SET CEE001 of CONDTOK to TRUE.
  15289.                MOVE ZERO to I-S-Info of CONDTOK.
  15290.                CALL 'CEESGL' USING CONDTOK , QDATA , FC.
  15291.                IF CEE000 of FC  THEN
  15292.                    DISPLAY '**** Resumed execution in the '
  15293.                      'routine which registered the handler'
  15294.                ELSE
  15295.                    DISPLAY 'CEESGL failed with msg '
  15296.                        Msg-No of FC UPON CONSOLE;
  15297.                END-IF.
  15298.           ** UNregister handler
  15299.                CALL 'CEEHDLU' USING ROUTINE , TOKEN , FC.
  15300.                IF NOT CEE000 of FC  THEN
  15301.                    DISPLAY 'CEEHDLU failed with msg '
  15302.                        Msg-No of FC UPON CONSOLE;
  15303.                END-IF.
  15304.                STOP RUN.
  15305.            END PROGRAM DRVMRCR.
  15306.  
  15307.           *COMPILATION UNIT: CBLMRCR
  15308.           ***************************************************
  15309.           **                                               **
  15310.           ** Function: CEEMRCR - Move resume cursor        **
  15311.           **                     relative to handle cursor **
  15312.           **                                               **
  15313.           ***************************************************
  15314.            IDENTIFICATION DIVISION.
  15315.            PROGRAM-ID. CBLMRCR.
  15316.            DATA DIVISION.
  15317.            WORKING-STORAGE SECTION.
  15318.            01  MOVETYP                 PIC S9(9) COMP.
  15319.            01  DEST                    PIC S9(9) COMP VALUE 2.
  15320.            01  FC.
  15321.                02  Condition-Token-Value.
  15322.                COPY  CEEIGZCT.
  15323.                    03  Case-1-Condition-ID.
  15324.                        04  Severity        PIC S9(4) COMP.
  15325.                        04  Msg-No          PIC S9(4) COMP.
  15326.                    03  Case-2-Condition-ID
  15327.                              REDEFINES Case-1-Condition-ID.
  15328.                        04  Class-Code      PIC S9(4) COMP.
  15329.                        04  Cause-Code      PIC S9(4) COMP.
  15330.                    03  Case-Sev-Ctl    PIC X.
  15331.                    03  Facility-ID     PIC XXX.
  15332.                02  I-S-Info        PIC S9(9) COMP.
  15333.            01  FC2.
  15334.                02  Condition-Token-Value.
  15335.                COPY  CEEIGZCT.
  15336.                    03  Case-1-Condition-ID.
  15337.                        04  Severity        PIC S9(4) COMP.
  15338.                        04  Msg-No          PIC S9(4) COMP.
  15339.                    03  Case-2-Condition-ID
  15340.                              REDEFINES Case-1-Condition-ID.
  15341.                        04  Class-Code      PIC S9(4) COMP.
  15342.                        04  Cause-Code      PIC S9(4) COMP.
  15343.                    03  Case-Sev-Ctl    PIC X.
  15344.                    03  Facility-ID     PIC XXX.
  15345.                02  I-S-Info        PIC S9(9) COMP.
  15346.            LINKAGE SECTION.
  15347.            01  CURRENT-CONDITION.
  15348.                02  Condition-Token-Value.
  15349.                COPY  CEEIGZCT.
  15350.                    03  Case-1-Condition-ID.
  15351.                        04  Severity        PIC S9(4) COMP.
  15352.                        04  Msg-No          PIC S9(4) COMP.
  15353.                    03  Case-2-Condition-ID
  15354.                              REDEFINES Case-1-Condition-ID.
  15355.                        04  Class-Code      PIC S9(4) COMP.
  15356.                        04  Cause-Code      PIC S9(4) COMP.
  15357.                    03  Case-Sev-Ctl    PIC X.
  15358.                    03  Facility-ID     PIC XXX.
  15359.                02  I-S-Info        PIC S9(9) COMP.
  15360.            01  TOKEN                   PIC X(4).
  15361.            01  RESULT-CODE             PIC S9(9) BINARY.
  15362.                88  RESUME              VALUE +10.
  15363.                88  PERCOLATE           VALUE +20.
  15364.                88  PROMOTE             VALUE +30.
  15365.            01  NEW-CONDITION.
  15366.                02  Condition-Token-Value.
  15367.                COPY  CEEIGZCT.
  15368.                    03  Case-1-Condition-ID.
  15369.                        04  Severity        PIC S9(4) COMP.
  15370.                        04  Msg-No          PIC S9(4) COMP.
  15371.                    03  Case-2-Condition-ID
  15372.                              REDEFINES Case-1-Condition-ID.
  15373.                        04  Class-Code      PIC S9(4) COMP.
  15374.                        04  Cause-Code      PIC S9(4) COMP.
  15375.                    03  Case-Sev-Ctl    PIC X.
  15376.                    03  Facility-ID     PIC XXX.
  15377.                02  I-S-Info        PIC S9(9) COMP.
  15378.            PROCEDURE DIVISION
  15379.                USING CURRENT-CONDITION, TOKEN, RESULT-CODE,
  15380.                    NEW-CONDITION.
  15381.  
  15382.           ** Move the resume cursor to the caller of the
  15383.           **     routine that registerd the condition
  15384.           **     handler
  15385.                MOVE 1 TO MOVETYP.
  15386.                CALL 'CEEMRCR' USING MOVETYP , FC.
  15387.                IF  NOT CEE000 of FC  THEN
  15388.                    DISPLAY 'CEEMRCR failed with msg '
  15389.                        Msg-No of FC UPON CONSOLE;
  15390.                    CALL 'CEEMSG' USING FC, DEST, FC2;
  15391.                    IF  NOT CEE000 of FC2  THEN
  15392.                      DISPLAY 'CEEMSG failed with msg '
  15393.                          Msg-No of FC2 UPON CONSOLE;
  15394.                    MOVE FC TO NEW-CONDITION;
  15395.                    SET PROMOTE TO TRUE;
  15396.                    GOBACK;
  15397.                END-IF.
  15398.  
  15399.                SET RESUME TO TRUE.
  15400.                GOBACK.
  15401.  
  15402.            END PROGRAM CBLMRCR.
  15403.  
  15404.  PL/I Example 
  15405.  
  15406.   The following example uses a COBOL program and handler to establish the 
  15407.   condition handling environment prior to calling a PL/I subroutine to 
  15408.   illustrate the use of the callable service from PL/I. 
  15409.  
  15410.     CBL LIB,APOST,NOOPT
  15411.           *COMPILATION UNIT: IGZTMRCP
  15412.           *************************************************
  15413.           **                                             **
  15414.           ** IGZTMRCP - Drive sample program for CEEMRCR.**
  15415.           **                                             **
  15416.           *************************************************
  15417.            IDENTIFICATION DIVISION.
  15418.            PROGRAM-ID. IGZTMRCP.
  15419.  
  15420.            PROCEDURE DIVISION.
  15421.  
  15422.            INVOKE-DRIVER.
  15423.                CALL 'RUNMRCR'.
  15424.                DISPLAY '==> Execution resumed in routine '
  15425.                    'which called the routine '
  15426.                    'which registered handler'.
  15427.                STOP RUN.
  15428.  
  15429.            END PROGRAM IGZTMRCP.
  15430.     CBL LIB,APOST,NOOPT
  15431.           *COMPILATION UNIT: RUNMRCR
  15432.           *************************************************
  15433.           **                                             **
  15434.           ** RUNMRCR - Run sample program for CEEMRCR.   **
  15435.           **                                             **
  15436.           *************************************************
  15437.            IDENTIFICATION DIVISION.
  15438.            PROGRAM-ID. RUNMRCR.
  15439.            DATA DIVISION.
  15440.            WORKING-STORAGE SECTION.
  15441.            01  ROUTINE             PROCEDURE-POINTER.
  15442.            01  DENOMINATOR         PIC S9(9) COMP.
  15443.            01  NUMERATOR           PIC S9(9) COMP.
  15444.            01  RATIO               PIC S9(9) COMP.
  15445.            01  TOKEN               PIC S9(9) COMP VALUE 0.
  15446.            01  FC.
  15447.                02  Condition-Token-Value.
  15448.                COPY  CEEIGZCT.
  15449.                    03  Case-1-Condition-ID.
  15450.                        04  Severity        PIC S9(4) COMP.
  15451.                        04  Msg-No          PIC S9(4) COMP.
  15452.                    03  Case-2-Condition-ID
  15453.                              REDEFINES Case-1-Condition-ID.
  15454.                        04  Class-Code      PIC S9(4) COMP.
  15455.                        04  Cause-Code      PIC S9(4) COMP.
  15456.                    03  Case-Sev-Ctl        PIC X.
  15457.                    03  Facility-ID         PIC XXX.
  15458.                02  I-S-Info                PIC S9(9) COMP.
  15459.  
  15460.            PROCEDURE DIVISION.
  15461.  
  15462.            REGISTER-HANDLER.
  15463.           ** Register handler
  15464.                SET ROUTINE TO ENTRY 'HDLMRCR'.
  15465.                CALL 'CEEHDLR' USING ROUTINE , TOKEN , FC.
  15466.                IF  NOT CEE000 of FC  THEN
  15467.                    DISPLAY 'CEEHDLR failed with msg '
  15468.                        Msg-No of FC UPON CONSOLE;
  15469.                    STOP RUN;
  15470.                END-IF.
  15471.  
  15472.            RAISE-CONDITION.
  15473.           ** Cause a zero-divide condition.
  15474.                MOVE 0 TO DENOMINATOR.
  15475.                MOVE 1 TO NUMERATOR.
  15476.                DIVIDE NUMERATOR BY DENOMINATOR, GIVING RATIO.
  15477.           *    (exception occurs and is handled)
  15478.                DISPLAY '==> Execution resumed in routine '
  15479.                    'which registered handler'.
  15480.  
  15481.            UNREGISTER-HANDLER.
  15482.           ** UNregister handler
  15483.                CALL 'CEEHDLU' USING ROUTINE, FC.
  15484.                IF NOT CEE000 of FC  THEN
  15485.                    DISPLAY 'CEEHDLU failed with msg '
  15486.                        Msg-No of FC UPON CONSOLE;
  15487.                END-IF.
  15488.                STOP RUN.
  15489.            END PROGRAM RUNMRCR.
  15490.  
  15491.           *COMPILATION UNIT: HDLMRCR
  15492.           **************************************************
  15493.           **                                              **
  15494.           ** Purpose:  Invoke PL/I program to handle      **
  15495.           **                     current condition.       **
  15496.           **                                              **
  15497.           **************************************************
  15498.            IDENTIFICATION DIVISION.
  15499.            PROGRAM-ID. HDLMRCR.
  15500.            DATA DIVISION.
  15501.            LINKAGE SECTION.
  15502.            01  TOKEN                   PIC S9(9) COMP.
  15503.            01  RESULT                  PIC S9(9) COMP.
  15504.            01  CURCOND.
  15505.                02  Condition-Token-Value.
  15506.                COPY  CEEIGZCT.
  15507.                    03  Case-1-Condition-ID.
  15508.                        04  Severity        PIC S9(4) COMP.
  15509.                        04  Msg-No          PIC S9(4) COMP.
  15510.                    03  Case-2-Condition-ID
  15511.                              REDEFINES Case-1-Condition-ID.
  15512.                        04  Class-Code      PIC S9(4) COMP.
  15513.                        04  Cause-Code      PIC S9(4) COMP.
  15514.                    03  Case-Sev-Ctl    PIC X.
  15515.                    03  Facility-ID     PIC XXX.
  15516.                02  I-S-Info        PIC S9(9) COMP.
  15517.            01  NEWCOND.
  15518.                02  Condition-Token-Value.
  15519.                COPY  CEEIGZCT.
  15520.                    03  Case-1-Condition-ID.
  15521.                        04  Severity        PIC S9(4) COMP.
  15522.                        04  Msg-No          PIC S9(4) COMP.
  15523.                    03  Case-2-Condition-ID
  15524.                              REDEFINES Case-1-Condition-ID.
  15525.                        04  Class-Code      PIC S9(4) COMP.
  15526.                        04  Cause-Code      PIC S9(4) COMP.
  15527.                    03  Case-Sev-Ctl    PIC X.
  15528.                    03  Facility-ID     PIC XXX.
  15529.                02  I-S-Info        PIC S9(9) COMP.
  15530.  
  15531.            PROCEDURE DIVISION
  15532.                USING CURCOND, TOKEN, RESULT, NEWCOND.
  15533.  
  15534.            INVOKE-PLI.
  15535.                CALL 'IBMMRCR'
  15536.                    USING ADDRESS OF CURCOND,
  15537.                          ADDRESS OF TOKEN,
  15538.                          ADDRESS OF RESULT,
  15539.                          ADDRESS OF NEWCOND.
  15540.                GOBACK.
  15541.  
  15542.            END PROGRAM HDLMRCR.
  15543.  
  15544.     *PROCESS OPT(0), MACRO,SOURCE,INSOURCE;
  15545.      /****************************************************/
  15546.      /**                                                 */
  15547.      /** Function: CEEMRCR - move resume cursor relative */
  15548.      /**                     to handle cursor            */
  15549.      /**                                                 */
  15550.      /****************************************************/
  15551.      IBMMRCR:  PROCEDURE( @CONDTOK, @TOKEN, @RESULT, @NEWCOND)
  15552.                   OPTIONS( COBOL );
  15553.  
  15554.         %INCLUDE  CEEIBMAW;
  15555.         %INCLUDE  CEEIBMCT;
  15556.  
  15557.         /* Parameters */
  15558.         DCL  @CONDTOK    POINTER;
  15559.         DCL  @TOKEN      POINTER;
  15560.         DCL  @RESULT     POINTER;
  15561.         DCL  @NEWCOND    POINTER;
  15562.         DCL  01 CONDTOK  BASED( @CONDTOK ) FEEDBACK;
  15563.         DCL  TOKEN       BASED( @TOKEN )   INT4;
  15564.         DCL  RESULT      BASED( @RESULT )  INT4;
  15565.         DCL  01 NEWCOND  BASED( @NEWCOND ) FEEDBACK;
  15566.  
  15567.         /* Local identifiers */
  15568.         DCL MOVETYP INT4;
  15569.         DCL 01 FC FEEDBACK;
  15570.  
  15571.         IF  FBCHECK( CONDTOK, CEE349 )  THEN  DO;
  15572.            /* Expeced fixed-point divide exception occurred */
  15573.  
  15574.            MOVETYP = 1 /* Move resume cursor to stack frame */
  15575.                        /* of program which called routine   */
  15576.                        /* which registered this handler    */;
  15577.            CALL CEEMRCR ( MOVETYP, FC );
  15578.            IF  FBCHECK( FC, CEE000)  THEN  DO;
  15579.               PUT SKIP LIST( 'Resume cursor moved one stack'
  15580.                  || ' prior to position of Handler Cursor,' );
  15581.               PUT SKIP LIST( ' and Handler Cursor moved to '
  15582.                  || 'first handler of that stack frame' );
  15583.               RESULT = 10 /* Resume */;
  15584.               END;
  15585.            ELSE  DO;
  15586.               DISPLAY( 'CEEMRCR failed with msg '
  15587.                  || FC.MsgNo );
  15588.               RESULT = 30 /* Promote */;
  15589.               NEWCOND = FC;
  15590.               END;
  15591.  
  15592.            END;
  15593.         ELSE /* Unexpected condition -- percolate */  DO;
  15594.            DISPLAY( 'User condition handler entered for '
  15595.               || CONDTOK.FacID || ' condition with message '
  15596.               || 'number ' || CONDTOK.MsgNo );
  15597.            RESULT = 20 /* Percolate */;
  15598.            DISPLAY('Percolating...');
  15599.            END;
  15600.  
  15601.         RETURN;
  15602.  
  15603.      END IBMMRCR;
  15604.  
  15605.  
  15606. ΓòÉΓòÉΓòÉ 3.3.43. CEEMSG-Get, Format, and Dispatch a Message ΓòÉΓòÉΓòÉ
  15607.  
  15608. CEEMSG gets, formats, and dispatches a message corresponding to an input 
  15609. condition token received from a callable service or passed to a user-written 
  15610. condition handler. You can use this service to print a message after a call to 
  15611. any LE/370 service that returns a condition token. 
  15612.  
  15613. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15614. Γöé                                                  Γöé
  15615. Γöé >>ΓöÇΓöÇCEEMSGΓöÇΓöÇ(ΓöÇΓöÇcond_tokenΓöÇΓöÇ,ΓöÇΓöÇdestination_codeΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  15616. Γöé                                                  Γöé
  15617. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15618.  
  15619. cond_token (input) 
  15620.           A 12-byte condition token received as the result of an LE/370 
  15621.           callable service. 
  15622.  
  15623. destination_code (input) 
  15624.           A 4-byte binary integer. destination_code can be specified only as 2, 
  15625.           meaning write the message to the ddname of the file specified in the 
  15626.           MSGFILE run-time option. See MSGFILE for more information. 
  15627.  
  15628. fc (output) 
  15629.           A 12-byte feedback code, optional in some languages, that indicates 
  15630.           the result of this service. 
  15631.  
  15632.           The following symbolic conditions can result from this service: 
  15633.  
  15634.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15635.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  15636.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  15637.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15638.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  15639.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15640.                     Γöé CEE0E2     Γöé 3        Γöé 0450      Γöé The message inserts for the condition token   Γöé
  15641.                     Γöé        Γöé         Γöé         Γöé with message number message-number and     Γöé
  15642.                     Γöé        Γöé         Γöé         Γöé facility ID facility-id could not be located.  Γöé
  15643.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15644.                     Γöé CEE0E3     Γöé 3        Γöé 0451      Γöé An unsupported destination code destination-  Γöé
  15645.                     Γöé        Γöé         Γöé         Γöé code was passed to routine routine-name.    Γöé
  15646.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15647.                     Γöé CEE0E6     Γöé 3        Γöé 0454      Γöé The message number message-number could not be Γöé
  15648.                     Γöé        Γöé         Γöé         Γöé found for facility ID facility-id.       Γöé
  15649.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15650.                     Γöé CEE0E9     Γöé 3        Γöé 0457      Γöé The MSGFILE destination ddname could not be   Γöé
  15651.                     Γöé        Γöé         Γöé         Γöé located.                    Γöé
  15652.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15653.                     Γöé CEE0EA     Γöé 3        Γöé 0458      Γöé The message repository repository-name could  Γöé
  15654.                     Γöé        Γöé         Γöé         Γöé not be located.                 Γöé
  15655.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15656.                     Γöé CEE3CT     Γöé 3        Γöé 3485      Γöé An internal message services error occurred   Γöé
  15657.                     Γöé        Γöé         Γöé         Γöé while locating the message number within the  Γöé
  15658.                     Γöé        Γöé         Γöé         Γöé message file.                  Γöé
  15659.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15660.                     Γöé CEE3CU     Γöé 3        Γöé 3486      Γöé An internal message services error occurred   Γöé
  15661.                     Γöé        Γöé         Γöé         Γöé while formatting the message.          Γöé
  15662.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15663.                     Γöé CEE3CV     Γöé 3        Γöé 3487      Γöé An internal message services error occurred   Γöé
  15664.                     Γöé        Γöé         Γöé         Γöé while locating the message number within the  Γöé
  15665.                     Γöé        Γöé         Γöé         Γöé ranges specified in the repository.       Γöé
  15666.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15667.  
  15668. Usage Note 
  15669.  
  15670.  OpenEdition MVS considerations-In multithread applications, CEEMSG affects 
  15671.   only the calling thread. When multiple threads write to the message file, the 
  15672.   output is interwoven by line. To group lines of output, serialize MSGFILE 
  15673.   access by using a mutex, for example. 
  15674.  
  15675. Examples 
  15676.  
  15677.  C/370 Example 
  15678.  
  15679.     /*COMPILATION UNIT: EDCMSG    */
  15680.  
  15681.     #include <string.h>
  15682.     #include <stdio.h>
  15683.     #include <leawi.h>
  15684.     #include <ceeedcct.h>
  15685.  
  15686.     int main(void) {
  15687.  
  15688.       _VSTRING message;
  15689.       _INT4 dest,msgindx;
  15690.       _CHAR80 msgarea;
  15691.       _FEEDBACK fc,token;
  15692.  
  15693.       strcpy(message.string,"This is a test message");
  15694.       message.length = strlen(message.string);
  15695.       dest = 5; /* invalid dest so CEEMOUT will fail */
  15696.  
  15697.       CEEMOUT(&message,&dest,&fc);
  15698.  
  15699.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  15700.          /* put the message if CEEMOUT failed */
  15701.          dest = 2;
  15702.          CEEMSG(&fc,&dest,NULL);
  15703.          exit(2999);
  15704.       }
  15705.     }
  15706.  
  15707.  COBOL/370 Example 
  15708.  
  15709.     CBL LIB,APOST
  15710.           *COMPILATION UNIT: IGZTMSG
  15711.           *************************************************
  15712.           **                                             **
  15713.           ** Function: CEEMSG  - get, format and dispatch**
  15714.           **                     a message               **
  15715.           **                                             **
  15716.           ** In this example, CEE3MDS is called with an  **
  15717.           ** invalid country code so that a condition    **
  15718.           ** token would be returned to use as input to  **
  15719.           ** Any LE/370 service could have been called.  **
  15720.           ** CEEMSG uses the condition token to get,     **
  15721.           ** format and dispatch the message associated  **
  15722.           ** with the condition that occurred in CEE3MDS.**
  15723.           **                                             **
  15724.           *************************************************
  15725.            IDENTIFICATION DIVISION.
  15726.            PROGRAM-ID. CBLMSG.
  15727.            DATA DIVISION.
  15728.            WORKING-STORAGE SECTION.
  15729.            01  COUNTRY                 PIC X(2).
  15730.            01  DECSEP                  PIC X(2).
  15731.            01  MSGDEST                 PIC S9(9) COMP.
  15732.            01  FC.
  15733.                02  Condition-Token-Value.
  15734.                COPY  CEEIGZCT.
  15735.                    03  Case-1-Condition-ID.
  15736.                        04  Severity        PIC S9(4) COMP.
  15737.                        04  Msg-No          PIC S9(4) COMP.
  15738.                    03  Case-2-Condition-ID
  15739.                              REDEFINES Case-1-Condition-ID.
  15740.                        04  Class-Code      PIC S9(4) COMP.
  15741.                        04  Cause-Code      PIC S9(4) COMP.
  15742.                    03  Case-Sev-Ctl    PIC X.
  15743.                    03  Facility-ID     PIC XXX.
  15744.                02  I-S-Info        PIC S9(9) COMP.
  15745.            01  FC2.
  15746.                02  Condition-Token-Value.
  15747.                COPY  CEEIGZCT.
  15748.                    03  Case-1-Condition-ID.
  15749.                        04  Severity        PIC S9(4) COMP.
  15750.                        04  Msg-No          PIC S9(4) COMP.
  15751.                    03  Case-2-Condition-ID
  15752.                              REDEFINES Case-1-Condition-ID.
  15753.                        04  Class-Code      PIC S9(4) COMP.
  15754.                        04  Cause-Code      PIC S9(4) COMP.
  15755.                    03  Case-Sev-Ctl    PIC X.
  15756.                    03  Facility-ID     PIC XXX.
  15757.                02  I-S-Info        PIC S9(9) COMP.
  15758.            PROCEDURE DIVISION.
  15759.            PARA-CBL3MDS.
  15760.           ** Call any LE service, CEE3MDS in this case, to
  15761.           **     receive a condition token that CEEMSG can
  15762.           **     can format as a message.  Specify an
  15763.           **     invalid value for country code so that a
  15764.           **     condition will be built
  15765.                MOVE 'LN' TO COUNTRY.
  15766.                CALL 'CEE3MDS' USING COUNTRY, DECSEP , FC.
  15767.            PARA-CBLMSG.
  15768.           ** Specify 2 for destination, so message will be
  15769.           **     written to the ddname specified or
  15770.           **     defaulted in the MSGFILE run-time option.
  15771.                MOVE 2 TO MSGDEST.
  15772.           ** Call CEEMSG using the FC returned from
  15773.           **     CEE3MDS as the input condition token.
  15774.                CALL 'CEEMSG' USING FC , MSGDEST , FC2.
  15775.                IF NOT CEE000 of FC2 THEN
  15776.                    DISPLAY 'CEEMSG  failed with msg '
  15777.                        Msg-No of FC2 UPON CONSOLE;
  15778.                    STOP RUN;
  15779.                END-IF.
  15780.                GOBACK.
  15781.  
  15782.  PL/I Example 
  15783.  
  15784.     *PROCESS LANGLVL(SAA), MACRO;
  15785.      /*COMPILATION UNIT: IBMMSG                          */
  15786.      /****************************************************/
  15787.      /**                                                **/
  15788.      /** Function: CEEMSG  - get, format and dispatch   **/
  15789.      /**                     a message                  **/
  15790.      /**                                                **/
  15791.      /** In this example, CEE3MDS is called with an     **/
  15792.      /** invalid country code so that a condition token **/
  15793.      /** would be returned to use as input to CEEMSG.   **/
  15794.      /** Any LE/370 could have been called. CEEMSG uses **/
  15795.      /** the condition to get, format and dispatch the  **/
  15796.      /** message associated with the condition that     **/
  15797.      /** occurred in CEE3MDS                            **/
  15798.      /**                                                **/
  15799.      /****************************************************/
  15800.      PLIMSG: PROC OPTIONS(MAIN);
  15801.  
  15802.         %INCLUDE  CEEIBMAW;
  15803.         %INCLUDE  CEEIBMCT;
  15804.  
  15805.         DCL COUNTRY  CHARACTER ( 2 );
  15806.         DCL DECSEP   CHARACTER ( 2 );
  15807.         DCL 01 FC    FEEDBACK;
  15808.  
  15809.         DCL MSGDEST  INT4;
  15810.         DCL 01 FC2   FEEDBACK;
  15811.  
  15812.         COUNTRY = 'LN';  /* Specify an invalid country   */
  15813.                          /* code to receive a non-zero   */
  15814.                          /* feedback code                */
  15815.  
  15816.         /* Call any service (CEE3MDS in this case) to    */
  15817.         /* receive a condition token that CEEMSG will    */
  15818.         /* format and dispatch a message                 */
  15819.         CALL CEE3MDS ( COUNTRY, DECSEP, FC );
  15820.  
  15821.         MSGDEST = 2; /* Specify 2 as destination, so     */
  15822.                      /* message will go to ddname speci- */
  15823.                      /* fied in MSGFILE run-time option  */
  15824.  
  15825.         CALL CEEMSG ( FC, MSGDEST, FC2 );
  15826.         IF  ╨║ FBCHECK( FC2, CEE000)  THEN  DO;
  15827.            DISPLAY( 'CEEMSG  failed with msg '
  15828.               || FC.MsgNo );
  15829.            STOP;
  15830.            END;
  15831.  
  15832.      END PLIMSG;
  15833.  
  15834.  
  15835. ΓòÉΓòÉΓòÉ 3.3.44. CEENCOD-Construct a Condition Token ΓòÉΓòÉΓòÉ
  15836.  
  15837. CEENCOD dynamically constructs a 12-byte condition token that communicates a 
  15838. condition in LE/370. 
  15839.  
  15840. The condition token communicates with the LE/370 message and condition handling 
  15841. callable services, and user routines. Also, all LE/370 callable services use 
  15842. the condition-token data type to return information to the user as a feedback 
  15843. code. 
  15844.  
  15845. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15846. Γöé                                                  Γöé
  15847. Γöé >>ΓöÇΓöÇCEENCODΓöÇΓöÇ(ΓöÇΓöÇc_1ΓöÇΓöÇ,ΓöÇΓöÇc_2ΓöÇΓöÇ,ΓöÇΓöÇcaseΓöÇΓöÇ,ΓöÇΓöÇseverityΓöÇΓöÇ,ΓöÇΓöÇcontrolΓöÇΓöÇ,ΓöÇΓöÇfacility_IDΓöÇΓöÇ,ΓöÇΓöÇi_s_infoΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé
  15848. Γöé                                                  Γöé
  15849. Γöé >ΓöÇΓöÇ,ΓöÇΓöÇcond_tokenΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  15850. Γöé                                                  Γöé
  15851. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15852.  
  15853. c_1 (input) 
  15854.           c_1 and c_2 together make up the condition_ID portion of the 
  15855.           condition token. c_1 is a 2-byte binary integer representing the 
  15856.           value of the first 2 bytes of the 4-byte condition_ID. 
  15857.  
  15858.           For case 1, c_1 represents the severity; for case 2, it is the 
  15859.           class_code. For more information about case 1 and case 2, see CEENCOD 
  15860.           Usage Notes. 
  15861.  
  15862. c_2 (input) 
  15863.           A 2-byte binary integer representing the value of the second 2 bytes 
  15864.           of the condition_ID. 
  15865.  
  15866.           For case 1, this is the Msg_No; for case 2, it is the cause_code. For 
  15867.           more information about case 1 and case 2, see CEENCOD Usage Notes. 
  15868.  
  15869. case (input) 
  15870.           A 2-byte binary integer defining the format of the condition_ID 
  15871.           portion of the token. The value 1 identifies a case 1 condition, a 
  15872.           value of 2 identifies a case 2 condition. The values 0 and 3 are 
  15873.           reserved. LE/370 supports only the case 1 condition token type. 
  15874.  
  15875. severity (input) 
  15876.           A 2-byte binary integer indicating the condition's severity. For case 
  15877.           1 conditions, the value of this field is the same as the severity 
  15878.           value specified in the condition_ID. 
  15879.  
  15880.           For case 1 and 2 conditions, this field is also used to test the 
  15881.           condition's severity. severity can be specified with the following 
  15882.           values: 
  15883.  
  15884.    0         Information only (or, if the entire token is 0, no information). 
  15885.  
  15886.    1         Warning-service completed, probably correctly. 
  15887.  
  15888.    2         Error detected-correction attempted; service completed, perhaps 
  15889.              incorrectly. 
  15890.  
  15891.    3         Severe error-service not completed. 
  15892.  
  15893.    4         Critical error-service not completed; condition signaled. A 
  15894.              critical error is a condition jeopardizing the environment. If a 
  15895.              critical error occurs during an LE/370 callable service, it is 
  15896.              always signaled to the condition manager instead of returning 
  15897.              synchronously to the caller. 
  15898.  
  15899. control (input) 
  15900.           A 2-byte binary integer containing flags describing or controlling 
  15901.           various aspects of condition handling. Valid values for the control 
  15902.           field are 1 and 0. 1 indicates the facility_ID is assigned by IBM. 0 
  15903.           indicates the facility_ID is assigned by the user. 
  15904.  
  15905. facility_ID (input) 
  15906.           A 3-character field containing three alphanumeric characters (A-Z, 
  15907.           a-z and 0-9) identifying the product or component of a product 
  15908.           generating this condition or feedback information, for example, CEE. 
  15909.  
  15910.           The facility_ID is associated with the repository (for example, a 
  15911.           file) of the run-time messages. If a unique ID is required (for IBM 
  15912.           and non-IBM products), an ID can be obtained by contacting an IBM 
  15913.           project office. 
  15914.  
  15915.           If you create a new facility_ID to use with a message file you 
  15916.           created by using the CEEBLDTX utility, be aware that the facility_ID 
  15917.           must be part of the message file name. It is therefore important to 
  15918.           follow the naming guidelines described below in order to have a 
  15919.           module name that does not cause your application to abend. 
  15920.  
  15921.           A facility_ID not assigned to an IBM product cannot begin with the 
  15922.           letters A through I. (See the control (input) parameter, above, on 
  15923.           how to indicate whether the facility_ID has been assigned by IBM.) 
  15924.           Special characters, including blank spaces, cannot be used in a 
  15925.           facility_ID. There are no other constraints (besides the alphanumeric 
  15926.           requirement) on a facility_ID not assigned by IBM. 
  15927.  
  15928. i_s_info (input) 
  15929.           A fullword binary integer identifying the ISI. 
  15930.  
  15931.           Whenever a condition is detected by the LE/370 condition manager, 
  15932.           insert data is generated describing the particular instance of its 
  15933.           occurrence is generated. This insert data is used, for example, to 
  15934.           write to a file a message associated with that particular instance or 
  15935.           occurrence of the condition. This insert data is contained in the 
  15936.           ISI. 
  15937.  
  15938. cond_token (output) 
  15939.           The 12-byte representation of the constructed condition token. 
  15940.  
  15941. fc (output) 
  15942.           A 12-byte feedback code, optional in some languages, that indicates 
  15943.           the result of this service. 
  15944.  
  15945.           The following symbolic conditions can result from this service: 
  15946.  
  15947.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  15948.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  15949.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  15950.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15951.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  15952.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15953.                     Γöé CEE0CH     Γöé 3        Γöé 0401      Γöé An unsupported case code case-code was passed  Γöé
  15954.                     Γöé        Γöé         Γöé         Γöé to routine routine-name.            Γöé
  15955.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15956.                     Γöé CEE0CI     Γöé 3        Γöé 0402      Γöé An unsupported control code control-code was  Γöé
  15957.                     Γöé        Γöé         Γöé         Γöé passed to routine routine-name.         Γöé
  15958.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15959.                     Γöé CEE0CJ     Γöé 3        Γöé 0403      Γöé An unsupported severity code severity-code was Γöé
  15960.                     Γöé        Γöé         Γöé         Γöé passed to routine routine-name.         Γöé
  15961.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15962.                     Γöé CEE0CK     Γöé 1        Γöé 0404      Γöé A facility ID facility-id with non-       Γöé
  15963.                     Γöé        Γöé         Γöé         Γöé alphanumeric characters was passed to routine  Γöé
  15964.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  15965.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  15966.                     Γöé CEE0E4     Γöé 3        Γöé 0452      Γöé An unsupported facility ID facility-id was   Γöé
  15967.                     Γöé        Γöé         Γöé         Γöé passed to routine routine-name.         Γöé
  15968.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  15969.  
  15970. Usage Notes 
  15971.  
  15972.  C/370 considerations-The structure of the condition token (type_FEEDBACK) is 
  15973.   described in the leawi.h header file shipped with LE/370. You can assign 
  15974.   values directly to the fields of the token in the header file without using 
  15975.   the CEENCOD service. (See the example for CEESGL-Signal a Condition for 
  15976.   details.) 
  15977.  
  15978.   The layout of the type_FEEDBACK condition token in the header file is: 
  15979.  
  15980.  
  15981.     type_FEEDBACK Data Type as Defined in the leawi.h Header File
  15982.  
  15983.  
  15984.     typedef struct {
  15985.        short     tok_sev     ; /* severity            */
  15986.        short     tok_msgno   ; /* message number      */
  15987.        int       tok_case :2,  /* flags-case/sev/cont */
  15988.                  tok_sever:3,
  15989.                  tok_ctrl :3 ;
  15990.        char      tok_facid[3]; /* fac ID    */
  15991.        int       tok_isi     ; /* index in ISI block  */
  15992.             }                _FEEDBACK;
  15993.  
  15994.  OpenEdition MVS consideration-In multithread applications, CEENCOD affects 
  15995.   only the calling thread. 
  15996.  
  15997. Examples 
  15998.  
  15999.  C/370 Example 
  16000.  
  16001.     /*COMPILATION UNIT: EDCNCOD   */
  16002.  
  16003.     /*****************************************************/
  16004.     /* In C/370 it is not necessary to use this service. */
  16005.     /* The fields can be manipulated directly.  See the  */
  16006.     /* example for CEESGL to see how to manipulate       */
  16007.     /* condition token fields directly.                  */
  16008.     /*****************************************************/
  16009.  
  16010.     #include <stdio.h>
  16011.     #include <string.h>
  16012.     #include <leawi.h>
  16013.     #include <ceeedcct.h>
  16014.  
  16015.     int main(void) {
  16016.  
  16017.       _FEEDBACK fc,condtok;
  16018.       _INT2 c_1,c_2,cond_case,sev,control;
  16019.       _CHAR3 facid;
  16020.       _INT4 isi;
  16021.  
  16022.       c_1 = 1;
  16023.       c_2 = 99;
  16024.       cond_case = 1;
  16025.       sev = 1;
  16026.       control = 0;
  16027.       memcpy(facid,"ZZZ",3);
  16028.       isi = 0;
  16029.  
  16030.       CEENCOD(&c_1,&c_2,&cond_case,&sev,&control,
  16031.               facid,&isi,&condtok,&fc);
  16032.  
  16033.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  16034.          printf("CEENCOD failed with message number %d\n",
  16035.                 fc.tok_msgno);
  16036.          exit(2999);
  16037.       }
  16038.      /* .
  16039.         .
  16040.         . */
  16041.     }
  16042.  
  16043.  COBOL/370 Example 
  16044.  
  16045.     CBL LIB,APOST
  16046.           *COMPILATION UNIT: IGZTNCOD
  16047.           *************************************************
  16048.           **                                             **
  16049.           ** Function: CEENCOD - Construct a condition   **
  16050.           ** token                                       **
  16051.           **                                             **
  16052.           *************************************************
  16053.            IDENTIFICATION DIVISION.
  16054.            PROGRAM-ID. CBLNCOD.
  16055.            DATA DIVISION.
  16056.            WORKING-STORAGE SECTION.
  16057.            01  SEV                     PIC S9(4) COMP.
  16058.            01  MSGNO                   PIC S9(4) COMP.
  16059.            01  CASE                    PIC S9(4) COMP.
  16060.            01  SEV2                    PIC S9(4) COMP.
  16061.            01  CNTRL                   PIC S9(4) COMP.
  16062.            01  FACID                   PIC X(3).
  16063.            01  ISINFO                  PIC S9(9) COMP.
  16064.            01  NEWTOK.
  16065.                02  Condition-Token-Value.
  16066.                COPY  CEEIGZCT.
  16067.                    03  Case-1-Condition-ID.
  16068.                        04  Severity        PIC S9(4) COMP.
  16069.                        04  Msg-No          PIC S9(4) COMP.
  16070.                    03  Case-2-Condition-ID
  16071.                              REDEFINES Case-1-Condition-ID.
  16072.                        04  Class-Code      PIC S9(4) COMP.
  16073.                        04  Cause-Code      PIC S9(4) COMP.
  16074.                    03  Case-Sev-Ctl    PIC X.
  16075.                    03  Facility-ID     PIC XXX.
  16076.                02  I-S-Info        PIC S9(9) COMP.
  16077.            01  FC.
  16078.                02  Condition-Token-Value.
  16079.                COPY  CEEIGZCT.
  16080.                    03  Case-1-Condition-ID.
  16081.                        04  Severity        PIC S9(4) COMP.
  16082.                        04  Msg-No          PIC S9(4) COMP.
  16083.                    03  Case-2-Condition-ID
  16084.                              REDEFINES Case-1-Condition-ID.
  16085.                        04  Class-Code      PIC S9(4) COMP.
  16086.                        04  Cause-Code      PIC S9(4) COMP.
  16087.                    03  Case-Sev-Ctl    PIC X.
  16088.                    03  Facility-ID     PIC XXX.
  16089.                02  I-S-Info        PIC S9(9) COMP.
  16090.            PROCEDURE DIVISION.
  16091.            PARA-CBLNCOD.
  16092.           ** Set severity portion of Condition_ID to 0, or
  16093.           **     information only.
  16094.           ** Set msg number portion of Condition_ID to 1.
  16095.           ** Set case to 1. This is a service condition.
  16096.           ** Set severity to 0, for information only.
  16097.           ** Set control to 1, for Facility_ID has been
  16098.           **     assigned by IBM.
  16099.           ** Set Facility_ID to CEE for an LE/370 condition
  16100.           **     token.
  16101.           ** Set I_S_Info to 0, indicating that no Instance
  16102.           **     Specific Information is to be supplied.
  16103.                MOVE 0 TO SEV.
  16104.                MOVE 1 TO MSGNO.
  16105.                MOVE 1 TO CASE.
  16106.                MOVE 0 TO SEV2.
  16107.                MOVE 1 TO CNTRL.
  16108.                MOVE 'CEE' TO FACID.
  16109.                MOVE 0 TO ISINFO.
  16110.  
  16111.           ** Call CEENCOD with the values assigned above to
  16112.           **     build a condition token "NEWTOK"
  16113.                CALL 'CEENCOD' USING SEV, MSGNO, CASE,
  16114.                    SEV2, CNTRL, FACID, ISINFO, NEWTOK, FC.
  16115.                IF NOT CEE000 of FC  THEN
  16116.                    DISPLAY 'CEENCOD failed with msg '
  16117.                        Msg-No of FC UPON CONSOLE;
  16118.                    STOP RUN;
  16119.                END-IF.
  16120.  
  16121.                GOBACK.
  16122.  
  16123.  PL/I Example 
  16124.  
  16125.     *PROCESS MACRO;
  16126.      /*COMPILATION UNIT: IBMNCOD                         */
  16127.      /****************************************************/
  16128.      /**                                                 */
  16129.      /** Function: CEENCOD - construct a condition token */
  16130.      /**                                                 */
  16131.      /****************************************************/
  16132.      PLINCOD: PROC OPTIONS(MAIN);
  16133.  
  16134.         %INCLUDE  CEEIBMAW;
  16135.         %INCLUDE  CEEIBMCT;
  16136.  
  16137.         DCL SEV        INT2;
  16138.         DCL MSGNO      INT2;
  16139.         DCL CASE       INT2;
  16140.         DCL SEV2       INT2;
  16141.         DCL CNTRL      INT2;
  16142.         DCL FACID      CHARACTER ( 3 );
  16143.         DCL ISINFO     INT4;
  16144.         DCL 01 NEWTOK  FEEDBACK;
  16145.         DCL 01 FC      FEEDBACK;
  16146.  
  16147.         SEV = 0;       /* Set severity portion of        */
  16148.                        /* Condition_ID to 0, or          */
  16149.                        /* information only.              */
  16150.         MSGNO = 1;     /* Set msg number portion of      */
  16151.                        /* Condition_ID to 1.             */
  16152.         CASE = 1;      /* Set case to 1. This is a       */
  16153.                        /* service condition.             */
  16154.         SEV2 = 0;      /* Set severity to 0, or          */
  16155.                        /* information only.              */
  16156.         CNTRL = 0;     /* Set control to 0, or Facility  */
  16157.                        /* ID has been assigned by user   */
  16158.         FACID = 'USR'; /* Set Facility_ID to USR for a   */
  16159.                        /* user condition token.          */
  16160.         ISINFO = 0;    /* Set I_S_Info to 0, indicating  */
  16161.                        /* that no Instance Specific      */
  16162.                        /* Information is to be supplied. */
  16163.  
  16164.  
  16165.         CALL CEENCOD ( SEV, MSGNO, CASE, SEV2,
  16166.            CNTRL, FACID, ISINFO, NEWTOK, FC );
  16167.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  16168.            PUT SKIP LIST( 'CEENCOD created token for msg '
  16169.               || NEWTOK.MsgNo || ' and facility '
  16170.               || NEWTOK.FacID );
  16171.            END;
  16172.         ELSE  DO;
  16173.            DISPLAY( 'CEENCOD failed with msg '
  16174.               || FC.MsgNo );
  16175.            STOP;
  16176.            END;
  16177.  
  16178.      END PLINCOD;
  16179.  
  16180.  
  16181. ΓòÉΓòÉΓòÉ 3.3.45. CEEQCEN-Query the Century Window ΓòÉΓòÉΓòÉ
  16182.  
  16183. CEEQCEN queries the century in which LE/370 contains the 2-digit year value. 
  16184. When you want to change the setting, use CEEQCEN to get the setting and then 
  16185. use CEESCEN (CEESCEN-Set the Century Window) to save and restore the current 
  16186. setting. 
  16187.  
  16188. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16189. Γöé                                                  Γöé
  16190. Γöé >>ΓöÇΓöÇCEEQCENΓöÇΓöÇ(ΓöÇΓöÇcentury_startΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  16191. Γöé                                                  Γöé
  16192. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  16193.  
  16194. century_start (output) 
  16195.           An integer between 0 and 100 indicating the year on which the century 
  16196.           window is based. 
  16197.  
  16198.           For example, if the LE/370 default is in effect, all 2-digit years 
  16199.           lie within the 100-year window starting 80 years prior to the system 
  16200.           date. CEEQCEN then returns the value 80. An 80 value indicates to 
  16201.           LE/370 that, in 1993, all 2-digit years lie within the 100-year 
  16202.           window starting 80 years before the system date (between 1913 and 
  16203.           2012, inclusive). 
  16204.  
  16205. fc (output) 
  16206.           A 12-byte feedback code, optional in some languages, that indicates 
  16207.           the result of this service. 
  16208.  
  16209.           The following symbolic conditions can result from this service: 
  16210.  
  16211.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16212.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  16213.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  16214.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  16215.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  16216.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  16217.  
  16218. Usage Note 
  16219.  
  16220.  OpenEdition MVS considerations-CEEQCEN applies to the enclave. The century 
  16221.   window applies to the enclave. 
  16222.  
  16223. Examples 
  16224.  
  16225.  C/370 Example 
  16226.  
  16227.     /*COMPILATION UNIT: EDCQCEN   */
  16228.  
  16229.     #include <string.h>
  16230.     #include <stdio.h>
  16231.     #include <leawi.h>
  16232.     #include <ceeedcct.h>
  16233.  
  16234.     int main (void) {
  16235.  
  16236.       _INT4 century_start;
  16237.       _FEEDBACK fc;
  16238.  
  16239.       /* query the century window */
  16240.       CEEQCEN(¢ury_start,&fc);
  16241.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  16242.          printf("CEEQCEN failed with message number %d\n",
  16243.                 fc.tok_msgno);
  16244.          exit(2999);
  16245.       }
  16246.  
  16247.       /* if the century window is not 50 set it to 50 */
  16248.       if (century_start != 50) {
  16249.          century_start = 50;
  16250.  
  16251.          CEESCEN(¢ury_start,&fc);
  16252.          if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  16253.             printf("CEESCEN failed with message number %d\n",
  16254.                    fc.tok_msgno);
  16255.             exit(2999);
  16256.          }
  16257.       }
  16258.     }
  16259.  
  16260.  COBOL/370 Example 
  16261.  
  16262.     CBL LIB,APOST
  16263.           *COMPILATION UNIT: IGZTQCEN
  16264.           *************************************************
  16265.           **                                             **
  16266.           ** Function: CEEQCEN - query century window    **
  16267.           **                                             **
  16268.           ** In this example, CEEQCEN is called to query **
  16269.           ** the date at which the century window starts **
  16270.           ** The century window is the 100-year window   **
  16271.           ** windoe within which Language Environment    **
  16272.           ** assumes all two-digit years lie.            **
  16273.           **                                             **
  16274.           *************************************************
  16275.            IDENTIFICATION DIVISION.
  16276.            PROGRAM-ID. CBLQCEN.
  16277.            DATA DIVISION.
  16278.            WORKING-STORAGE SECTION.
  16279.            01  STARTCW                 PIC S9(9) COMP.
  16280.            01  FC.
  16281.                02  Condition-Token-Value.
  16282.                COPY  CEEIGZCT.
  16283.                    03  Case-1-Condition-ID.
  16284.                        04  Severity        PIC S9(4) COMP.
  16285.                        04  Msg-No          PIC S9(4) COMP.
  16286.                    03  Case-2-Condition-ID
  16287.                              REDEFINES Case-1-Condition-ID.
  16288.                        04  Class-Code      PIC S9(4) COMP.
  16289.                        04  Cause-Code      PIC S9(4) COMP.
  16290.                    03  Case-Sev-Ctl    PIC X.
  16291.                    03  Facility-ID     PIC XXX.
  16292.                02  I-S-Info        PIC S9(9) COMP.
  16293.            PROCEDURE DIVISION.
  16294.  
  16295.            PARA-CBLQCEN.
  16296.           ** Call CEEQCEN to return the start of the
  16297.           **     century window
  16298.  
  16299.                CALL 'CEEQCEN' USING STARTCW , FC.
  16300.           ** CEEQCEN has no non-zero feedback codes to
  16301.           **     check, so just display result.
  16302.                IF CEE000 of FC  THEN
  16303.                    DISPLAY 'The start of the century '
  16304.                        'window is: ' STARTCW
  16305.                ELSE
  16306.                    DISPLAY 'CEEQCEN failed with msg '
  16307.                        Msg-No of FC UPON CONSOLE;
  16308.                    STOP RUN;
  16309.                END-IF.
  16310.  
  16311.                GOBACK.
  16312.  
  16313.  PL/I Example 
  16314.  
  16315.     *PROCESS MACRO;
  16316.      /*COMPILATION UNIT: IBMQCEN                        */
  16317.      /***************************************************/
  16318.      /**                                                */
  16319.      /** Function: CEEQCEN - query the century window   */
  16320.      /**                                                */
  16321.      /** In this example, CEEQCEN is called to query    */
  16322.      /** The date at which the century window starts.   */
  16323.      /** The century window is the 100-year window      */
  16324.      /** within which Language Environment assumes      */
  16325.      /** all two-digit years lie.                       */
  16326.      /**                                                */
  16327.      /***************************************************/
  16328.      PLIQCEN: PROC OPTIONS(MAIN);
  16329.  
  16330.         %INCLUDE  CEEIBMAW;
  16331.         %INCLUDE  CEEIBMCT;
  16332.  
  16333.         DCL STARTCW INT4;
  16334.         DCL 01 FC FEEDBACK;
  16335.  
  16336.         /* Call CEEQCEN to return the start of the      */
  16337.         /*    century window                            */
  16338.         CALL CEEQCEN ( STARTCW, FC );
  16339.  
  16340.         /* CEEQCEN has no non-zero feedback codes       */
  16341.         /* to check, so print result                    */
  16342.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  16343.            PUT SKIP LIST ( 'The century window starts '
  16344.               || STARTCW || ' years before today.');
  16345.            END;
  16346.         ELSE  DO;
  16347.            DISPLAY( 'CEEQCEN failed with msg '
  16348.               || FC.MsgNo );
  16349.            STOP;
  16350.            END;
  16351.  
  16352.      END PLIQCEN;
  16353.  
  16354.  
  16355. ΓòÉΓòÉΓòÉ 3.3.46. CEERAN0-Calculate Uniform Random Numbers ΓòÉΓòÉΓòÉ
  16356.  
  16357. CEERAN0 generates a sequence of uniform pseudo-random numbers between 0.0 and 
  16358. 1.0 using the multiplicative congruential method with a user-specified seed. 
  16359.  
  16360. The uniform (0,1) pseudo-random numbers are generated using the multiplicative 
  16361. congruential method: 
  16362.  
  16363.   seed(i) = (950706376 * seed(i-1)) mod 2147483647;
  16364.  
  16365.   randomno(i) = seed(i) / 2147483647;
  16366.  
  16367. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16368. Γöé                                                  Γöé
  16369. Γöé >>ΓöÇΓöÇCEERAN0ΓöÇΓöÇ(ΓöÇΓöÇseedΓöÇΓöÇ,ΓöÇΓöÇrandom_noΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  16370. Γöé                                                  Γöé
  16371. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  16372.  
  16373. seed (input/output) 
  16374.           A fullword binary signed integer representing an initial value used 
  16375.           to generate random numbers. 
  16376.  
  16377.           seed must be a variable; it cannot be an input-only parameter. The 
  16378.           valid range is 0 to +2,147,483,646. 
  16379.  
  16380.           If seed equals 0, the seed is generated from the current Greenwich 
  16381.           Mean Time. 
  16382.  
  16383.           On return to the calling routine, CEERAN0 changes the value of seed 
  16384.           so that it can be used as the new seed in the next call. 
  16385.  
  16386. random_no(output) 
  16387.           An 8-byte double precision floating-point number with a value between 
  16388.           0 and 1, exclusive. 
  16389.  
  16390.           If seed is invalid, random_no is set to -1 and CEERAN0 terminates 
  16391.           with a non-CEE000 symbolic feedback code. 
  16392.  
  16393. fc (output) 
  16394.           A 12-byte feedback code, optional in some languages, that indicates 
  16395.           the result of this service. 
  16396.  
  16397.           The following symbolic conditions can result from this service: 
  16398.  
  16399.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16400.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  16401.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  16402.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  16403.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  16404.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  16405.                     Γöé CEE2ER     Γöé 1        Γöé 2523      Γöé The system time was not available when CEERAN0 Γöé
  16406.                     Γöé        Γöé         Γöé         Γöé was called.  A seed value of 1 was used to   Γöé
  16407.                     Γöé        Γöé         Γöé         Γöé generate a random number and a new seed value. Γöé
  16408.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  16409.                     Γöé CEE2ES     Γöé 3        Γöé 2524      Γöé An invalid seed value was passed to CEERAN0.  Γöé
  16410.                     Γöé        Γöé         Γöé         Γöé The random number was set to -1.        Γöé
  16411.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  16412.  
  16413. Usage Note 
  16414.  
  16415.  OpenEdition MVS considerations-In multithread applications, CEERAN0 affects 
  16416.   only the calling thread. The seed is unique to the thread. 
  16417.  
  16418. Examples 
  16419.  
  16420.  C/370 Example 
  16421.  
  16422.     /*COMPILATION UNIT: EDCRAN0   */
  16423.  
  16424.     #include <string.h>
  16425.     #include <stdio.h>
  16426.     #include <leawi.h>
  16427.     #include <ceeedcct.h>
  16428.  
  16429.     int main (void) {
  16430.  
  16431.        _INT4 seed;
  16432.        _FLOAT8 random;
  16433.        _FEEDBACK fc;
  16434.        int number;
  16435.  
  16436.        seed = 0;
  16437.        CEERAN0(&seed,&random,&fc);
  16438.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  16439.           printf("CEERAN0 failed with message number %d\n",
  16440.                  fc.tok_msgno);
  16441.           exit(2999);
  16442.        }
  16443.        number = random * 1000;
  16444.        printf("The 3 digit random number is %d\n",number);
  16445.     }
  16446.  
  16447.  COBOL/370 Example 
  16448.  
  16449.     CBL LIB,APOST
  16450.           *COMPILATION UNIT: IGZTRAN0
  16451.           ************************************************
  16452.           **                                            **
  16453.           ** Function: CEERAN0 - generate uniform       **
  16454.           **                     random numbers         **
  16455.           **                                            **
  16456.           ************************************************
  16457.            IDENTIFICATION DIVISION.
  16458.            PROGRAM-ID. CBLRAN0.
  16459.            DATA DIVISION.
  16460.            WORKING-STORAGE SECTION.
  16461.            01  SEED                    PIC S9(9) COMP.
  16462.            01  RANDNUM                 COMP-2.
  16463.            01  FC.
  16464.                02  Condition-Token-Value.
  16465.                COPY  CEEIGZCT.
  16466.                    03  Case-1-Condition-ID.
  16467.                        04  Severity        PIC S9(4) COMP.
  16468.                        04  Msg-No          PIC S9(4) COMP.
  16469.                    03  Case-2-Condition-ID
  16470.                              REDEFINES Case-1-Condition-ID.
  16471.                        04  Class-Code      PIC S9(4) COMP.
  16472.                        04  Cause-Code      PIC S9(4) COMP.
  16473.                    03  Case-Sev-Ctl    PIC X.
  16474.                    03  Facility-ID     PIC XXX.
  16475.                02  I-S-Info        PIC S9(9) COMP.
  16476.  
  16477.            PROCEDURE DIVISION.
  16478.  
  16479.            PARA-CBLRAN0.
  16480.           ** Specify 0 for SEED, so the seed will be derived
  16481.           **     from the current Greenwich Mean Time
  16482.                MOVE 0 TO SEED.
  16483.  
  16484.           ** Call CEERAN0 to return random number between
  16485.           **     0.0 and 1.0
  16486.                CALL 'CEERAN0' USING SEED , RANDNUM , FC.
  16487.  
  16488.           ** If CEERAN0 runs successfully, display result.
  16489.                IF CEE000 of FC  THEN
  16490.                    DISPLAY 'The random number is: ' RANDNUM
  16491.                ELSE
  16492.                    DISPLAY 'CEERAN0 failed with msg '
  16493.                        Msg-No of FC UPON CONSOLE;
  16494.                    STOP RUN;
  16495.                END-IF.
  16496.  
  16497.                GOBACK.
  16498.  
  16499.  PL/I Example 
  16500.  
  16501.     *PROCESS MACRO;
  16502.      /*COMPILATION UNIT: IBMRAN0                         */
  16503.      /****************************************************/
  16504.      /**                                                **/
  16505.      /** Function: CEERAN0 - calculate uniform random   **/
  16506.      /** numbers                                        **/
  16507.      /**                                                **/
  16508.      /****************************************************/
  16509.      PLIRAN0: PROC OPTIONS(MAIN);
  16510.  
  16511.         %INCLUDE  CEEIBMAW;
  16512.         %INCLUDE  CEEIBMCT;
  16513.  
  16514.         DCL SEED     INT4;
  16515.         DCL RANDNUM  FLOAT8;
  16516.         DCL 01 FC    FEEDBACK;
  16517.  
  16518.         SEED = 7; /* Specify an integer as the initial   */
  16519.                   /* value used to calculate the random  */
  16520.                   /* numbers                             */
  16521.  
  16522.  
  16523.        /* Call CEERAN0 to generate random number between */
  16524.        /*    0.0 and 1.0                                 */
  16525.         CALL CEERAN0 ( SEED, RANDNUM, FC );
  16526.  
  16527.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  16528.            PUT SKIP LIST ( 'The random number is '
  16529.               || RANDNUM );
  16530.            END;
  16531.         ELSE  DO;
  16532.            DISPLAY( 'CEERAN0 failed with msg '
  16533.               || FC.MsgNo );
  16534.            STOP;
  16535.            END;
  16536.  
  16537.      END PLIRAN0;
  16538.  
  16539.  
  16540. ΓòÉΓòÉΓòÉ 3.3.47. CEESCEN-Set the Century Window ΓòÉΓòÉΓòÉ
  16541.  
  16542. CEESCEN sets the century in which LE/370 contains the 2-digit year value. Use 
  16543. it in conjunction with CEEDAYS (CEEDAYS-Convert Date to Lilian Format) or 
  16544. CEESECS (CEESECS-Convert Timestamp to Number of Seconds) when: 
  16545.  
  16546.  You process date values containing 2-digit years (for example, in the YYMMDD 
  16547.   format). 
  16548.  
  16549.  The LE/370 default century interval does not meet the requirements of a 
  16550.   particular application. 
  16551.  
  16552. Century intervals are kept as thread-level data, so changing the interval in 
  16553. one thread does not affect the interval in another thread. 
  16554.  
  16555. To query the century window, use CEEQCEN (see CEEQCEN-Query the Century 
  16556. Window). 
  16557.  
  16558. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16559. Γöé                                                  Γöé
  16560. Γöé >>ΓöÇΓöÇCEESCENΓöÇΓöÇ(ΓöÇΓöÇcentury_startΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  16561. Γöé                                                  Γöé
  16562. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  16563.  
  16564. century_start 
  16565.           An integer between 0 and 100, setting the century window. 
  16566.  
  16567.           A value of 80, for example, places all two-digit years within the 
  16568.           100-year window starting 80 years before the system date. In 1992, 
  16569.           therefore, all two-digit years are assumed to represent dates between 
  16570.           1912 and 2011, inclusive. 
  16571.  
  16572. fc (output) 
  16573.           A 12-byte feedback code, optional in some languages, that indicates 
  16574.           the result of this service. 
  16575.  
  16576.           The following symbolic conditions can result from this service: 
  16577.  
  16578.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16579.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  16580.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  16581.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  16582.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  16583.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  16584.                     Γöé CEE2E6     Γöé 3        Γöé 2502      Γöé The UTC/GMT was not available from the system. Γöé
  16585.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  16586.  
  16587. Usage Note 
  16588.  
  16589.  OpenEdition MVS considerations-CEESCEN applies to the enclave. The century 
  16590.   window applies to the enclave. 
  16591.  
  16592. Examples 
  16593.  
  16594.  C/370 Example 
  16595.  
  16596.     /*COMPILATION UNIT: EDCSCEN   */
  16597.  
  16598.     #include <string.h>
  16599.     #include <stdio.h>
  16600.     #include <leawi.h>
  16601.     #include <ceeedcct.h>
  16602.  
  16603.     int main (void) {
  16604.  
  16605.       _INT4 century_start;
  16606.       _FEEDBACK fc;
  16607.  
  16608.       century_start = 50;
  16609.  
  16610.       CEESCEN(¢ury_start,&fc);
  16611.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  16612.          printf("CEESCEN failed with message number %d\n",
  16613.                 fc.tok_msgno);
  16614.          exit(2999);
  16615.       }
  16616.     }
  16617.  
  16618.  COBOL/370 Example 
  16619.  
  16620.     CBL LIB,APOST
  16621.           *COMPILATION UNIT: IGZTSCEN
  16622.           **************************************************
  16623.           **                                              **
  16624.           ** Function: CEESCEN - set the century window   **
  16625.           **                                              **
  16626.           ** In this example, CEESCEN is called to change **
  16627.           ** the start of the century window to 30 years  **
  16628.           ** before the system date. CEEQCEN is then      **
  16629.           ** called to query that the change made.  A     **
  16630.           ** message that this has been done is then      **
  16631.           ** displayed.                                   **
  16632.           **                                              **
  16633.           **************************************************
  16634.            IDENTIFICATION DIVISION.
  16635.            PROGRAM-ID. CBLSCEN.
  16636.            DATA DIVISION.
  16637.            WORKING-STORAGE SECTION.
  16638.            01  STARTCW                 PIC S9(9) COMP.
  16639.            01  FC.
  16640.                02  Condition-Token-Value.
  16641.                COPY  CEEIGZCT.
  16642.                    03  Case-1-Condition-ID.
  16643.                        04  Severity        PIC S9(4) COMP.
  16644.                        04  Msg-No          PIC S9(4) COMP.
  16645.                    03  Case-2-Condition-ID
  16646.                              REDEFINES Case-1-Condition-ID.
  16647.                        04  Class-Code      PIC S9(4) COMP.
  16648.                        04  Cause-Code      PIC S9(4) COMP.
  16649.                    03  Case-Sev-Ctl    PIC X.
  16650.                    03  Facility-ID     PIC XXX.
  16651.                02  I-S-Info        PIC S9(9) COMP.
  16652.            PROCEDURE DIVISION.
  16653.            PARA-CBLSCEN.
  16654.           ** Specify 30 as century start, and two-digit
  16655.           **     years will be assumed to lie in the
  16656.           **     100-year window starting 30 years before
  16657.           **     the system date.
  16658.                MOVE 30 TO STARTCW.
  16659.  
  16660.           ** Call CEESCEN to change the start of the century
  16661.           **     window.
  16662.                CALL 'CEESCEN' USING STARTCW , FC.
  16663.                IF NOT CEE000 of FC  THEN
  16664.                    DISPLAY 'CEESCEN failed with msg '
  16665.                        Msg-No of FC UPON CONSOLE;
  16666.                    STOP RUN;
  16667.                END-IF.
  16668.  
  16669.            PARA-CBLQCEN.
  16670.           ** Call CEEQCEN to return the start of the century
  16671.           **     window
  16672.                CALL 'CEEQCEN' USING STARTCW , FC.
  16673.  
  16674.           ** CEEQCEN has no non-zero feedback codes to
  16675.           **     check, so just display result.
  16676.                    DISPLAY 'The start of the century '
  16677.                        'window is: ' STARTCW
  16678.                GOBACK.
  16679.  
  16680.  PL/I Example 
  16681.  
  16682.     *PROCESS MACRO;
  16683.      /*COMPILATION UNIT: IBMSCEN                         */
  16684.      /****************************************************/
  16685.      /**                                                 */
  16686.      /** Function: CEESCEN - set the century window      */
  16687.      /**                                                 */
  16688.      /****************************************************/
  16689.      PLISCEN: PROC OPTIONS(MAIN);
  16690.  
  16691.         %INCLUDE  CEEIBMAW;
  16692.         %INCLUDE  CEEIBMCT;
  16693.  
  16694.         DCL STARTCW  INT4;
  16695.         DCL 01 FC    FEEDBACK;
  16696.  
  16697.         STARTCW = 20; /* Set 20 as century start */
  16698.  
  16699.        /* Call CEESCEN to request that two-digit years   */
  16700.        /*    lie in the 100-year window starting 20      */
  16701.        /*    years before the system date                */
  16702.         CALL CEESCEN ( STARTCW, FC );
  16703.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  16704.            PUT SKIP LIST ( 'The century window now starts '
  16705.               || STARTCW || ' years before today.');
  16706.            END;
  16707.         ELSE  DO;
  16708.            DISPLAY( 'CEESCEN failed with msg '
  16709.               || FC.MsgNo );
  16710.            STOP;
  16711.            END;
  16712.  
  16713.      END PLISCEN;
  16714.  
  16715.  
  16716. ΓòÉΓòÉΓòÉ 3.3.48. CEESECI-Convert Seconds to Integers ΓòÉΓòÉΓòÉ
  16717.  
  16718. CEESECI converts a number representing the number of seconds since 00:00 14 
  16719. October 1582 to seven separate binary integers representing year, month, day, 
  16720. hour, minute, second, and millisecond. Use CEESECI instead of CEEDATM when the 
  16721. output is needed in numeric format rather than in character format. 
  16722.  
  16723. The inverse of CEESECI is CEEISEC, which converts integer year, month, day, 
  16724. hour, second, and millisecond to number of seconds. If the input value is a 
  16725. Lilian date instead of seconds, multiply the Lilian date by 86,400 (number of 
  16726. seconds in a day), and pass the new value to CEESECI. 
  16727.  
  16728. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16729. Γöé                                                  Γöé
  16730. Γöé >>ΓöÇΓöÇCEESECIΓöÇΓöÇ(ΓöÇΓöÇinput_secondsΓöÇΓöÇ,ΓöÇΓöÇoutput_yearΓöÇΓöÇ,ΓöÇΓöÇoutput_monthΓöÇΓöÇ,ΓöÇΓöÇoutput_dayΓöÇΓöÇ,ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ> Γöé
  16731. Γöé                                                  Γöé
  16732. Γöé >ΓöÇΓöÇoutput_hoursΓöÇΓöÇ,ΓöÇΓöÇoutput_minutesΓöÇΓöÇ,ΓöÇΓöÇoutput_secondsΓöÇΓöÇ,ΓöÇΓöÇoutput_millisecondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  16733. Γöé                                                  Γöé
  16734. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  16735.  
  16736. input_seconds 
  16737.           A 64-bit double floating-point number representing the number of 
  16738.           seconds since 00:00 on 14 October 1582, not counting leap seconds. 
  16739.  
  16740.           For example, 00:01 on 15 October 1582 is second number 86,401 
  16741.           (24*60*60 + 01). The valid range for input_seconds is 86,400 to 
  16742.           265,621,679,999.999 (23:59.999 31 December 9999). 
  16743.  
  16744.           If input_seconds is invalid, all output parameters except the 
  16745.           feedback code are set to 0. 
  16746.  
  16747. output_year (output) 
  16748.           A 32-bit binary integer representing the year. 
  16749.  
  16750.           The range of valid output_years is 1582 to 9999, inclusive. 
  16751.  
  16752. output_month (output) 
  16753.           A 32-bit binary integer representing the month. 
  16754.  
  16755.           The range of valid output_months is 1 to 12. 
  16756.  
  16757. output_day (output) 
  16758.           A 32-bit binary integer representing the day. 
  16759.  
  16760.           The range of valid output_days is 1 to 31. 
  16761.  
  16762. output_hours (output) 
  16763.           A 32-bit binary integer representing the hour. 
  16764.  
  16765.           The range of valid output_hours is 0 to 23. 
  16766.  
  16767. output_minutes (output) 
  16768.           A 32-bit binary integer representing the minutes. 
  16769.  
  16770.           The range of valid output_minutes is 0 to 59. 
  16771.  
  16772. output_seconds (output) 
  16773.           A 32-bit binary integer representing the seconds. 
  16774.  
  16775.           The range of valid output_seconds is 0 to 59. 
  16776.  
  16777. output_milliseconds (output) 
  16778.           A 32-bit binary integer representing milliseconds. 
  16779.  
  16780.           The range of valid output_milliseconds is 0 to 999. 
  16781.  
  16782. fc (output) 
  16783.           A 12-byte feedback code, optional in some languages, that indicates 
  16784.           the result of this service. 
  16785.  
  16786.           The following symbolic conditions can result from this service: 
  16787.  
  16788.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16789.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  16790.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  16791.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  16792.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  16793.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  16794.                     Γöé CEE2E9     Γöé 3        Γöé 2505      Γöé The number-of-seconds value was not within the Γöé
  16795.                     Γöé        Γöé         Γöé         Γöé supported range.                Γöé
  16796.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  16797.  
  16798. Usage Notes 
  16799.  
  16800.  OpenEdition MVS consideration-In multithread applications, CEESECI affects 
  16801.   only the calling thread. 
  16802.  
  16803. Examples 
  16804.  
  16805.  C/370 Example 
  16806.  
  16807.     /*COMPILATION UNIT: EDCSECI   */
  16808.  
  16809.     #include <string.h>
  16810.     #include <stdio.h>
  16811.     #include <leawi.h>
  16812.     #include <ceeedcct.h>
  16813.  
  16814.     int main(void) {
  16815.  
  16816.       _INT4 year, month, day, hours, minutes, seconds,
  16817.             millisecs;
  16818.       _FLOAT8 input;
  16819.       _FEEDBACK fc;
  16820.  
  16821.       input = 13166064000.0;
  16822.       CEESECI(&input,&year,&month,&day,&hours,&minutes,
  16823.               &seconds,&millisecs,&fc);
  16824.  
  16825.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  16826.          printf("CEESECI failed with message number %d\n",
  16827.                 fc.tok_msgno);
  16828.          exit(2999);
  16829.       }
  16830.       printf("%f seconds corresponds to the date"
  16831.              " %d:%d:%d.%d %d/%d/%d\n",input,hours,minutes,
  16832.               seconds,millisecs,month,day,year);
  16833.     }
  16834.  
  16835.  COBOL/370 Example 
  16836.  
  16837.     CBL LIB,APOST
  16838.           *COMPILATION UNIT: IGZTSECI
  16839.           *************************************************
  16840.           **                                             **
  16841.           ** Function: CEESECI - convert seconds to      **
  16842.           ** integers                                    **
  16843.           **                                             **
  16844.           ** In this example a call is made to CEESECI   **
  16845.           ** to convert a number representing the number **
  16846.           ** of seconds since 00:00 14 October 1582   **
  16847.           ** to seven binary integers representing year, **
  16848.           ** month, day, hour, minute, second, and       **
  16849.           ** millisecond.  The results are displayed in  **
  16850.           ** this example.                               **
  16851.           **                                             **
  16852.           *************************************************
  16853.            IDENTIFICATION DIVISION.
  16854.            PROGRAM-ID. CBLSECI.
  16855.            DATA DIVISION.
  16856.            WORKING-STORAGE SECTION.
  16857.            01  INSECS                  COMP-2.
  16858.            01  YEAR                    PIC S9(9) COMP.
  16859.            01  MONTH                   PIC S9(9) COMP.
  16860.            01  DAYS                    PIC S9(9) COMP.
  16861.            01  HOURS                   PIC S9(9) COMP.
  16862.            01  MINUTES                 PIC S9(9) COMP.
  16863.            01  SECONDS                 PIC S9(9) COMP.
  16864.            01  MILLSEC                 PIC S9(9) COMP.
  16865.            01  IN-DATE.
  16866.                02  Vstring-length      PIC S9(4) COMP.
  16867.                02  Vstring-text.
  16868.                    03  Vstring-char        PIC X,
  16869.                                OCCURS 0 TO 256 TIMES,
  16870.                                DEPENDING ON Vstring-length
  16871.                                    of IN-DATE.
  16872.            01  PICSTR.
  16873.                02  Vstring-length      PIC S9(4) COMP.
  16874.                02  Vstring-text.
  16875.                    03  Vstring-char        PIC X,
  16876.                                OCCURS 0 TO 256 TIMES,
  16877.                                DEPENDING ON Vstring-length
  16878.                                   of PICSTR.
  16879.            01  FC.
  16880.                02  Condition-Token-Value.
  16881.                COPY  CEEIGZCT.
  16882.                    03  Case-1-Condition-ID.
  16883.                        04  Severity        PIC S9(4) COMP.
  16884.                        04  Msg-No          PIC S9(4) COMP.
  16885.                    03  Case-2-Condition-ID
  16886.                              REDEFINES Case-1-Condition-ID.
  16887.                        04  Class-Code      PIC S9(4) COMP.
  16888.                        04  Cause-Code      PIC S9(4) COMP.
  16889.                    03  Case-Sev-Ctl    PIC X.
  16890.                    03  Facility-ID     PIC XXX.
  16891.                02  I-S-Info        PIC S9(9) COMP.
  16892.            PROCEDURE DIVISION.
  16893.            PARA-CBLSECS.
  16894.           ** Call CEESECS to convert timestamp of 6/2/88
  16895.           **     at 10:45 AM to Lilian representation
  16896.                MOVE 20 TO Vstring-length of IN-DATE.
  16897.                MOVE '06/02/88 10:45 AM'
  16898.                    TO Vstring-text of IN-DATE.
  16899.                MOVE 20 TO Vstring-length of PICSTR.
  16900.                MOVE 'MM/DD/YY HH:MI:SS AM'
  16901.                    TO Vstring-text of PICSTR.
  16902.                CALL 'CEESECS' USING IN-DATE, PICSTR,
  16903.                    INSECS, FC.
  16904.                IF NOT CEE000 of FC  THEN
  16905.                    DISPLAY 'CEESECS failed with msg '
  16906.                        Msg-No of FC UPON CONSOLE;
  16907.                    STOP RUN;
  16908.                END-IF.
  16909.  
  16910.            PARA-CBLSECI.
  16911.           ** Call CEESECI to convert seconds to integers
  16912.                CALL 'CEESECI' USING INSECS, YEAR, MONTH,
  16913.                    DAYS, HOURS,  MINUTES, SECONDS,
  16914.                    MILLSEC, FC.
  16915.           ** If CEESECI runs successfully, display results
  16916.                IF CEE000 of FC  THEN
  16917.                    DISPLAY 'Input seconds of ' INSECS
  16918.                        ' represents:'
  16919.                    DISPLAY '   Year......... ' YEAR
  16920.                    DISPLAY '   Month........ ' MONTH
  16921.                    DISPLAY '   Day.......... ' DAYS
  16922.                    DISPLAY '   Hour......... ' HOURS
  16923.                    DISPLAY '   Minute....... ' MINUTES
  16924.                    DISPLAY '   Second....... ' SECONDS
  16925.                    DISPLAY '   Millisecond.. ' MILLSEC
  16926.                ELSE
  16927.                    DISPLAY 'CEESECI failed with msg '
  16928.                        Msg-No of FC UPON CONSOLE;
  16929.                    STOP RUN;
  16930.                END-IF.
  16931.  
  16932.                GOBACK.
  16933.  
  16934.  PL/I Example 
  16935.  
  16936.     *PROCESS MACRO;
  16937.      /*COMPILATION UNIT: IBMSECI                         */
  16938.      /****************************************************/
  16939.      /**                                                 */
  16940.      /** Function: CEESECI - convert seconds to integers */
  16941.      /**                                                 */
  16942.      /****************************************************/
  16943.      PLISECI: PROC OPTIONS(MAIN);
  16944.  
  16945.         %INCLUDE  CEEIBMAW;
  16946.         %INCLUDE  CEEIBMCT;
  16947.  
  16948.         DCL INSECS   FLOAT8;
  16949.         DCL YEAR     INT4;
  16950.         DCL MONTH    INT4;
  16951.         DCL DAYS     INT4;
  16952.         DCL HOURS    INT4;
  16953.         DCL MINUTES  INT4;
  16954.         DCL SECONDS  INT4;
  16955.         DCL MILLSEC  INT4;
  16956.         DCL 01 FC    FEEDBACK;
  16957.  
  16958.         INSECS = 13166064060; /* number of seconds since */
  16959.                               /* 14 October 1582         */
  16960.  
  16961.         /* Call CEESECI to convert INSECS to separate    */
  16962.         /*    binary integers representing the year,     */
  16963.         /*    month, day, hours, minutes, seconds and    */
  16964.         /*    milliseconds.                              */
  16965.         CALL CEESECI ( INSECS, YEAR, MONTH, DAYS,
  16966.            HOURS, MINUTES, SECONDS, MILLSEC, FC );
  16967.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  16968.            PUT EDIT( INSECS, ' seconds corresponds to ',
  16969.                  MONTH, '/', DAYS, '/', YEAR, ' at ', HOURS,
  16970.                  ':', MINUTES, ':', SECONDS, '.', MILLSEC )
  16971.               (SKIP, F(9), A, 2 (P'99',A), P'9999', A,
  16972.                  3 (P'99', A), P'999' );
  16973.            END;
  16974.         ELSE  DO;
  16975.            DISPLAY( 'CEESECI failed with msg '
  16976.               || FC.MsgNo );
  16977.            STOP;
  16978.            END;
  16979.  
  16980.      END PLISECI;
  16981.  
  16982.  
  16983. ΓòÉΓòÉΓòÉ 3.3.49. CEESECS-Convert Timestamp to Number of Seconds ΓòÉΓòÉΓòÉ
  16984.  
  16985. CEESECS converts a string representing a timestamp into a number representing 
  16986. the number of Lilian seconds (number of seconds since 00:00 14 October 1582). 
  16987. This service makes it easier to perform time arithmetic, such as calculating 
  16988. the elapsed time between two timestamps. 
  16989.  
  16990. The inverse of CEESECS is CEEDATM, which converts output_seconds to character 
  16991. format. By default, 2-digit years lie within the 100 year range starting 80 
  16992. years prior to the system date. Thus, in 1993, all 2-digit years represent 
  16993. dates between 1913 and 2012, inclusive. You can change this range by using the 
  16994. callable service CEESCEN-Set the Century Window. 
  16995.  
  16996. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  16997. Γöé                                                  Γöé
  16998. Γöé >>ΓöÇΓöÇCEESECSΓöÇΓöÇ(ΓöÇΓöÇinput_timestampΓöÇΓöÇ,ΓöÇΓöÇpicture_stringΓöÇΓöÇ,ΓöÇΓöÇoutput_secondsΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  16999. Γöé                                                  Γöé
  17000. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17001.  
  17002. input_timestamp (input) 
  17003.           A length-prefixed character string representing a date or timestamp 
  17004.           in a format matching that specified by picture_string. 
  17005.  
  17006.           The character string must contain between 5 and 80 picture 
  17007.           characters, inclusive. input_timestamp can contain leading or 
  17008.           trailing blanks. Parsing begins with the first nonblank character 
  17009.           (unless the picture string itself contains leading blanks; in this 
  17010.           case, CEESECS skips exactly that many positions before parsing 
  17011.           begins). 
  17012.  
  17013.           After a valid date is parsed, as determined by the format of the date 
  17014.           you specify in picture_string, all remaining characters are ignored 
  17015.           by CEESECS. Valid dates range between and including the dates 15 
  17016.           October 1582 to 31 December 9999. A full date must be specified. 
  17017.           Valid times range from 00:00.000 to 23:59.999. 
  17018.  
  17019.           If any part or all of the time value is omitted, zeros are 
  17020.           substituted for the remaining values. For example: 
  17021.  
  17022.                     1992-05-17-19:02 is equivalent to 1992-05-17-19:00
  17023.                     1992-05-17       is equivalent to 1992-05-17-00:00
  17024.  
  17025. picture_string (input) 
  17026.           VSTRING, a length-prefixed character string, indicating the format of 
  17027.           the date or timestamp value specified in input_timestamp. 
  17028.  
  17029.           Each character in the picture_string represents a character in 
  17030.           input_timestamp. For example, if you specify MMDDYY HH.MI.SS as the 
  17031.           picture_string, CEESECS reads an input_char_date of 060288 15.35.02 
  17032.           as 3:02 PM on 02 June 1988. If delimiters such as the slash (/) 
  17033.           appear in the picture string, leading zeros can be omitted. For 
  17034.           example, the following calls to CEESECS all assign the same value to 
  17035.           variable secs: 
  17036.  
  17037.                     CALL CEESECS('92/06/03 15.35.03', 'YY/MM/DD
  17038.                                   HH.MI.SS', secs, fc);
  17039.                     CALL CEESECS('92/6/3 15.35.03'  , 'YY/MM/DD
  17040.                                   HH.MI.SS', secs, fc);
  17041.                     CALL CEESECS('92/6/3 3.35.03 PM', 'YY/MM/DD
  17042.                                   HH.MI.SS AP', secs, fc);
  17043.                     CALL CEESECS('92.155 3.35.03 pm', 'YY.DDD
  17044.                                   HH.MI.SS AP', secs, fc);
  17045.  
  17046.           If picture string is left null or blank, CEESECS obtains 
  17047.           picture_string based on the current value of the COUNTRY run-time 
  17048.           option (see COUNTRY). For example, if the current value of the 
  17049.           COUNTRY run-time option is FR (France), the date format would be 
  17050.           DD.MM.YYYY. 
  17051.  
  17052.           If picture_string includes a Japanese era symbol <JJJJ>, the YY 
  17053.           position in input_timestamp represents the year number within the 
  17054.           Japanese era. For example, the year 1988 equals the Japanese year 63 
  17055.           in the Showa era. See Japanese Eras Used by Date/Time Services when 
  17056.           <JJJJ> Specified for a list of Japanese eras supported by CEESECS. 
  17057.  
  17058.           If picture_string includes a Republic of China (ROC) Era symbol 
  17059.           <CCCC> or <CCCCCCCC>, the YY position in input_timestamp represents 
  17060.           the year number within the ROC Era. For example, the year 1988 equals 
  17061.           the ROC year 77 in the MinKow Era. 
  17062.  
  17063.           See Republic of China Eras Used by Date/Time Services when <CCCC>or 
  17064.           <CCCCCCCC> Specified for a list of ROC Eras supported by CEESECS. 
  17065.  
  17066.           See Picture Terms Used in Picture Strings for a list of valid picture 
  17067.           characters, and Examples of Picture Terms Recognized by Date/Time 
  17068.           Services for examples of valid picture strings. 
  17069.  
  17070. output_seconds (output) 
  17071.           A 64-bit double floating-point number representing the number of 
  17072.           seconds since 00:00 on 14 October 1582, not counting leap seconds. 
  17073.           For example, 00:01 on 15 October 1582 is second 86,401 (24*60*60 + 
  17074.           01) in the Lilian format. 19:01.12 on 16 May 1988 is second 
  17075.           12,799,191,601.12. 
  17076.  
  17077.           The largest value represented is 23:59.999 on 31 December 9999, which 
  17078.           is second 265,621,679,999.999 in the Lilian format. 
  17079.  
  17080.           A 64-bit double floating-point value can accurately represent 
  17081.           approximately 16 significant decimal digits without loss of 
  17082.           precision. Therefore, accuracy is available to the nearest 
  17083.           millisecond (15 decimal digits). 
  17084.  
  17085.           If input_timestamp does not contain a valid date or timestamp, 
  17086.           output_seconds is set to 0 and CEESECS terminates with a non-CEE000 
  17087.           symbolic feedback code. 
  17088.  
  17089.           Elapsed time calculations are performed easily on the output_seconds, 
  17090.           because it represents elapsed time. Leap year and end-of-year 
  17091.           anomalies are avoided. 
  17092.  
  17093. fc (output) 
  17094.           A 12-byte feedback code, optional in some languages, that indicates 
  17095.           the result of this service. 
  17096.  
  17097.           The following symbolic conditions can result from this service: 
  17098.  
  17099.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  17100.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  17101.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  17102.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17103.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  17104.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17105.                     Γöé CEE2EB     Γöé 3        Γöé 2507      Γöé Insufficient data was passed to CEEDAYS or   Γöé
  17106.                     Γöé        Γöé         Γöé         Γöé CEESECS.  The Lilian value was not calculated. Γöé
  17107.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17108.                     Γöé CEE2EC     Γöé 3        Γöé 2508      Γöé The date value passed to CEEDAYS or CEESECS   Γöé
  17109.                     Γöé        Γöé         Γöé         Γöé was invalid.                  Γöé
  17110.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17111.                     Γöé CEE2ED     Γöé 3        Γöé 2509      Γöé The Japanese or Republic of China Era passed  Γöé
  17112.                     Γöé        Γöé         Γöé         Γöé to CEEDAYS or CEESECS was not recognized.    Γöé
  17113.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17114.                     Γöé CEE2EE     Γöé 3        Γöé 2510      Γöé The hours value was not recognized.       Γöé
  17115.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17116.                     Γöé CEE2EH     Γöé 3        Γöé 2513      Γöé The input date was not within the supported   Γöé
  17117.                     Γöé        Γöé         Γöé         Γöé range.                     Γöé
  17118.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17119.                     Γöé CEE2EK     Γöé 3        Γöé 2516      Γöé The minutes value was not recognized.      Γöé
  17120.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17121.                     Γöé CEE2EL     Γöé 3        Γöé 2517      Γöé The month value was not recognized.       Γöé
  17122.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17123.                     Γöé CEE2EM     Γöé 3        Γöé 2518      Γöé An invalid picture string was specified.    Γöé
  17124.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17125.                     Γöé CEE2EN     Γöé 3        Γöé 2519      Γöé The seconds value was not recognized.      Γöé
  17126.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17127.                     Γöé CEE2EP     Γöé 3        Γöé 2521      Γöé The Japanese or Chinese year-within-Era value  Γöé
  17128.                     Γöé        Γöé         Γöé         Γöé passed to CEEDAYS or CEESECS was zero.     Γöé
  17129.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17130.                     Γöé CEE2ET     Γöé 3        Γöé 2525      Γöé CEESECS detected non-numeric data in a numeric Γöé
  17131.                     Γöé        Γöé         Γöé         Γöé field, or the timestamp string did not match  Γöé
  17132.                     Γöé        Γöé         Γöé         Γöé the picture string.               Γöé
  17133.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17134.  
  17135. Usage Notes 
  17136.  
  17137.  The probable cause for receiving message number 2518 is a picture string that 
  17138.   contains an invalid DBCS string. You should verify that the data in the 
  17139.   picture string is correct. 
  17140.  
  17141.  OpenEdition MVS consideration-In multithread applications, CEESECS affects 
  17142.   only the calling thread. 
  17143.  
  17144. Examples 
  17145.  
  17146.  C/370 Example 
  17147.  
  17148.     /*COMPILATION UNIT: EDCSECS   */
  17149.  
  17150.     #include <stdio.h>
  17151.     #include <string.h>
  17152.     #include <leawi.h>
  17153.     #include <ceeedcct.h>
  17154.  
  17155.     int main(void) {
  17156.  
  17157.        _FEEDBACK fc;
  17158.        _FLOAT8 seconds1, seconds2;
  17159.        _VSTRING date,date_pic;
  17160.  
  17161.        /* use CEESECS to convert to seconds timestamp */
  17162.        strcpy(date.string,"09/13/91 23:23");
  17163.        date.length = strlen(date.string);
  17164.        strcpy(date_pic.string,"MM/DD/YY HH:MI:SS");
  17165.        date_pic.length = strlen(date_pic.string);
  17166.  
  17167.        CEESECS(17 May 1994,17 May 1994_pic,&seconds1,&fc);
  17168.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  17169.           printf("CEESECS failed with message number %d\n",
  17170.                fc.tok_msgno);
  17171.           exit(2999);
  17172.        }
  17173.  
  17174.        strcpy(date.string,
  17175.                 "December 15, 1992 at 8:45 AM");
  17176.        date.length = strlen(date.string);
  17177.        strcpy(date_pic.string,
  17178.                   "Mmmmmmmmmmmz DD, YYYY at ZH:MI:SS AP");
  17179.        date_pic.length = strlen(date_pic.string);
  17180.  
  17181.        CEESECS(17 May 1994,17 May 1994_pic,&seconds2,&fc);
  17182.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  17183.           printf("CEESECS failed with message number %d\n",
  17184.                  fc.tok_msgno);
  17185.           exit(2999);
  17186.        }
  17187.  
  17188.        printf("The number of seconds between:\n");
  17189.        printf(" September 13, 1991 at 11:23 PM");
  17190.        printf(
  17191.         " and December 15, 1992 at 8:45 AM is:
  17192.                      seconds2 - seconds1);
  17193.     }
  17194.  
  17195.  COBOL/370 Example 
  17196.  
  17197.     CBL LIB,APOST
  17198.           *COMPILATION UNIT: IGZTSECS
  17199.           ************************************************
  17200.           **                                            **
  17201.           ** Function: CEESECS - convert timestamp to   **
  17202.           **                     number of seconds      **
  17203.           **                                            **
  17204.           ** In this example, calls are made to CEESECS **
  17205.           ** to convert two timestamps to the number of **
  17206.           ** seconds since 00:00 14 October 1582.    **
  17207.           ** The Lilian seconds for the earlier         **
  17208.           ** timestamp are then subtracted from the     **
  17209.           ** Lilian seconds for the later timestamp     **
  17210.           ** to determine the number of between the     **
  17211.           ** two.  This result is displayed.            **
  17212.           **                                            **
  17213.           ************************************************
  17214.            IDENTIFICATION DIVISION.
  17215.            PROGRAM-ID. CBLSECS.
  17216.            DATA DIVISION.
  17217.            WORKING-STORAGE SECTION.
  17218.            01  SECOND1                 COMP-2.
  17219.            01  SECOND2                 COMP-2.
  17220.            01  TIMESTP.
  17221.                02  Vstring-length      PIC S9(4) COMP.
  17222.                02  Vstring-text.
  17223.                    03  Vstring-char        PIC X,
  17224.                                OCCURS 0 TO 256 TIMES,
  17225.                                DEPENDING ON Vstring-length
  17226.                                   of TIMESTP.
  17227.            01  TIMESTP2.
  17228.                02  Vstring-length      PIC S9(4) COMP.
  17229.                02  Vstring-text.
  17230.                    03  Vstring-char        PIC X,
  17231.                                OCCURS 0 TO 256 TIMES,
  17232.                                DEPENDING ON Vstring-length
  17233.                                   of TIMESTP2.
  17234.            01  PICSTR.
  17235.                02  Vstring-length      PIC S9(4) COMP.
  17236.                02  Vstring-text.
  17237.                    03  Vstring-char        PIC X,
  17238.                                OCCURS 0 TO 256 TIMES,
  17239.                                DEPENDING ON Vstring-length
  17240.                                   of PICSTR.
  17241.            01  FC.
  17242.                02  Condition-Token-Value.
  17243.                COPY  CEEIGZCT.
  17244.                    03  Case-1-Condition-ID.
  17245.                        04  Severity        PIC S9(4) COMP.
  17246.                        04  Msg-No          PIC S9(4) COMP.
  17247.                    03  Case-2-Condition-ID
  17248.                              REDEFINES Case-1-Condition-ID.
  17249.                        04  Class-Code      PIC S9(4) COMP.
  17250.                        04  Cause-Code      PIC S9(4) COMP.
  17251.                    03  Case-Sev-Ctl    PIC X.
  17252.                    03  Facility-ID     PIC XXX.
  17253.                02  I-S-Info        PIC S9(9) COMP.
  17254.            PROCEDURE DIVISION.
  17255.  
  17256.            PARA-SECS1.
  17257.           ** Specify first timestamp and a picture string
  17258.           **     describing the format of the timestamp
  17259.           **     as input to CEESECS
  17260.                MOVE 25 TO Vstring-length of TIMESTP.
  17261.                MOVE '1969-05-07 12:00.000'
  17262.                    to Vstring-text of TIMESTP.
  17263.                MOVE 25 TO Vstring-length of PICSTR.
  17264.                MOVE 'YYYY-MM-DD HH:MI:SS.999'
  17265.                    TO Vstring-text of PICSTR.
  17266.  
  17267.           ** Call CEESECS to convert the first timestamp to
  17268.           **     Lilian seconds
  17269.                CALL 'CEESECS' USING TIMESTP, PICSTR,
  17270.                    SECOND1, FC.
  17271.                IF NOT CEE000 of FC  THEN
  17272.                    DISPLAY 'CEESECS failed with msg '
  17273.                        Msg-No of FC UPON CONSOLE;
  17274.                    STOP RUN;
  17275.                END-IF.
  17276.  
  17277.            PARA-SECS2.
  17278.           ** Specify second timestamp and a picture string
  17279.           **     describing the format of the timestamp as
  17280.           **     input to CEESECS.
  17281.                MOVE 25 TO Vstring-length of TIMESTP2.
  17282.                MOVE '2000-01-01 00:01.000'
  17283.                    to Vstring-text of TIMESTP2.
  17284.                MOVE 25 TO Vstring-length of PICSTR.
  17285.                MOVE 'YYYY-MM-DD HH:MI:SS.999'
  17286.                    TO Vstring-text of PICSTR.
  17287.  
  17288.           ** Call CEESECS to convert the second timestamp
  17289.           **     to Lilian seconds
  17290.                CALL 'CEESECS' USING TIMESTP2, PICSTR,
  17291.                    SECOND2, FC.
  17292.                IF NOT CEE000 of FC  THEN
  17293.                    DISPLAY 'CEESECS failed with msg '
  17294.                        Msg-No of FC UPON CONSOLE;
  17295.                    STOP RUN;
  17296.                END-IF.
  17297.  
  17298.            PARA-SECS2.
  17299.           ** Subtract SECOND2 from SECOND1 to determine the
  17300.           **     number of seconds between the two timestamps
  17301.                SUBTRACT SECOND1 FROM SECOND2.
  17302.                DISPLAY 'The number of seconds between '
  17303.                    Vstring-text OF TIMESTP ' and '
  17304.                    Vstring-text OF TIMESTP2 ' is: ' SECOND2.
  17305.                GOBACK.
  17306.  
  17307.  PL/I Example 
  17308.  
  17309.     *PROCESS MACRO;
  17310.      /*COMPILATION UNIT: IBMSECS                          */
  17311.      /*****************************************************/
  17312.      /**                                                  */
  17313.      /** Function: CEESECS - Convert timestamp to seconds */
  17314.      /**                                                  */
  17315.      /** In this example, CEESECS is called to return an  */
  17316.      /** input timestamp as the number of seconds since   */
  17317.      /** 14 October 1582.                                 */
  17318.      /**                                                  */
  17319.      /*****************************************************/
  17320.      PLISECS: PROC OPTIONS(MAIN);
  17321.  
  17322.         %INCLUDE  CEEIBMAW;
  17323.         %INCLUDE  CEEIBMCT;
  17324.  
  17325.         DCL TIMESTP VSTRING;
  17326.         DCL PICSTR VSTRING;
  17327.         DCL SECONDS FLOAT8;
  17328.         DCL 01 FC FEEDBACK;
  17329.  
  17330.         TIMESTP = '10 November 1992'; /* Specify input   */
  17331.                                     /* date as timestamp */
  17332.         PICSTR  = 'ZD Mmmmmmmmmmmmmmz YYYY';
  17333.                /* Picture string that descibes timestamp */
  17334.  
  17335.         /* Call CEESECS to return the input date as      */
  17336.         /*    Lilian seconds                             */
  17337.         CALL CEESECS ( TIMESTP, PICSTR, SECONDS, FC );
  17338.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  17339.            PUT SKIP LIST( 'There were ' || SECONDS
  17340.               || ' seconds between 14 Oct 1582 and '
  17341.               || TIMESTP );
  17342.            END;
  17343.         ELSE  DO;
  17344.            DISPLAY( 'CEESECS failed with msg '
  17345.               || FC.MsgNo );
  17346.            STOP;
  17347.            END;
  17348.  
  17349.      END PLISECS;
  17350.  
  17351.  
  17352. ΓòÉΓòÉΓòÉ 3.3.50. CEESGL-Signal a Condition ΓòÉΓòÉΓòÉ
  17353.  
  17354. CEESGL raises, or signals, a condition to the condition manager. It also 
  17355. provides qualifying data and creates an ISI for a particular instance of the 
  17356. condition. The ISI contains information used by the LE/370 condition manager to 
  17357. identify and react to conditions. 
  17358.  
  17359. CEESGL generates an LE/370 condition. You can map some of the LE/370 conditions 
  17360. to POSIX signals (see LE/370 Programming Guide for more information). 
  17361.  
  17362. Unique conditions signaled by CEESGL are considered to be enabled under LE/370. 
  17363. Therefore, they undergo LE/370 condition handling. 
  17364.  
  17365. CEESGL can signal a POSIX condition. If CEESGL signals a POSIX condition and 
  17366. the signal is blocked at the time of the generation but later unblocked and 
  17367. delivered, the POSIX signal processing semantics are applied. The LE/370 
  17368. synchronous condition manager semantics do not apply. 
  17369.  
  17370. CEESGL is typically used to generate application-specific conditions that are 
  17371. recognized by condition handlers registered via CEEHDLR. Conditions can also be 
  17372. selected to simulate an LE/370 or system condition. 
  17373.  
  17374. Severity 0 and 1 conditions are considered safe conditions. They can be ignored 
  17375. if they are not handled and if no feedback token is passed when the condition 
  17376. is raised. 
  17377.  
  17378. Each enabled signaled condition (of severity 2 or above) increments the error 
  17379. count by one. If the error count exceeds the error count limit (as specified by 
  17380. the ERRCOUNT run-time option-see ERRCOUNT), the condition manager terminates 
  17381. the enclave with abend code 4091, reason code 11. T_I_U (Termination Imminent 
  17382. due to an Unhandled Condition) is not issued. Promoted conditions do not 
  17383. increment the error count. A program established using the CEEHDLR callable 
  17384. service or one of the high-level language condition handlers, can then process 
  17385. the raised condition. 
  17386.  
  17387. ERRCOUNT does not apply if the condition generated by CEESGL is delivered 
  17388. asynchronously. POSIX signal handling semantics are then applied to the 
  17389. condition. 
  17390.  
  17391. S/370 Interrupt Code Descriptions contains a list of the S/370 program 
  17392. interrupt codes and their corresponding LE/370 condition token names and 
  17393. message numbers. 
  17394.  
  17395. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  17396. Γöé                                                  Γöé
  17397. Γöé >>ΓöÇΓöÇCEESGLΓöÇΓöÇ(ΓöÇΓöÇcond_repΓöÇΓöÇ,ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  17398. Γöé               ΓööΓöÇq_data_tokenΓöÇΓöÇ,ΓöÇΓöÿ                          Γöé
  17399. Γöé                                                  Γöé
  17400. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17401.  
  17402. cond_rep (input) 
  17403.           A 12-byte condition token representing the condition to be signaled. 
  17404.  
  17405.           You can either construct your own condition token or use one that 
  17406.           LE/370 has already defined. To construct your own condition token, 
  17407.           see CEENCOD-Construct a Condition Token. 
  17408.  
  17409.           Conditions signaled by CEESGL are not necessarily handled by LE/370. 
  17410.           If you call CEESGL with a cond_rep, LE/370 passes control to the 
  17411.           language in which the routine is written. The condition manager then 
  17412.           determines whether it should handle the condition. If so, the HLL 
  17413.           handles the condition. If not, control returns to LE/370. The 
  17414.           condition might also be ignored or blocked, or might result in 
  17415.           enclave termination. 
  17416.  
  17417. q_data_token (input/output) 
  17418.           An optional 32-bit data object placed in the ISI to access the 
  17419.           qualifying data (q_data) associated with the given instance of the 
  17420.           condition. The q_data_token is a list of information addresses a user 
  17421.           condition handler uses to specifically identify and, if necessary, 
  17422.           react to, a given condition. The information in the q_data_token 
  17423.           provides a mechanism by which user-written condition handlers can 
  17424.           provide a complete fix-up of some conditions. 
  17425.  
  17426.           q_data tokens associated with a condition using CEESGL can be 
  17427.           extracted later using the CEEGQDT callable service (see 
  17428.           CEEGQDT-Retrieve q_data_token for more information). 
  17429.  
  17430. fc (output) 
  17431.           A 12-byte feedback code, optional in some languages, that indicates 
  17432.           the result of this service. 
  17433.  
  17434.           The following symbolic conditions can result from this service: 
  17435.  
  17436.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  17437.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  17438.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  17439.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17440.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  17441.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17442.                     Γöé CEE069     Γöé 0        Γöé 0201      Γöé An unhandled condition was returned in a feed- Γöé
  17443.                     Γöé        Γöé         Γöé         Γöé back code.                   Γöé
  17444.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17445.                     Γöé CEE0CE     Γöé 1        Γöé 0398      Γöé Resume with new input.             Γöé
  17446.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17447.                     Γöé CEE0CF     Γöé 1        Γöé 0399      Γöé Resume with new output.             Γöé
  17448.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17449.                     Γöé CEE0EB     Γöé 3        Γöé 0459      Γöé Not enough storage was available to create a  Γöé
  17450.                     Γöé        Γöé         Γöé         Γöé new instance specific information block.    Γöé
  17451.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17452.                     Γöé CEE0EE     Γöé 3        Γöé 0462      Γöé Instance specific information for the condi-  Γöé
  17453.                     Γöé        Γöé         Γöé         Γöé tion token with message number message-number  Γöé
  17454.                     Γöé        Γöé         Γöé         Γöé and facility ID facility-id could not be    Γöé
  17455.                     Γöé        Γöé         Γöé         Γöé found.                     Γöé
  17456.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17457.  
  17458. Usage Notes 
  17459.  
  17460.  PL/I consideration-Conditions with a facility ID of IBM cannot be used in 
  17461.   CEESGL. 
  17462.  
  17463.  OpenEdition MVS consideration-In multithread applications, CEESGL affects 
  17464.   only the calling thread. 
  17465.  
  17466. Examples 
  17467.  
  17468.  C/370 Example 
  17469.  
  17470.     /*COMPILATION UNIT: EDCSGL    */
  17471.  
  17472.     #include <stdio.h>
  17473.     #include <string.h>
  17474.     #include <leawi.h>
  17475.     #include <ceeedcct.h>
  17476.  
  17477.     int main(void) {
  17478.  
  17479.       _FEEDBACK fc,condtok;
  17480.       _ENTRY routine;
  17481.       _INT4 token,qdata;
  17482.       _INT2 c_1,c_2,cond_case,sev,control;
  17483.       _CHAR3 facid;
  17484.       _INT4 isi;
  17485.  
  17486.      /* .
  17487.         .
  17488.         . */
  17489.       /* build the condition token */
  17490.       c_1 = 1;
  17491.       c_2 = 99;
  17492.       cond_case = 1;
  17493.       sev = 1;
  17494.       control = 0;
  17495.       memcpy(facid,"ZZZ",3);
  17496.       isi = 0;
  17497.  
  17498.       CEENCOD(&c_1,&c_2,&cond_case,&sev,&control,
  17499.               facid,&isi,&condtok,&fc);
  17500.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  17501.          printf("CEENCOD failed with message number %d\n",
  17502.                 fc.tok_msgno);
  17503.          exit(2999);
  17504.       }
  17505.  
  17506.       /* signal the condition */
  17507.       CEESGL(&condtok,&qdata,&fc);
  17508.       if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  17509.          printf("CEESGL failed with message number %d\n",
  17510.                 fc.tok_msgno);
  17511.          exit(2999);
  17512.       }
  17513.      /* .
  17514.         .
  17515.         . */
  17516.     }
  17517.  
  17518.  COBOL/370 Example 
  17519.  
  17520.     CBL LIB,APOST
  17521.           *COMPILATION UNIT: IGZTSGL
  17522.           ********************************************
  17523.           **                                        **
  17524.           ** Function: CEESGL  - signal a condition **
  17525.           **                                        **
  17526.           ********************************************
  17527.            IDENTIFICATION DIVISION.
  17528.            PROGRAM-ID. CBLSGL.
  17529.            DATA DIVISION.
  17530.            WORKING-STORAGE SECTION.
  17531.            01  CONDTOK.
  17532.                02  Condition-Token-Value.
  17533.                COPY  CEEIGZCT.
  17534.                    03  Case-1-Condition-ID.
  17535.                        04  Severity        PIC S9(4) COMP.
  17536.                        04  Msg-No          PIC S9(4) COMP.
  17537.                    03  Case-2-Condition-ID
  17538.                              REDEFINES Case-1-Condition-ID.
  17539.                        04  Class-Code      PIC S9(4) COMP.
  17540.                        04  Cause-Code      PIC S9(4) COMP.
  17541.                    03  Case-Sev-Ctl    PIC X.
  17542.                    03  Facility-ID     PIC XXX.
  17543.                02  I-S-Info        PIC S9(9) COMP.
  17544.            01  QDATA                    PIC S9(9) COMP.
  17545.            01  FC.
  17546.                02  Condition-Token-Value.
  17547.                COPY  CEEIGZCT.
  17548.                    03  Case-1-Condition-ID.
  17549.                        04  Severity        PIC S9(4) COMP.
  17550.                        04  Msg-No          PIC S9(4) COMP.
  17551.                    03  Case-2-Condition-ID
  17552.                              REDEFINES Case-1-Condition-ID.
  17553.                        04  Class-Code      PIC S9(4) COMP.
  17554.                        04  Cause-Code      PIC S9(4) COMP.
  17555.                    03  Case-Sev-Ctl    PIC X.
  17556.                    03  Facility-ID     PIC XXX.
  17557.                02  I-S-Info        PIC S9(9) COMP.
  17558.            01  SEV                     PIC S9(4) COMP.
  17559.            01  MSGNO                   PIC S9(4) COMP.
  17560.            01  CASE                    PIC S9(4) COMP.
  17561.            01  SEV2                    PIC S9(4) COMP.
  17562.            01  CNTRL                   PIC S9(4) COMP.
  17563.            01  FACID                   PIC X(3).
  17564.            01  ISINFO                  PIC S9(9) COMP.
  17565.  
  17566.            PROCEDURE DIVISION.
  17567.  
  17568.            PARA-CBLSGL.
  17569.           ** Call CEENCOD with the values assigned above to
  17570.           **     build a condition token "CONDTOK"
  17571.           ** Set CONDTOK to sev = 0, msgno = 1 facid = CEE
  17572.                MOVE 0 TO SEV.
  17573.                MOVE 1 TO MSGNO.
  17574.                MOVE 1 TO CASE.
  17575.                MOVE 0 TO SEV2.
  17576.                MOVE 1 TO CNTRL.
  17577.                MOVE 'CEE' TO FACID.
  17578.                MOVE 0 TO ISINFO.
  17579.  
  17580.                CALL 'CEENCOD' USING SEV, MSGNO, CASE,
  17581.                    SEV2, CNTRL, FACID, ISINFO, CONDTOK, FC.
  17582.                IF NOT CEE000 of FC  THEN
  17583.                    DISPLAY 'CEENCOD failed with msg '
  17584.                        Msg-No of FC UPON CONSOLE;
  17585.                    STOP RUN;
  17586.                END-IF.
  17587.  
  17588.           ** Call CEESGL to signal the condition with
  17589.           **     the condition token and qdata described
  17590.           **     in CONDTOK and QDATA
  17591.                MOVE 0 TO QDATA.
  17592.                CALL 'CEESGL' USING CONDTOK , QDATA , FC.
  17593.                IF NOT CEE000 of FC  THEN
  17594.                    DISPLAY 'CEESGL  failed with msg '
  17595.                        Msg-No of FC UPON CONSOLE;
  17596.                    STOP RUN;
  17597.                END-IF.
  17598.  
  17599.                GOBACK.
  17600.  
  17601.  PL/I Example 
  17602.  
  17603.     *PROCESS MACRO;
  17604.      /*COMPILATION UNIT: IBMSGL                   */
  17605.      /*********************************************/
  17606.      /**                                          */
  17607.      /** Function: CEESGL  - Signal a Condition   */
  17608.      /**                                          */
  17609.      /*********************************************/
  17610.      PLISGL: PROC OPTIONS(MAIN);
  17611.  
  17612.         %INCLUDE  CEEIBMAW;
  17613.         %INCLUDE  CEEIBMCT;
  17614.         DCL 01 CONDTOK  FEEDBACK;
  17615.         DCL QDATA  INT4;
  17616.         DCL 01 FC  FEEDBACK;
  17617.  
  17618.         /* Give CONDTOK value of condition CEE001        */
  17619.         ADDR( CONDTOK ) -> CEEIBMCT = CEE001;
  17620.  
  17621.         /* Signal condition CEE001 with qualifying data  */
  17622.         QDATA = 1;
  17623.         CALL CEESGL ( CONDTOK, QDATA, FC );
  17624.         IF  FBCHECK( FC, CEE000)  THEN  DO;
  17625.            PUT SKIP LIST( 'Condition CEE001 signalled' );
  17626.            END;
  17627.         ELSE  DO;
  17628.            DISPLAY( 'CEESGL  failed with msg '
  17629.               || FC.MsgNo );
  17630.            STOP;
  17631.            END;
  17632.  
  17633.      END PLISGL;
  17634.  
  17635.  
  17636. ΓòÉΓòÉΓòÉ 3.3.51. CEETEST-Invoke Debug Tool ΓòÉΓòÉΓòÉ
  17637.  
  17638. CEETEST invokes a debug service such as Debug Tool/370. 
  17639.  
  17640. Debug Tool/370 is not supported for applications with POSIX(ON) in effect. If 
  17641. you want to invoke another interactive debug service, refer to the appropriate 
  17642. user's guide. 
  17643.  
  17644. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  17645. Γöé                                                  Γöé
  17646. Γöé >>ΓöÇΓöÇCEETESTΓöÇΓöÇ(ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  17647. Γöé         ΓööΓöÇstring_of_commandsΓöÇΓöÇ,ΓöÇΓöÿ                             Γöé
  17648. Γöé                                                  Γöé
  17649. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17650.  
  17651. string_of_commands (input) 
  17652.           A halfword prefixed string containing a debug tool command list. 
  17653.           string_of_commands is optional. 
  17654.  
  17655.           If a debug tool is available, the commands in the list are passed to 
  17656.           the debug tool and carried out. 
  17657.  
  17658.           If this parameter is omitted, your debug service defines the action 
  17659.           taken. For more information, refer to the appropriate user's guide 
  17660.           for your debug service. 
  17661.  
  17662. fc (output) 
  17663.           A 12-byte feedback code, optional in some languages, that indicates 
  17664.           the result of this service. 
  17665.  
  17666.           The following symbolic conditions can result from this service: 
  17667.  
  17668.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  17669.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  17670.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  17671.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17672.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  17673.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17674.                     Γöé CEE2F2     Γöé 3        Γöé 2530      Γöé A debug tool was not available.         Γöé
  17675.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17676.  
  17677. Usage Note 
  17678.  
  17679.  OpenEdition MVS considerations-CEETEST applies to the enclave. All threads in 
  17680.   the enclave can access debugger information. 
  17681.  
  17682. Examples 
  17683.  
  17684.  C/370 Example 
  17685.  
  17686.     /*COMPILATION UNIT: EDCTEST   */
  17687.  
  17688.     #include <string.h>
  17689.     #include <stdio.h>
  17690.     #include <leawi.h>
  17691.     #include <ceeedcct.h>
  17692.  
  17693.     int main (void) {
  17694.  
  17695.        int x,y,z;
  17696.        _VSTRING commands;
  17697.        _FEEDBACK fc;
  17698.  
  17699.        strcpy(commands.string,
  17700.                 "AT LINE 30 { LIST(x); LIST(y); GO;");
  17701.        commands.length = strlen(commands.string);
  17702.  
  17703.        CEETEST(&commands,&fc);
  17704.  
  17705.        if ( _FBCHECK ( fc , CEE000 ) != 0 ) {
  17706.           printf("CEETEST failed with message number %d\n",
  17707.                   fc.tok_msgno);
  17708.           exit(2999);
  17709.        }
  17710.        x = y = 12;
  17711.       /* .
  17712.          .
  17713.          . */
  17714.        /* debug tool displays the values of x and y */
  17715.        /* at statement 30 */
  17716.       /* .
  17717.          .
  17718.          . */
  17719.     }
  17720.  
  17721.  COBOL/370 Example 
  17722.  
  17723.     CBL LIB,APOST
  17724.           *COMPILATION UNIT: IGZTTEST
  17725.            IDENTIFICATION DIVISION.
  17726.            PROGRAM-ID. IBCT002.
  17727.            DATA DIVISION.
  17728.            WORKING-STORAGE SECTION.
  17729.            01  MANVAR1                 PIC S9(9) COMP.
  17730.            01  CEETEST-PARMS.
  17731.                02  Vstring-length      PIC S9(4) COMP.
  17732.                02  Vstring-text.
  17733.                    03  Vstring-char    PIC X,
  17734.                                OCCURS 0 TO 256 TIMES,
  17735.                                DEPENDING ON Vstring-length
  17736.                                   of CEETEST-PARMS.
  17737.            01 FC.
  17738.                02  Condition-Token-Value.
  17739.                COPY  CEEIGZCT.
  17740.                    03  Case-1-Condition-ID.
  17741.                        04  Severity        PIC S9(4) COMP.
  17742.                        04  Msg-No          PIC S9(4) COMP.
  17743.                    03  Case-2-Condition-ID
  17744.                              REDEFINES Case-1-Condition-ID.
  17745.                        04  Class-Code      PIC S9(4) COMP.
  17746.                        04  Cause-Code      PIC S9(4) COMP.
  17747.                    03  Case-Sev-Ctl    PIC X.
  17748.                    03  Facility-ID     PIC XXX.
  17749.                02  I-S-Info            PIC S9(9) COMP.
  17750.            PROCEDURE DIVISION.
  17751.            PARA-IBCT002.
  17752.                MOVE 0 TO MANVAR1
  17753.                COMPUTE MANVAR1 = MANVAR1 + 100
  17754.                DISPLAY 'The value of MANVAR1 is ' , MANVAR1
  17755.           ***************************************************
  17756.           *  CALL CEETEST FOR FIRST  TIME.                  *
  17757.           ***************************************************
  17758.                MOVE 70 TO Vstring-length of CEETEST-PARMS.
  17759.                MOVE 'DESC PROGRAM;AT ENTRY IBCT002:>SUBRTN'
  17760.                  TO Vstring-text of CEETEST-PARMS(1:37).
  17761.                move ' PERFORM Q LOC;GO;END-PERFORM;GO;'
  17762.                  TO Vstring-text of CEETEST-PARMS(38:33).
  17763.                CALL 'CEETEST' USING CEETEST-PARMS, FC.
  17764.                IF NOT CEE000 of FC  THEN
  17765.                    DISPLAY 'CEETEST(1st call) failed with msg '
  17766.                        Msg-No of FC UPON CONSOLE;
  17767.                    STOP RUN;
  17768.                END-IF.
  17769.           ***************************************************
  17770.           *  CALL CEETEST A SECOND TIME.                    *
  17771.           ***************************************************
  17772.                MOVE 4 TO Vstring-length of CEETEST-PARMS.
  17773.                MOVE 'QUIT;'
  17774.                  TO Vstring-text of CEETEST-PARMS.
  17775.                CALL 'CEETEST' USING CEETEST-PARMS, FC.
  17776.                IF NOT CEE000 of FC  THEN
  17777.                    DISPLAY 'CEETEST(2nd call) failed with msg '
  17778.                        Msg-No of FC UPON CONSOLE;
  17779.                    STOP RUN;
  17780.                END-IF.
  17781.           **************************************************
  17782.                GOBACK.
  17783.            IDENTIFICATION DIVISION.
  17784.            PROGRAM-ID. SUBRTN.
  17785.            DATA DIVISION.
  17786.            WORKING-STORAGE SECTION.
  17787.            01  MANVAR1                 PIC S9(9) COMP.
  17788.            01  MVAR                    PIC S9(9) COMP.
  17789.            PROCEDURE DIVISION.
  17790.            PARA-SUBRTN.
  17791.                COMPUTE MVAR = MVAR + 100 .
  17792.                COMPUTE MANVAR1 = MANVAR1 + 100 .
  17793.                GOBACK.
  17794.            END PROGRAM SUBRTN.
  17795.            END PROGRAM IBCT002.
  17796.  
  17797.  
  17798. ΓòÉΓòÉΓòÉ 3.3.52. CEEUTC-Get Coordinated Universal Time ΓòÉΓòÉΓòÉ
  17799.  
  17800. CEEUTC is an alias of CEEGMT. See CEEGMT-Get Current Greenwich Mean Time. 
  17801.  
  17802.  
  17803. ΓòÉΓòÉΓòÉ 4. LE/370 Math Services ΓòÉΓòÉΓòÉ
  17804.  
  17805. LE/370 math services provide standard math computations. You can call them from 
  17806. LE/370-conforming languages or from assembler routines by using the call 
  17807. interface (defined below and shown throughout this chapter), or the syntax 
  17808. specific to the HLL of your application. 
  17809.  
  17810. Math services do not depend on enclave-level resources. You can invoke them 
  17811. from any thread. 
  17812.  
  17813. If your application uses extended-precision arithmetic and runs on a 370-mode 
  17814. machine, you must specify the TRAP(ON) run-time option and add the CMSLIB 
  17815. TXTLIB with the GLOBAL TXTLIB command. 
  17816.  
  17817. This chapter contains the following sections: 
  17818.  
  17819.  Call Interface to Math Services 
  17820.  Parameter Types:  parm1 Type and parm2 Type 
  17821.  Sample Calls to Math Services 
  17822.  Examples of Math Services 
  17823.  
  17824. For a list of all the LE/370 math services,
  17825. see LE/370 Quick Reference Tables.
  17826.  
  17827. This section contains he following Math services: 
  17828.  
  17829. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  17830. Γöé CEESxABS-Absolute Value             Γöé CEESxACS-Arccosine               Γöé
  17831. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17832. Γöé CEESxASN-Arcsine                 Γöé CEESxATH-Hyperbolic Arctangent         Γöé
  17833. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17834. Γöé CEESxATN-Arctangent               Γöé CEESxAT2-Arctangent2              Γöé
  17835. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17836. Γöé CEESxCJG-Conjugate of Complex          Γöé CEESxCOS-Cosine                 Γöé
  17837. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17838. Γöé CEESxCSH-Hyperbolic Cosine            Γöé CEESxCTN-Cotangent               Γöé
  17839. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17840. Γöé CEESxDIM-Positive Difference           Γöé CEESxDVD-Floating Complex Divide        Γöé
  17841. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17842. Γöé CEESxERC-Error Function Complement        Γöé CEESxERF-Error Function             Γöé
  17843. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17844. Γöé CEESxEXP-Exponential Base e           Γöé CEESxGMA-Gamma Function             Γöé
  17845. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17846. Γöé CEESxIMG-Imaginary Part of Complex        Γöé CEESxINT-Truncation               Γöé
  17847. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17848. Γöé CEESxLGM-Log Gamma                Γöé CEESxLG1-Logarithm Base 10           Γöé
  17849. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17850. Γöé CEESxLG2-Logarithm Base 2            Γöé CEESxLOG-Logarithm Base e            Γöé
  17851. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17852. Γöé CEESxMLT-Floating Complex Multiply        Γöé CEESxMOD-Modular Arithmetic           Γöé
  17853. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17854. Γöé CEESxNIN-Nearest Integer             Γöé CEESxNWN-Nearest Whole Number          Γöé
  17855. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17856. Γöé CEESxSGN-Transfer of Sign            Γöé CEESxSIN-Sine                  Γöé
  17857. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17858. Γöé CEESxSNH-Hyperbolic Sine             Γöé CEESxSQT-Square Root              Γöé
  17859. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17860. Γöé CEESxTAN-Tangent                 Γöé CEESxTNH-Hyperbolic Tangent           Γöé
  17861. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  17862. Γöé CEESxXPx-Exponentiation             Γöé                         Γöé
  17863. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17864.  
  17865.  
  17866. ΓòÉΓòÉΓòÉ 4.1. Call Interface to Math Services ΓòÉΓòÉΓòÉ
  17867.  
  17868. The syntax for math services has two forms, depending on how many input 
  17869. parameters the routine requires. The first four letters of the math services 
  17870. are always CEES. The fifth character is x, which you replace according to the 
  17871. parameter types listed in Parameter Types:  parm1 Type and parm2 Type. The last 
  17872. three letters name the math function performed. In the following examples, the 
  17873. first function performed is the absolute value (ABS), and the second function 
  17874. is the positive difference (DIM). 
  17875.  
  17876. ΓöîΓöÇΓöÇΓöÇ ONE PARAMETER ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  17877. Γöé                                                  Γöé
  17878. Γöé >>ΓöÇΓöÇCEESxABSΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  17879. Γöé                                                  Γöé
  17880. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17881.  
  17882. ΓöîΓöÇΓöÇΓöÇ TWO PARAMETERS ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  17883. Γöé                                                  Γöé
  17884. Γöé >>ΓöÇΓöÇCEESxDIMΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  17885. Γöé                                                  Γöé
  17886. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  17887.  
  17888.  
  17889. ΓòÉΓòÉΓòÉ 4.1.1. Parameter Types:  parm1 Type and parm2 Type ΓòÉΓòÉΓòÉ
  17890.  
  17891. The first parameter (parm1) is mandatory. The second parameter (parm2) is used 
  17892. only when you use a math service with two parameters. The x in the fifth space 
  17893. of CEESx must be replaced by a parameter type for input and output. Substitute 
  17894. I, S, D, Q, T, E, or R for x: 
  17895.  
  17896. I         32-bit binary integer 
  17897. S         32-bit single float number 
  17898. D         64-bit double float number 
  17899. Q         128-bit extended float number 
  17900. T         32-bit single float-complex number(**) 
  17901. E         64-bit double float-complex number(**) 
  17902. R         128-bit extended float-complex number(**) 
  17903.  
  17904. LE/370 math services expect normalized input. 
  17905.  
  17906. In the routines described in this chapter, the output range(**) for 
  17907. complex-valued functions can be determined from the input range. 
  17908.  
  17909.  
  17910. ΓòÉΓòÉΓòÉ 4.1.2. Feedback Code Parameter (fc) ΓòÉΓòÉΓòÉ
  17911.  
  17912. fc is a feedback code that indicates the result of the math service. 
  17913.  
  17914. If you specify fc as an argument, feedback information in the form of a 
  17915. condition token is returned to the calling routine. The condition token 
  17916. indicates whether the routine completed successfully or whether a condition was 
  17917. encountered while the routine was running. If you do not specify fc as an 
  17918. argument and the requested service does not successfully complete, the 
  17919. condition is signaled. 
  17920.  
  17921. Because math services call other services, these other services might generate 
  17922. feedback codes. 
  17923.  
  17924. C/370, COBOL/370, and PL/I offer built-in math services that you can also use 
  17925. under LE/370. 
  17926.  
  17927.  
  17928. ΓòÉΓòÉΓòÉ 4.2. Sample Calls to Math Services ΓòÉΓòÉΓòÉ
  17929.  
  17930. This section contains sample calls to LE/370 math services from C/370, 
  17931. COBOL/370, and PL/I. 
  17932.  
  17933.  
  17934. ΓòÉΓòÉΓòÉ 4.2.1. C/370 Call to CEESLOG-Logarithm Base e ΓòÉΓòÉΓòÉ
  17935.  
  17936.  
  17937. #include <leawi.h>
  17938. #include <string.h>
  17939. #include <stdio.h>
  17940.  
  17941. int main (void) {
  17942.  
  17943.   float int1, intr;
  17944.  
  17945.   _FEEDBACK fc;
  17946.   #define SUCCESS "\0\0\0\0"
  17947.  
  17948.   int1 = 39;
  17949.   CEESSLOG(&int1,&fc,&intr);
  17950.  
  17951.   if (memcmp(&fc,SUCCESS,4) != 0) {
  17952.      printf("CEESSLOG failed with message number %d\n",
  17953.             fc.tok_msgno);
  17954.      exit(2999);
  17955.   }
  17956.  
  17957.   printf("Log base e of %f is %f\n",int1,intr);
  17958. }
  17959.  
  17960.  
  17961. ΓòÉΓòÉΓòÉ 4.2.2. COBOL/370 Call to CEESSLOG-Logarithm Base e ΓòÉΓòÉΓòÉ
  17962.  
  17963. .
  17964. .
  17965. .
  17966.     77   ARG1RS  COMP-1.
  17967.     77   FBCODE  PIC X(12).
  17968.     77   RESLTRS COMP-1.
  17969.  
  17970.          CALL "CEESSLOG" USING ARG1RS , FBCODE , RESLTRS.
  17971. .
  17972. .
  17973. .
  17974.  
  17975.  
  17976. ΓòÉΓòÉΓòÉ 4.2.3. PL/I Call to CEESSLOG-Logarithm Base e ΓòÉΓòÉΓòÉ
  17977.  
  17978. .
  17979. .
  17980. .
  17981. DCL ARG1 RESULT REAL FLOAT DEC (6);
  17982. DCL FC   CHARACTER (12);
  17983.  
  17984. CALL CEESSLOG (ARG1, FC, RESULT)
  17985. .
  17986. .
  17987. .
  17988.  
  17989.  
  17990. ΓòÉΓòÉΓòÉ 4.3. Math Services ΓòÉΓòÉΓòÉ
  17991.  
  17992. This section contains an alphabetical list of the LE/370 math services. 
  17993.  
  17994.  
  17995. ΓòÉΓòÉΓòÉ 4.3.1. CEESxABS-Absolute Value ΓòÉΓòÉΓòÉ
  17996.  
  17997. CEESxABS returns the absolute value of the parameter by using the equation 
  17998. result = |parm1|. 
  17999.  
  18000. The following routines are provided for the various data types supported: 
  18001.  
  18002. CEESIABS            32-bit binary integer 
  18003. CEESSABS            32-bit single float number 
  18004. CEESDABS            64-bit double float number 
  18005. CEESQABS            128-bit extended float number 
  18006. CEESTABS            32-bit single float-complex number 
  18007. CEESEABS            64-bit double float-complex number 
  18008. CEESRABS            128-bit extended float-complex number 
  18009.  
  18010. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18011. Γöé                                                  Γöé
  18012. Γöé >>ΓöÇΓöÇCEESxABSΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18013. Γöé                                                  Γöé
  18014. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18015.  
  18016. parm1 (input) 
  18017.           The input to the absolute value routine. The input range is not 
  18018.           restricted. 
  18019.  
  18020. fc (output) 
  18021.           A 12-byte feedback code, optional in some languages, that indicates 
  18022.           the result of this service. 
  18023.  
  18024.           The following symbolic conditions can result from this service: 
  18025.  
  18026.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18027.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18028.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18029.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18030.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18031.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18032.                     Γöé CEE1V9     Γöé 1        Γöé 2025      Γöé An underflow has occurred in math routine    Γöé
  18033.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18034.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18035.  
  18036. result (output) 
  18037.           The result of the absolute value routine. The output range is the 
  18038.           non-negative numbers <= Omega. Omega varies depending on the 
  18039.           precision of parm1: 
  18040.  
  18041.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18042.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18043.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  18044.  
  18045.  
  18046. ΓòÉΓòÉΓòÉ 4.3.2. CEESxACS-Arccosine ΓòÉΓòÉΓòÉ
  18047.  
  18048. CEESxACS returns the arccosine of the parameter by using the equation result = 
  18049. arccos (parm1). 
  18050.  
  18051. The following routines are provided for the various data types supported: 
  18052.  
  18053. CEESSACS            32-bit single float number 
  18054. CEESDACS            64-bit double float number 
  18055. CEESQACS            128-bit extended float number 
  18056.  
  18057. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18058. Γöé                                                  Γöé
  18059. Γöé >>ΓöÇΓöÇCEESxACSΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18060. Γöé                                                  Γöé
  18061. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18062.  
  18063. parm1 (input) 
  18064.           The input to the arccosine routine. The input range is |parm1| <= 1. 
  18065.  
  18066. fc (output) 
  18067.           A 12-byte feedback code, optional in some languages, that indicates 
  18068.           the result of this service. 
  18069.  
  18070.           The following symbolic conditions can result from this service: 
  18071.  
  18072.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18073.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18074.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18075.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18076.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18077.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18078.                     Γöé CEE1V0     Γöé 2        Γöé 2016      Γöé The absolute value of the argument was greater Γöé
  18079.                     Γöé        Γöé         Γöé         Γöé than limit in math routine routine-name.    Γöé
  18080.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18081.  
  18082. result (output) 
  18083.           The result, in radians, of the arccosine routine. 
  18084.  
  18085.           The output range is 0 <= result <= pi. 
  18086.  
  18087.  
  18088. ΓòÉΓòÉΓòÉ 4.3.3. CEESxASN-Arcsine ΓòÉΓòÉΓòÉ
  18089.  
  18090. CEESxASN returns the arcsine of the parameter by using the equation result = 
  18091. arcsin(parm1). 
  18092.  
  18093. The following routines are provided for the various data types supported: 
  18094.  
  18095. CEESSASN            32-bit single float number 
  18096. CEESDASN            64-bit double float number 
  18097. CEESQASN            128-bit extended float number 
  18098.  
  18099. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18100. Γöé                                                  Γöé
  18101. Γöé >>ΓöÇΓöÇCEESxASNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18102. Γöé                                                  Γöé
  18103. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18104.  
  18105. parm1 (input) 
  18106.           The input to the arcsine routine. The input range is |parm1| <= 1. 
  18107.  
  18108. fc (output) 
  18109.           A 12-byte feedback code, optional in some languages, that indicates 
  18110.           the result of this service. 
  18111.  
  18112.           The following symbolic conditions can result from this service: 
  18113.  
  18114.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18115.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18116.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18117.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18118.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18119.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18120.                     Γöé CEE1V0     Γöé 2        Γöé 2016      Γöé The absolute value of the argument was greater Γöé
  18121.                     Γöé        Γöé         Γöé         Γöé than limit in math routine routine-name.    Γöé
  18122.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18123.  
  18124. result (output) 
  18125.           The result, in radians, of the arcsine routine. The output range is 
  18126.           |result| pi/2. 
  18127.  
  18128.  
  18129. ΓòÉΓòÉΓòÉ 4.3.4. CEESxATH-Hyperbolic Arctangent ΓòÉΓòÉΓòÉ
  18130.  
  18131. CEESxATH returns the hyperbolic arctangent of the parameter by using the 
  18132. equation result  = (tanh**(-1))parm1. 
  18133.  
  18134. The following routines are provided for the various data types supported: 
  18135.  
  18136. CEESSATH            32-bit single float number 
  18137. CEESDATH            64-bit double float number 
  18138. CEESQATH            128-bit extended float number 
  18139. CEESTATH            32-bit single float-complex number 
  18140. CEESEATH            64-bit double float-complex number 
  18141. CEESRATH            128-bit extended float-complex number 
  18142.  
  18143. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18144. Γöé                                                  Γöé
  18145. Γöé >>ΓöÇΓöÇCEESxATHΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18146. Γöé                                                  Γöé
  18147. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18148.  
  18149. parm1 (input) 
  18150.           The input to the hyperbolic arctangent routine. 
  18151.  
  18152.           The input range for real variables is |parm1| < 1. 
  18153.  
  18154.           For complex variables, parm1 cannot be equal to 1 or -1. 
  18155.  
  18156. fc (output) 
  18157.           A 12-byte feedback code, optional in some languages, that indicates 
  18158.           the result of this service. 
  18159.  
  18160.           The following symbolic conditions can result from this service: 
  18161.  
  18162.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18163.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18164.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18165.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18166.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18167.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18168.                     Γöé CEE1V1     Γöé 2        Γöé 2017      Γöé The absolute value of the argument was greater Γöé
  18169.                     Γöé        Γöé         Γöé         Γöé than or equal to limit in math routine     Γöé
  18170.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18171.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18172.                     Γöé CEE1V6     Γöé 2        Γöé 2022      Γöé The value of the argument was plus or minus   Γöé
  18173.                     Γöé        Γöé         Γöé         Γöé limit in math routine routine-name.       Γöé
  18174.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18175.  
  18176. result (output) 
  18177.           The result of the hyperbolic arctangent routine. The output range for 
  18178.           functions of real variables is |result| <= Omega. 
  18179.  
  18180.           Omega varies depending on the precision of parm1: 
  18181.  
  18182.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18183.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18184.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  18185.  
  18186.  
  18187. ΓòÉΓòÉΓòÉ 4.3.5. CEESxATN-Arctangent ΓòÉΓòÉΓòÉ
  18188.  
  18189. CEESxATN returns the arctangent of the parameter by using the equation result = 
  18190. arctan(parm1). 
  18191.  
  18192. The following routines are provided for the various data types supported: 
  18193.  
  18194. CEESSATN            32-bit single float number 
  18195. CEESDATN            64-bit double float number 
  18196. CEESQATN            128-bit extended float number 
  18197. CEESTATN            32-bit single float-complex number 
  18198. CEESEATN            64-bit double float-complex number 
  18199. CEESRATN            128-bit extended float-complex number 
  18200.  
  18201. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18202. Γöé                                                  Γöé
  18203. Γöé >>ΓöÇΓöÇCEESxATNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18204. Γöé                                                  Γöé
  18205. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18206.  
  18207. parm1 (input) 
  18208.           The input to the arctangent routine. The input range for real 
  18209.           variables is not restricted. The input range for complex variables is 
  18210.           parm1 is not equal to i or -i (where i = sqrt -1). 
  18211.  
  18212. fc (output) 
  18213.           A 12-byte feedback code, optional in some languages, that indicates 
  18214.           the result of this service. 
  18215.  
  18216.           The following symbolic conditions can result from this service: 
  18217.  
  18218.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18219.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18220.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18221.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18222.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18223.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18224.                     Γöé CEE1V6     Γöé 2        Γöé 2022      Γöé The value of the argument was plus or minus   Γöé
  18225.                     Γöé        Γöé         Γöé         Γöé limit in math routine routine-name.       Γöé
  18226.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18227.                     Γöé CEE1V9     Γöé 1        Γöé 2025      Γöé An underflow has occurred in math routine    Γöé
  18228.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18229.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18230.  
  18231. result (output) 
  18232.           The result, in radians, of the arctangent routine. The output range 
  18233.           for functions of real variables is |result| < pi/2. 
  18234.  
  18235.  
  18236. ΓòÉΓòÉΓòÉ 4.3.6. CEESxAT2-Arctangent2 ΓòÉΓòÉΓòÉ
  18237.  
  18238. CEESxAT2 calculates a result by using the equation result = the angle (in 
  18239. radians) between the positive X axis and a vector defined by (parm2, parm1) 
  18240. with a range from -pi to pi, inclusive. For example, if parm1 and parm2 are 
  18241. positive, then result = arctan (parm1/parm2). 
  18242.  
  18243. The following routines are provided for the various data types supported: 
  18244.  
  18245. CEESSAT2            32-bit single float number 
  18246. CEESDAT2            64-bit double float number 
  18247. CEESQAT2            128-bit extended float number 
  18248.  
  18249. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18250. Γöé                                                  Γöé
  18251. Γöé >>ΓöÇΓöÇCEESxAT2ΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18252. Γöé                                                  Γöé
  18253. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18254.  
  18255. parm1 (input) 
  18256.           The first input to the arctangent2 routine. The input range is parm1 
  18257.           cannot equal 0 if parm2 equals 0. 
  18258.  
  18259. parm2 (input) 
  18260.           The second parameter to the arctangent2 routine. The input range is 
  18261.           parm2 cannot equal 0 if parm1 equals 0. 
  18262.  
  18263. fc (output) 
  18264.           A 12-byte feedback code, optional in some languages, that indicates 
  18265.           the result of this service. 
  18266.  
  18267.           The following symbolic conditions can result from this service: 
  18268.  
  18269.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18270.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18271.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18272.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18273.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18274.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18275.                     Γöé CEE1UU     Γöé 2        Γöé 2014      Γöé Both arguments were equal to limit in math   Γöé
  18276.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  18277.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18278.                     Γöé CEE1V9     Γöé 1        Γöé 2025      Γöé An underflow has occurred in math routine    Γöé
  18279.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18280.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18281.  
  18282. result (output) 
  18283.           The result, in radians, of the arctangent2 routine. The output range 
  18284.           is |result| <= pi. 
  18285.  
  18286.  
  18287. ΓòÉΓòÉΓòÉ 4.3.7. CEESxCJG-Conjugate of Complex ΓòÉΓòÉΓòÉ
  18288.  
  18289. CEESxCJG returns the conjugate of the complex number by using the equation 
  18290. result = u - vi, where parm1 = u + vi. 
  18291.  
  18292. The following routines are provided for the various data types supported: 
  18293.  
  18294. CEESTCJG            32-bit single float-complex number 
  18295. CEESECJG            64-bit double float-complex number 
  18296. CEESRCJG            128-bit extended float-complex number 
  18297.  
  18298. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18299. Γöé                                                  Γöé
  18300. Γöé >>ΓöÇΓöÇCEESxCJGΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18301. Γöé                                                  Γöé
  18302. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18303.  
  18304. parm1 (input) 
  18305.           The input to the math service. Any representable complex number can 
  18306.           be used as input. 
  18307.  
  18308. fc (output) 
  18309.           A 12-byte feedback code, optional in some languages, that indicates 
  18310.           the result of this service. 
  18311.  
  18312.           The following symbolic conditions can result from this service: 
  18313.  
  18314.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18315.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18316.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18317.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18318.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18319.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18320.  
  18321. result (output) 
  18322.           The result of the conjugate of complex routine. 
  18323.  
  18324.  
  18325. ΓòÉΓòÉΓòÉ 4.3.8. CEESxCOS-Cosine ΓòÉΓòÉΓòÉ
  18326.  
  18327. CEESxCOS returns the cosine of the parameter by using the equation result = 
  18328. cos(parm1). 
  18329.  
  18330. The following routines are provided for the various data types supported: 
  18331.  
  18332. CEESSCOS            32-bit single float number 
  18333. CEESDCOS            64-bit double float number 
  18334. CEESQCOS            128-bit extended float number 
  18335. CEESTCOS            32-bit single float-complex number 
  18336. CEESECOS            64-bit double float-complex number 
  18337. CEESRCOS            128-bit extended float-complex number 
  18338.  
  18339. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18340. Γöé                                                  Γöé
  18341. Γöé >>ΓöÇΓöÇCEESxCOSΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18342. Γöé                                                  Γöé
  18343. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18344.  
  18345. parm1 (input) 
  18346.           The type is determined by the fifth character of the service name. 
  18347.           The input range for real variables is 
  18348.  
  18349.    | parm1 | < (2**18 ┬╖ pi), for single float numbers 
  18350.    | parm1 | < (2**50 ┬╖ pi), for double float numbers 
  18351.    | parm1 | < 2**100, for extended float numbers 
  18352.  
  18353. For complex functions, the input range differs for the imaginary and real parts 
  18354. of the input.  For the imaginary part, the input range is 
  18355. | Im(parm1) | < 174.673. For the real part of the input, the input range is 
  18356.  
  18357.    |Re(parm1)| < (2**18 ┬╖ pi), for single float-complex numbers 
  18358.    |Re(parm1)| < (2**50 ┬╖ pi), for double float-complex numbers 
  18359.    |Re(parm1)| < 2**100, for extended float-complex numbers 
  18360.  
  18361. fc (output) 
  18362.           A 12-byte feedback code, optional in some languages, that indicates 
  18363.           the result of this service. 
  18364.  
  18365.           The following symbolic conditions can result from this service: 
  18366.  
  18367.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18368.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18369.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18370.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18371.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18372.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18373.                     Γöé CEE1UT     Γöé 2        Γöé 2013      Γöé The absolute value of the imaginary part of   Γöé
  18374.                     Γöé        Γöé         Γöé         Γöé the argument was greater than limit in math   Γöé
  18375.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  18376.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18377.                     Γöé CEE1V1     Γöé 2        Γöé 2017      Γöé The absolute value of the argument was greater Γöé
  18378.                     Γöé        Γöé         Γöé         Γöé than or equal to limit in math routine     Γöé
  18379.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18380.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18381.                     Γöé CEE1V3     Γöé 2        Γöé 2019      Γöé The absolute value of the real part of the   Γöé
  18382.                     Γöé        Γöé         Γöé         Γöé argument was greater than or equal to limit in Γöé
  18383.                     Γöé        Γöé         Γöé         Γöé math routine routine-name.           Γöé
  18384.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18385.  
  18386. result (output) 
  18387.           The result of the cosine routine. The output range for functions of 
  18388.           real variables is | result | <= 1. 
  18389.  
  18390.  
  18391. ΓòÉΓòÉΓòÉ 4.3.9. CEESxCSH-Hyperbolic Cosine ΓòÉΓòÉΓòÉ
  18392.  
  18393. CEESxCSH returns the hyperbolic cosine of the parameter by using the equation 
  18394. result = cosh(parm1). 
  18395.  
  18396. The following routines are provided for the various data types supported: 
  18397.  
  18398. CEESSCSH            32-bit single float number 
  18399. CEESDCSH            64-bit double float number 
  18400. CEESQCSH            128-bit extended float number 
  18401. CEESTCSH            32-bit single float-complex number 
  18402. CEESECSH            64-bit double float-complex number 
  18403. CEESRCSH            128-bit extended float-complex number 
  18404.  
  18405. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18406. Γöé                                                  Γöé
  18407. Γöé >>ΓöÇΓöÇCEESxCSHΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18408. Γöé                                                  Γöé
  18409. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18410.  
  18411. parm1 (input) 
  18412.           The input to the hyperbolic cosine routine. 
  18413.  
  18414.           The input range for the functions of real variables is |parm1| < 
  18415.           175.366. 
  18416.  
  18417.           For complex functions, the input range differs for the imaginary and 
  18418.           real parts of the input. For the real part of complex numbers, the 
  18419.           input range is |Re(parm1)| < 175.366. For the imaginary part of the 
  18420.           input, the input range is 
  18421.  
  18422.    |Im(parm1)| < (2**18 ┬╖ pi), for single float-complex numbers 
  18423.    |Im(parm1)| < (2**50 ┬╖ pi), for double float-complex numbers 
  18424.    |Im(parm1)| < 2**100, for extended float-complex numbers 
  18425.  
  18426. fc (output) 
  18427.           A 12-byte feedback code, optional in some languages, that indicates 
  18428.           the result of this service. 
  18429.  
  18430.           The following symbolic conditions can result from this service: 
  18431.  
  18432.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18433.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18434.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18435.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18436.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18437.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18438.                     Γöé CEE1V0     Γöé 2        Γöé 2016      Γöé The absolute value of the argument was greater Γöé
  18439.                     Γöé        Γöé         Γöé         Γöé than limit in math routine routine-name.    Γöé
  18440.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18441.  
  18442. result (output) 
  18443.           The result of the hyperbolic cosine routine. The output range for 
  18444.           functions of real variables is 1 <= result <= Omega. Omega varies 
  18445.           depending on the precision of parm1: 
  18446.  
  18447.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18448.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18449.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  18450.  
  18451.  
  18452. ΓòÉΓòÉΓòÉ 4.3.10. CEESxCTN-Cotangent ΓòÉΓòÉΓòÉ
  18453.  
  18454. CEESxCTN returns the cotangent of the parameter by using the equation result = 
  18455. cot(parm1). 
  18456.  
  18457. The following routines are provided for the various data types supported: 
  18458.  
  18459. CEESSCTN            32-bit single float number 
  18460. CEESDCTN            64-bit double float number 
  18461. CEESQCTN            128-bit extended float number 
  18462.  
  18463. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18464. Γöé                                                  Γöé
  18465. Γöé >>ΓöÇΓöÇCEESxCTNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18466. Γöé                                                  Γöé
  18467. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18468.  
  18469. parm1 (input) 
  18470.           The input, in radians, into the cotangent routine. The input range 
  18471.           varies, depending on the precision of parm1: 
  18472.  
  18473.    Single-precision    |parm1|< 2**18 ┬╖ pi 
  18474.    Double-precision    |parm1|< 2**50 ┬╖ pi 
  18475.    Extended-precision  |parm1|< 2**100 ┬╖ pi 
  18476.  
  18477.           If this is an extended float number, this argument cannot approach a 
  18478.           multiple of pi. Single float numbers and double float numbers cannot 
  18479.           approach zero. 
  18480.  
  18481. fc (output) 
  18482.           A 12-byte feedback code, optional in some languages, that indicates 
  18483.           the result of this service. 
  18484.  
  18485.           The following symbolic conditions can result from this service: 
  18486.  
  18487.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18488.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18489.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18490.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18491.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18492.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18493.                     Γöé CEE1UI     Γöé 2        Γöé 2002      Γöé The argument value was too close to one of the Γöé
  18494.                     Γöé        Γöé         Γöé         Γöé singularities (plus or minus pi/2, plus or   Γöé
  18495.                     Γöé        Γöé         Γöé         Γöé minus 3pi/2, for the tangent; or plus or minus Γöé
  18496.                     Γöé        Γöé         Γöé         Γöé pi, plus or minus 2pi, for the cotangent) in  Γöé
  18497.                     Γöé        Γöé         Γöé         Γöé math routine routine-name.           Γöé
  18498.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18499.                     Γöé CEE1V1     Γöé 2        Γöé 2017      Γöé The absolute value of the argument was greater Γöé
  18500.                     Γöé        Γöé         Γöé         Γöé than or equal to limit in math routine     Γöé
  18501.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18502.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18503.  
  18504. result (output) 
  18505.           The result of the cotangent routine. The output range is result <= 
  18506.           Omega. Omega varies depending on the precision of parm1: 
  18507.  
  18508.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18509.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18510.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  18511.  
  18512.  
  18513. ΓòÉΓòÉΓòÉ 4.3.11. CEESxDIM-Positive Difference ΓòÉΓòÉΓòÉ
  18514.  
  18515. CEESxDIM returns the positive difference between two numbers by using one of 
  18516. the following equations: 
  18517.  
  18518. if parm1 > parm2, then result = parm1 - parm2 
  18519. if parm1 <= parm2, then result = 0 
  18520.  
  18521. The following routines are provided for the various data types supported: 
  18522.  
  18523. CEESIDIM            32-bit binary integer 
  18524. CEESSDIM            32-bit single float number 
  18525. CEESDDIM            64-bit double float number 
  18526. CEESQDIM            128-bit extended float number 
  18527.  
  18528. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18529. Γöé                                                  Γöé
  18530. Γöé >>ΓöÇΓöÇCEESxDIMΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18531. Γöé                                                  Γöé
  18532. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18533.  
  18534. parm1 (input) 
  18535.           The first input to the positive difference routine. The input range 
  18536.           is not restricted. 
  18537.  
  18538. parm2 (input) 
  18539.           The second parameter to the positive difference routine. The input 
  18540.           range is not restricted. 
  18541.  
  18542. fc (output) 
  18543.           A 12-byte feedback code, optional in some languages, that indicates 
  18544.           the result of this service. 
  18545.  
  18546.           The following symbolic conditions can result from this service: 
  18547.  
  18548.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18549.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18550.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18551.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18552.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18553.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18554.  
  18555. result (output) 
  18556.           The result of the positive difference routine. The output range is 
  18557.           the non-negative numbers Omega varies depending on the precision of 
  18558.           parm1: 
  18559.  
  18560.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18561.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18562.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  18563.  
  18564.  
  18565. ΓòÉΓòÉΓòÉ 4.3.12. CEESxDVD-Floating Complex Divide ΓòÉΓòÉΓòÉ
  18566.  
  18567. CEESxDVD performs the mathematical function of floating complex divide by using 
  18568. the equation: result = parm1/parm2. The following routines are provided for the 
  18569. various data types supported: 
  18570.  
  18571. CEESTDVD            32-bit single float-complex number 
  18572. CEESEDVD            64-bit double float-complex number 
  18573. CEESRDVD            128-bit extended float-complex number 
  18574.  
  18575. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18576. Γöé                                                  Γöé
  18577. Γöé >>ΓöÇΓöÇCEESxDVDΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18578. Γöé                                                  Γöé
  18579. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18580.  
  18581. parm1 (input) 
  18582.           The first input to the math service. Any representable complex number 
  18583.           can be used as input. 
  18584.  
  18585. parm2 (input) 
  18586.           The second parameter to the math service. Do not set parm2 to 0. 
  18587.  
  18588. fc (output) 
  18589.           A 12-byte feedback code passed by reference indicating the result of 
  18590.           the service. 
  18591.  
  18592.           The following symbolic conditions can result from this service: 
  18593.  
  18594.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18595.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18596.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18597.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18598.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18599.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18600.  
  18601. result (output) 
  18602.           The result of the floating complex divide routine. 
  18603.  
  18604.  
  18605. ΓòÉΓòÉΓòÉ 4.3.13. CEESxERC-Error Function Complement ΓòÉΓòÉΓòÉ
  18606.  
  18607. CEESxERC calculates the error function complement.  If necessary, see your 
  18608. printed book for equation. 
  18609.  
  18610. The following routines are provided for the various data types supported: 
  18611.  
  18612. CEESSERC            32-bit single float number 
  18613. CEESDERC            64-bit double float number 
  18614. CEESQERC            128-bit extended float number 
  18615.  
  18616. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18617. Γöé                                                  Γöé
  18618. Γöé >>ΓöÇΓöÇCEESxERCΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18619. Γöé                                                  Γöé
  18620. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18621.  
  18622. parm1 (input) 
  18623.           The input to the error function complement routine. The input range 
  18624.           is not restricted. 
  18625.  
  18626. fc (output) 
  18627.           A 12-byte feedback code, optional in some languages, that indicates 
  18628.           the result of this service. 
  18629.  
  18630.           The following symbolic conditions can result from this service: 
  18631.  
  18632.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18633.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18634.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18635.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18636.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18637.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18638.  
  18639. result (output) 
  18640.           The result of the error function complement routine. The output range 
  18641.           is 0 < result < 2. 
  18642.  
  18643.  
  18644. ΓòÉΓòÉΓòÉ 4.3.14. CEESxERF-Error Function ΓòÉΓòÉΓòÉ
  18645.  
  18646. CEESxERF calculates the error complement.  If necessary, see your printed book 
  18647. for equation. 
  18648.  
  18649. The following routines are provided for the various data types supported: 
  18650.  
  18651. CEESSERF            32-bit single float number 
  18652. CEESDERF            64-bit double float number 
  18653. CEESQERF            128-bit extended float number 
  18654.  
  18655. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18656. Γöé                                                  Γöé
  18657. Γöé >>ΓöÇΓöÇCEESxERFΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18658. Γöé                                                  Γöé
  18659. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18660.  
  18661. parm1 (input) 
  18662.           The input to the error function. The input range is not restricted. 
  18663.  
  18664. fc (output) 
  18665.           A 12-byte feedback code, optional in some languages, that indicates 
  18666.           the result of this service. 
  18667.  
  18668.           The following symbolic conditions can result from this service: 
  18669.  
  18670.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18671.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18672.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18673.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18674.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18675.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18676.  
  18677. result (output) 
  18678.           The result of the error function. The output range is 
  18679.           | result | < 1. 
  18680.  
  18681.  
  18682. ΓòÉΓòÉΓòÉ 4.3.15. CEESxEXP-Exponential Base e ΓòÉΓòÉΓòÉ
  18683.  
  18684. CEESxEXP calculates the mathematical function of e raised to a power by using 
  18685. the equation: result = e**parm1. 
  18686.  
  18687. The following routines are provided for the various data types supported: 
  18688.  
  18689. CEESSEXP            32-bit single float number 
  18690. CEESDEXP            64-bit double float number 
  18691. CEESQEXP            128-bit extended float number 
  18692. CEESTEXP            32-bit single float-complex number 
  18693. CEESEEXP            64-bit double float-complex number 
  18694. CEESREXP            128-bit extended float-complex number 
  18695.  
  18696. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18697. Γöé                                                  Γöé
  18698. Γöé >>ΓöÇΓöÇCEESxEXPΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18699. Γöé                                                  Γöé
  18700. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18701.  
  18702. parm1 (input) 
  18703.           The input to the exponential base e routine. 
  18704.  
  18705.           For complex functions, the input range differs for the imaginary and 
  18706.           real parts of the input. For the real part of complex numbers, the 
  18707.           input range is |Re(parm1)| < 174.673. For the imaginary part of the 
  18708.           input, the input range is 
  18709.  
  18710.    |Im(parm1)| < (2**18 ┬╖ pi), for single float-complex numbers 
  18711.    |Im(parm1)| < (2**50 ┬╖ pi), for double float-complex numbers 
  18712.    |Im(parm1)| < 2**100, for extended float-complex numbers 
  18713.  
  18714. fc (output) 
  18715.           A 12-byte feedback code, optional in some languages, that indicates 
  18716.           the result of this service. 
  18717.  
  18718.           The following symbolic conditions can result from this service: 
  18719.  
  18720.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18721.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18722.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18723.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18724.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18725.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18726.                     Γöé CEE1UP     Γöé 2        Γöé 2009      Γöé The value of the real part of the argument was Γöé
  18727.                     Γöé        Γöé         Γöé         Γöé greater than limit in math routine routine-   Γöé
  18728.                     Γöé        Γöé         Γöé         Γöé name.                      Γöé
  18729.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18730.                     Γöé CEE1UR     Γöé 2        Γöé 2011      Γöé The argument was greater than limit in math   Γöé
  18731.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  18732.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18733.                     Γöé CEE1UT     Γöé 2        Γöé 2013      Γöé The absolute value of the imaginary part of   Γöé
  18734.                     Γöé        Γöé         Γöé         Γöé the argument was greater than limit in math   Γöé
  18735.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  18736.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18737.                     Γöé CEE1UV     Γöé 2        Γöé 2015      Γöé The absolute value of the imaginary part of   Γöé
  18738.                     Γöé        Γöé         Γöé         Γöé the argument was greater than or equal to    Γöé
  18739.                     Γöé        Γöé         Γöé         Γöé limit in math routine routine-name.       Γöé
  18740.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18741.                     Γöé CEE1V9     Γöé 1        Γöé 2025      Γöé An underflow has occurred in math routine    Γöé
  18742.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18743.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18744.  
  18745. result (output) 
  18746.           The result of the exponential base e routine. The output range for 
  18747.           functions of real variables is 0 < result <= Omega. Omega varies 
  18748.           depending on the precision of parm1: 
  18749.  
  18750.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18751.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18752.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  18753.  
  18754.  
  18755. ΓòÉΓòÉΓòÉ 4.3.16. CEESxGMA-Gamma Function ΓòÉΓòÉΓòÉ
  18756.  
  18757. CEESxGMA performs the mathematical gamma function. If necessary, see your 
  18758. printed book for equation. 
  18759.  
  18760. The following routines are provided for the various data types supported: 
  18761.  
  18762. CEESSGMA            32-bit single float number 
  18763. CEESDGMA            64-bit double float number 
  18764.  
  18765. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18766. Γöé                                                  Γöé
  18767. Γöé >>ΓöÇΓöÇCEESxGMAΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18768. Γöé                                                  Γöé
  18769. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18770.  
  18771. parm1 (input) 
  18772.           The input to the gamma function. The input range is 
  18773.           2**(-252) < parm1 < 57.5744. 
  18774.  
  18775. fc (output) 
  18776.           A 12-byte feedback code, optional in some languages, that indicates 
  18777.           the result of this service. 
  18778.  
  18779.           The following symbolic conditions can result from this service: 
  18780.  
  18781.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18782.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18783.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18784.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18785.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18786.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18787.                     Γöé CEE1UL     Γöé 2        Γöé 2005      Γöé The value of the argument was outside the    Γöé
  18788.                     Γöé        Γöé         Γöé         Γöé valid range range in math routine        Γöé
  18789.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18790.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18791.  
  18792. result (output) 
  18793.           The result of the gamma function. The output range is 0.88560 <= 
  18794.           result Omega. Omega varies depending on the precision of parm1: 
  18795.  
  18796.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18797.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18798.  
  18799.  
  18800. ΓòÉΓòÉΓòÉ 4.3.17. CEESxIMG-Imaginary Part of Complex ΓòÉΓòÉΓòÉ
  18801.  
  18802. CEESxIMG returns the imaginary part of a complex number using the equation 
  18803. result = v, where parm1 = u + vi. 
  18804.  
  18805. The following routines are provided for the various data types supported: 
  18806.  
  18807. CEESTIMG            32-bit single float-complex number 
  18808. CEESEIMG            64-bit double float-complex number 
  18809. CEESRIMG            128-bit extended float-complex number 
  18810.  
  18811. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18812. Γöé                                                  Γöé
  18813. Γöé >>ΓöÇΓöÇCEESxIMGΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18814. Γöé                                                  Γöé
  18815. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18816.  
  18817. parm1 (input) 
  18818.           The input to the math service. Any complex number can be used as 
  18819.           input. 
  18820.  
  18821. fc (output) 
  18822.           A 12-byte feedback code passed by reference indicating the result of 
  18823.           the service. 
  18824.  
  18825.           The following symbolic conditions can result from this service: 
  18826.  
  18827.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18828.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18829.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18830.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18831.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18832.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18833.  
  18834. result (output) 
  18835.           The result of the math service. |result| <= Omega. 
  18836.  
  18837.           Omega varies depending on the precision of parm1: 
  18838.  
  18839.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18840.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18841.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  18842.  
  18843.  
  18844. ΓòÉΓòÉΓòÉ 4.3.18. CEESxINT-Truncation ΓòÉΓòÉΓòÉ
  18845.  
  18846. CEESxINT returns the truncated value of the parameter by using the equation: 
  18847. result = (sign of parm1) ┬╖ n, where n = | parm1 |. 
  18848.  
  18849. | parm1 | = | m |, where m is the greatest integer satisfying the relationship 
  18850. | m | <= | parm1 |, and the result is expressed as a float number. 
  18851.  
  18852. The following routines are provided for the various data types supported: 
  18853.  
  18854. CEESSINT            32-bit single float number 
  18855. CEESDINT            64-bit double float number 
  18856. CEESQINT            128-bit extended float number 
  18857.  
  18858. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18859. Γöé                                                  Γöé
  18860. Γöé >>ΓöÇΓöÇCEESxINTΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18861. Γöé                                                  Γöé
  18862. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18863.  
  18864. parm1 (input) 
  18865.           The input to the truncation routine. The input range is not 
  18866.           restricted. 
  18867.  
  18868. fc (output) 
  18869.           A 12-byte feedback code, optional in some languages, that indicates 
  18870.           the result of this service. 
  18871.  
  18872.           The following symbolic conditions can result from this service: 
  18873.  
  18874.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18875.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18876.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18877.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18878.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18879.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18880.  
  18881. result (output) 
  18882.           The result of the truncation routine. The output range is |result| <= 
  18883.           Omega. Omega varies depending on the precision of parm1: 
  18884.  
  18885.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18886.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18887.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  18888.  
  18889.  
  18890. ΓòÉΓòÉΓòÉ 4.3.19. CEESxLGM-Log Gamma ΓòÉΓòÉΓòÉ
  18891.  
  18892. CEESxLGM performs the mathematical function of log Gamma. If necessary, see 
  18893. your printed book for equation. 
  18894.  
  18895. The following routines are provided for the various data types supported: 
  18896.  
  18897. CEESSLGM            32-bit single float number 
  18898. CEESDLGM            64-bit double float number 
  18899.  
  18900. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18901. Γöé                                                  Γöé
  18902. Γöé >>ΓöÇΓöÇCEESxLGMΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18903. Γöé                                                  Γöé
  18904. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18905.  
  18906. parm1 (input) 
  18907.           The input to the log gamma routine. The input range is parm1 < 
  18908.           (4.2913 ┬╖ 10**73). 
  18909.  
  18910. fc (output) 
  18911.           A 12-byte feedback code, optional in some languages, that indicates 
  18912.           the result of this service. 
  18913.  
  18914.           The following symbolic conditions can result from this service: 
  18915.  
  18916.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18917.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18918.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18919.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18920.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18921.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18922.                     Γöé CEE1UL     Γöé 2        Γöé 2005      Γöé The value of the argument was outside the    Γöé
  18923.                     Γöé        Γöé         Γöé         Γöé valid range range in math routine        Γöé
  18924.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  18925.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18926.  
  18927. result (output) 
  18928.           The result of the Log Gamma routine. The output range is 
  18929.           -0.12149<=result<=Omega. Omega varies depending on the precision of 
  18930.           parm1: 
  18931.  
  18932.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  18933.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  18934.  
  18935.  
  18936. ΓòÉΓòÉΓòÉ 4.3.20. CEESxLG1-Logarithm Base 10 ΓòÉΓòÉΓòÉ
  18937.  
  18938. CEESxLG1 returns the logarithm base 10 of parm1. 
  18939.  
  18940. The following routines are provided for the various data types supported: 
  18941.  
  18942. CEESSLG1            32-bit single float number 
  18943. CEESDLG1            64-bit double float number 
  18944. CEESQLG1            128-bit extended float number 
  18945.  
  18946. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18947. Γöé                                                  Γöé
  18948. Γöé >>ΓöÇΓöÇCEESxLG1ΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18949. Γöé                                                  Γöé
  18950. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18951.  
  18952. parm1 (input) 
  18953.           The input to the log base 10 routine. The input range is parm1 > 0. 
  18954.  
  18955. fc (output) 
  18956.           A 12-byte feedback code, optional in some languages, that indicates 
  18957.           the result of this service. 
  18958.  
  18959.           The following symbolic conditions can result from this service: 
  18960.  
  18961.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18962.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  18963.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  18964.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18965.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  18966.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  18967.                     Γöé CEE1US     Γöé 2        Γöé 2012      Γöé The argument was less than or equal to limit  Γöé
  18968.                     Γöé        Γöé         Γöé         Γöé in math routine routine-name.          Γöé
  18969.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18970.  
  18971. result (output) 
  18972.           The result of the log base 10 routine. The output range is 
  18973.           -78.268<=result<=75.859. 
  18974.  
  18975.  
  18976. ΓòÉΓòÉΓòÉ 4.3.21. CEESxLG2-Logarithm Base 2 ΓòÉΓòÉΓòÉ
  18977.  
  18978. CEESxLG2 performs the mathematical function logarithm base 2 on parm1. 
  18979.  
  18980. The following routines are provided for the various data types supported: 
  18981.  
  18982. CEESSLG2            32-bit single float number 
  18983. CEESDLG2            64-bit double float number 
  18984. CEESQLG2            128-bit extended float number 
  18985.  
  18986. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  18987. Γöé                                                  Γöé
  18988. Γöé >>ΓöÇΓöÇCEESxLG2ΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  18989. Γöé                                                  Γöé
  18990. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  18991.  
  18992. parm1 (input) 
  18993.           The input to the log base 2 routine. The input range is parm1 > 0. 
  18994.  
  18995. fc (output) 
  18996.           A 12-byte feedback code, optional in some languages, that indicates 
  18997.           the result of this service. 
  18998.  
  18999.           The following symbolic conditions can result from this service: 
  19000.  
  19001.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19002.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19003.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19004.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19005.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19006.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19007.                     Γöé CEE1US     Γöé 2        Γöé 2012      Γöé The argument was less than or equal to limit  Γöé
  19008.                     Γöé        Γöé         Γöé         Γöé in math routine routine-name.          Γöé
  19009.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19010.  
  19011.  
  19012. result (output) 
  19013.           The result of the log base 2 routine. The output range is 
  19014.           -260<=result<=252. 
  19015.  
  19016.  
  19017. ΓòÉΓòÉΓòÉ 4.3.22. CEESxLOG-Logarithm Base e ΓòÉΓòÉΓòÉ
  19018.  
  19019. CEESxLOG performs the mathematical function logarithm base e on parm1. 
  19020.  
  19021. The following routines are provided for the various data types supported: 
  19022.  
  19023. CEESSLOG            32-bit single float number 
  19024. CEESDLOG            64-bit double float number 
  19025. CEESQLOG            128-bit extended float number 
  19026. CEESTLOG            32-bit single float-complex number 
  19027. CEESELOG            64-bit double float-complex number 
  19028. CEESRLOG            128-bit extended float-complex number 
  19029.  
  19030. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19031. Γöé                                                  Γöé
  19032. Γöé >>ΓöÇΓöÇCEESxLOGΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19033. Γöé                                                  Γöé
  19034. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19035.  
  19036. parm1 (input) 
  19037.           The input to the log base e routine. The input range for reals is 
  19038.           parm1 > 0. The input range for complex numbers is parm1 not equal to 
  19039.           0. 
  19040.  
  19041. fc (output) 
  19042.           A 12-byte feedback code, optional in some languages, that indicates 
  19043.           the result of this service. 
  19044.  
  19045.           The following symbolic conditions can result from this service: 
  19046.  
  19047.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19048.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19049.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19050.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19051.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19052.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19053.                     Γöé CEE1US     Γöé 2        Γöé 2012      Γöé The argument was less than or equal to limit  Γöé
  19054.                     Γöé        Γöé         Γöé         Γöé in math routine routine-name.          Γöé
  19055.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19056.                     Γöé CEE1V2     Γöé 2        Γöé 2018      Γöé The real and imaginary parts of the argument  Γöé
  19057.                     Γöé        Γöé         Γöé         Γöé were equal to limit in math routine routine-  Γöé
  19058.                     Γöé        Γöé         Γöé         Γöé name.                      Γöé
  19059.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19060.  
  19061. result (output) 
  19062.           The result of the log base e routine. The output range for functions 
  19063.           of real variables is -180.218 <= result <= 174.673. 
  19064.  
  19065.  
  19066. ΓòÉΓòÉΓòÉ 4.3.23. CEESxMLT-Floating Complex Multiply ΓòÉΓòÉΓòÉ
  19067.  
  19068. CEESxMLT performs the mathematical function floating complex multiply by using 
  19069. the equation result = parm1 ┬╖ parm2. 
  19070.  
  19071. The following routines are provided for the various data types supported: 
  19072.  
  19073. CEESTMLT            32-bit single float-complex number 
  19074. CEESEMLT            64-bit double float-complex number 
  19075. CEESRMLT            128-bit extended float-complex number 
  19076.  
  19077. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19078. Γöé                                                  Γöé
  19079. Γöé >>ΓöÇΓöÇCEESxMLTΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19080. Γöé                                                  Γöé
  19081. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19082.  
  19083. parm1 (input) 
  19084.           The first input to the math service. Any representable complex number 
  19085.           can be used as input. 
  19086.  
  19087. parm2 (input) 
  19088.           The second parameter to the math service. Any representable complex 
  19089.           number can be used as input. 
  19090.  
  19091. fc (output) 
  19092.           A 12-byte feedback code passed by reference indicating the result of 
  19093.           the service. 
  19094.  
  19095.           The following symbolic conditions can result from this service: 
  19096.  
  19097.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19098.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19099.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19100.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19101.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19102.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19103.  
  19104. result (output) 
  19105.           The result of the floating complex multiply routine. 
  19106.  
  19107.  
  19108. ΓòÉΓòÉΓòÉ 4.3.24. CEESxMOD-Modular Arithmetic ΓòÉΓòÉΓòÉ
  19109.  
  19110. CEESxMOD performs the mathematical function modular arithmetic by using the 
  19111. equation result = parm1(modulo parm2). 
  19112.  
  19113. The expression parm1 (modulo parm2) is defined as parm1 - [(parm1/parm2) ┬╖ 
  19114. parm2], with the brackets indicating an integer part, that is, the largest 
  19115. integer whose magnitude does not exceed the magnitude of parm1/parm2 is used. 
  19116. The sign of the integer is the same as the sign of parm1 ┬╖ parm2. 
  19117.  
  19118. The following routines are provided for the various data types supported: 
  19119.  
  19120. CEESIMOD            32-bit binary integer 
  19121. CEESSMOD            32-bit single float number 
  19122. CEESDMOD            64-bit double float number 
  19123. CEESQMOD            128-bit extended float number 
  19124.  
  19125. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19126. Γöé                                                  Γöé
  19127. Γöé >>ΓöÇΓöÇCEESxMODΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19128. Γöé                                                  Γöé
  19129. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19130.  
  19131. parm1 (input) 
  19132.           The first parameter to the modular arithmetic routine. The input 
  19133.           range is not restricted. 
  19134.  
  19135. parm2 (input) 
  19136.           The second parameter to the modular arithmetic routine. The input 
  19137.           range is parm2 cannot equal 0. 
  19138.  
  19139.           If parm2 = 0, the modulus routine is undefined. In addition, a divide 
  19140.           exception is recognized and an interrupt occurs. 
  19141.  
  19142. fc (output) 
  19143.           A 12-byte feedback code, optional in some languages, that indicates 
  19144.           the result of this service. 
  19145.  
  19146.           The following symbolic conditions can result from this service: 
  19147.  
  19148.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19149.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19150.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19151.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19152.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19153.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19154.  
  19155. result (output) 
  19156.           The result of the mod routine. The output range is |result| <= Omega. 
  19157.           Omega varies depending on the precision of parm1 and parm2: 
  19158.  
  19159.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  19160.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  19161.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  19162.  
  19163.  
  19164. ΓòÉΓòÉΓòÉ 4.3.25. CEESxNIN-Nearest Integer ΓòÉΓòÉΓòÉ
  19165.  
  19166. CEESxNIN performs the mathematical function nearest integer by using the 
  19167. equation: 
  19168. result = (sign of parm1) ┬╖ n. 
  19169.  
  19170. If parm1 => 0, then n = [| parm1 + .5 |]. If parm1 < 0, then n = [| parm1 - .5 
  19171. |]. 
  19172.  
  19173. n = | m |, where m is the greatest integer satisfying the relationship | m | <= 
  19174. | parm1 + .5 |, or | m | <= | parm1 - .5 |, respectively. 
  19175.  
  19176. The following routines are provided for the various data types supported: 
  19177.  
  19178. CEESSNIN            32-bit single float number 
  19179. CEESDNIN            64-bit double float number 
  19180.  
  19181. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19182. Γöé                                                  Γöé
  19183. Γöé >>ΓöÇΓöÇCEESxNINΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19184. Γöé                                                  Γöé
  19185. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19186.  
  19187. parm1 (input) 
  19188.           The input to the nearest integer routine. The input range is not 
  19189.           restricted. 
  19190.  
  19191. fc (output) 
  19192.           A 12-byte feedback code, optional in some languages, that indicates 
  19193.           the result of this service. 
  19194.  
  19195.           The following symbolic conditions can result from this service: 
  19196.  
  19197.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19198.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19199.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19200.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19201.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19202.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19203.  
  19204. result (output) 
  19205.           The result of the nearest integer routine. The output parameter is an 
  19206.           unrestricted type I, a 32-bit binary integer. 
  19207.  
  19208.  
  19209. ΓòÉΓòÉΓòÉ 4.3.26. CEESxNWN-Nearest Whole Number ΓòÉΓòÉΓòÉ
  19210.  
  19211. CEESxNWN performs the mathematical function nearest whole number by using the 
  19212. equation 
  19213. result = (sign of parm1) ┬╖ v. 
  19214.  
  19215. If parm1 => 0, then v = | parm1 + .5 |. If parm1 < 0, then v = [| parm1 - .5 
  19216. |]. 
  19217.  
  19218. v = | m |, where m is the greatest integer satisfying the relationship | m | <= 
  19219. | parm1 +.5 |, or | m | <= | parm1 -.5 |, respectively; and the resulting v is 
  19220. expressed as a float number. 
  19221.  
  19222. The following routines are provided for the various data types supported: 
  19223.  
  19224. CEESSNWN            32-bit single float number 
  19225. CEESDNWN            64-bit double float number 
  19226.  
  19227. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19228. Γöé                                                  Γöé
  19229. Γöé >>ΓöÇΓöÇCEESxNWNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19230. Γöé                                                  Γöé
  19231. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19232.  
  19233. parm1 (input) 
  19234.           The input to the nearest whole number routine. The input range is not 
  19235.           restricted. 
  19236.  
  19237. fc (output) 
  19238.           A 12-byte feedback code, optional in some languages, that indicates 
  19239.           the result of this service. 
  19240.  
  19241.           The following symbolic conditions can result from this service: 
  19242.  
  19243.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19244.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19245.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19246.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19247.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19248.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19249.  
  19250. result (output) 
  19251.           The result of the nearest whole number routine. The output range is | 
  19252.           result | <= Omega. Omega varies depending on the precision of parm1: 
  19253.  
  19254.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  19255.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  19256.  
  19257.  
  19258. ΓòÉΓòÉΓòÉ 4.3.27. CEESxSGN-Transfer of Sign ΓòÉΓòÉΓòÉ
  19259.  
  19260. CEESxSGN performs the mathematical function transfer of sign by using either of 
  19261. the two equations: 
  19262. result = |parm1| if parm2 => 0 
  19263. or 
  19264. result = -|parm1| if parm2 < 0. 
  19265.  
  19266. The following routines are provided for the various data types supported: 
  19267.  
  19268. CEESISGN            32-bit binary integer 
  19269. CEESSSGN            32-bit single float number 
  19270. CEESDSGN            64-bit double float number 
  19271. CEESQSGN            128-bit extended float number 
  19272.  
  19273. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19274. Γöé                                                  Γöé
  19275. Γöé >>ΓöÇΓöÇCEESxSGNΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19276. Γöé                                                  Γöé
  19277. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19278.  
  19279. parm1 (input) 
  19280.           The first input to the transfer of sign routine. The input range is 
  19281.           not restricted. 
  19282.  
  19283. parm2 (input) 
  19284.           The second parameter to the transfer of sign routine. The input range 
  19285.           is not restricted. 
  19286.  
  19287. fc (output) 
  19288.           A 12-byte feedback code, optional in some languages, that indicates 
  19289.           the result of this service. 
  19290.  
  19291.           The following symbolic conditions can result from this service: 
  19292.  
  19293.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19294.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19295.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19296.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19297.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19298.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19299.  
  19300. result (output) 
  19301.           The result of the transfer of sign routine. The output range is 
  19302.           |result| <= Omega. Omega varies depending on the precision of parm1: 
  19303.  
  19304.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  19305.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  19306.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  19307.  
  19308.  
  19309. ΓòÉΓòÉΓòÉ 4.3.28. CEESxSIN-Sine ΓòÉΓòÉΓòÉ
  19310.  
  19311. CEESxSIN returns the sine of the parameter by using the equation result = sin 
  19312. (parm1). 
  19313.  
  19314. The following routines are provided for the various data types supported: 
  19315.  
  19316. CEESSSIN            32-bit single float number 
  19317. CEESDSIN            64-bit double float number 
  19318. CEESQSIN            128-bit extended float number 
  19319. CEESTSIN            32-bit single float-complex number 
  19320. CEESESIN            64-bit double float-complex number 
  19321. CEESRSIN            128-bit extended float-complex number 
  19322.  
  19323. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19324. Γöé                                                  Γöé
  19325. Γöé >>ΓöÇΓöÇCEESxSINΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19326. Γöé                                                  Γöé
  19327. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19328.  
  19329. parm1 (input) 
  19330.           The input, in radians, to the sine routine. For real functions, the 
  19331.           input range differs depending on the precision of parm1: 
  19332.  
  19333.    |parm1| < (2**18 ┬╖ pi), for single-precision numbers 
  19334.    |parm1| < (2**50 ┬╖ pi), for double-precision numbers 
  19335.    |parm1| < 2**100, for extended-precision numbers 
  19336.  
  19337. For complex functions, the input range differs for the imaginary and real parts 
  19338. of the input. For the imaginary part of complex numbers, the input range is 
  19339. |Im(parm1)| < 174.673. 
  19340.  
  19341. For the real part, it is 
  19342.  
  19343.    |Im(parm1)| < (2**18 ┬╖ pi), for single float-complex numbers 
  19344.    |Im(parm1)| < (2**50 ┬╖ pi), for double float-complex numbers 
  19345.    |Im(parm1)| < 2**100, for extended float-complex numbers 
  19346.  
  19347. fc (output) 
  19348.           A 12-byte feedback code, optional in some languages, that indicates 
  19349.           the result of this service. 
  19350.  
  19351.           The following symbolic conditions can result from this service: 
  19352.  
  19353.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19354.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19355.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19356.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19357.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19358.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19359.                     Γöé CEE1UT     Γöé 2        Γöé 2013      Γöé The absolute value of the imaginary part of   Γöé
  19360.                     Γöé        Γöé         Γöé         Γöé the argument was greater than limit in math   Γöé
  19361.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  19362.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19363.                     Γöé CEE1V1     Γöé 2        Γöé 2017      Γöé The absolute value of the argument was greater Γöé
  19364.                     Γöé        Γöé         Γöé         Γöé than or equal to limit in math routine     Γöé
  19365.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  19366.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19367.                     Γöé CEE1V3     Γöé 2        Γöé 2019      Γöé The absolute value of the real part of the   Γöé
  19368.                     Γöé        Γöé         Γöé         Γöé argument was greater than or equal to limit in Γöé
  19369.                     Γöé        Γöé         Γöé         Γöé math routine routine-name.           Γöé
  19370.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19371.  
  19372. result (output) 
  19373.           The result of the sine routine. The output range for functions of 
  19374.           real variables is -1 <= result <= 1. 
  19375.  
  19376.  
  19377. ΓòÉΓòÉΓòÉ 4.3.29. CEESxSNH-Hyperbolic Sine ΓòÉΓòÉΓòÉ
  19378.  
  19379. CEESxSNH performs the mathematical function hyperbolic sine by using the 
  19380. equation result = sinh (parm1). 
  19381.  
  19382. The following routines are provided for the various data types supported: 
  19383.  
  19384. CEESSSNH            32-bit single float number 
  19385. CEESDSNH            64-bit double float number 
  19386. CEESQSNH            128-bit extended float number 
  19387. CEESTSNH            32-bit single float-complex number 
  19388. CEESESNH            64-bit double float-complex number 
  19389. CEESRSNH            128-bit extended float-complex number 
  19390.  
  19391. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19392. Γöé                                                  Γöé
  19393. Γöé >>ΓöÇΓöÇCEESxSNHΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19394. Γöé                                                  Γöé
  19395. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19396.  
  19397. parm1 (input) 
  19398.           The input to the hyperbolic sine routine. Input range for reals is 
  19399.           |parm1| < 175.366. 
  19400.  
  19401.           For complex functions, the input range differs for the imaginary and 
  19402.           real parts of the input. For the real part, the input range is 
  19403.           |Re(parm1)| < 174.673. The input range of the imaginary part differs 
  19404.           depending on the precision of parm1: 
  19405.  
  19406.    |Im(parm1)| < (2**18 ┬╖ pi), for single float-complex numbers 
  19407.    |Im(parm1)| < (2**50 ┬╖ pi), for double float-complex numbers 
  19408.    |Im(parm1)| < 2**100, for extended float-complex numbers 
  19409.  
  19410. fc (output) 
  19411.           A 12-byte feedback code, optional in some languages, that indicates 
  19412.           the result of this service. 
  19413.  
  19414.           The following symbolic conditions can result from this service: 
  19415.  
  19416.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19417.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19418.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19419.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19420.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19421.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19422.                     Γöé CEE1V0     Γöé 2        Γöé 2016      Γöé The absolute value of the argument was greater Γöé
  19423.                     Γöé        Γöé         Γöé         Γöé than limit in math routine routine-name.    Γöé
  19424.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19425.  
  19426. result (output) 
  19427.           The result of the hyperbolic sine routine. The output range for 
  19428.           functions of real variables is | result | <= Omega. Omega varies 
  19429.           depending on the precision of parm1: 
  19430.  
  19431.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  19432.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  19433.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  19434.  
  19435.  
  19436. ΓòÉΓòÉΓòÉ 4.3.30. CEESxSQT-Square Root ΓòÉΓòÉΓòÉ
  19437.  
  19438. CEESxSQT returns the square root of parm1. 
  19439.  
  19440. The following routines are provided for the various data types supported: 
  19441.  
  19442. CEESSSQT            32-bit single float number 
  19443. CEESDSQT            64-bit double float number 
  19444. CEESQSQT            128-bit extended float number 
  19445. CEESTSQT            32-bit single float-complex number 
  19446. CEESESQT            64-bit double float-complex number 
  19447. CEESRSQT            128-bit extended float-complex number 
  19448.  
  19449. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19450. Γöé                                                  Γöé
  19451. Γöé >>ΓöÇΓöÇCEESxSQTΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19452. Γöé                                                  Γöé
  19453. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19454.  
  19455. parm1 (input) 
  19456.           The input to the square root routine. The input range for real number 
  19457.           functions is parm1 => 0. For complex numbers, the input range is not 
  19458.           restricted. 
  19459.  
  19460. fc (output) 
  19461.           A 12-byte feedback code, optional in some languages, that indicates 
  19462.           the result of this service. 
  19463.  
  19464.           The following symbolic conditions can result from this service: 
  19465.  
  19466.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19467.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19468.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19469.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19470.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19471.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19472.                     Γöé CEE1UQ     Γöé 2        Γöé 2010      Γöé The argument was less than limit in math    Γöé
  19473.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  19474.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19475.  
  19476. result (output) 
  19477.           The result of the square root routine. The output range for functions 
  19478.           of real variables is 0 <= result <= square root of Omega. Omega 
  19479.           varies depending on the precision of parm1: 
  19480.  
  19481.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  19482.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  19483.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  19484.  
  19485.  
  19486. ΓòÉΓòÉΓòÉ 4.3.31. CEESxTAN-Tangent ΓòÉΓòÉΓòÉ
  19487.  
  19488. CEESxTAN returns the tangent of the parameter by using the equation result = 
  19489. tan (parm1). 
  19490.  
  19491. The following routines are provided for the various data types supported: 
  19492.  
  19493. CEESSTAN            32-bit single float number 
  19494. CEESDTAN            64-bit double float number 
  19495. CEESQTAN            128-bit extended float number 
  19496. CEESTTAN            32-bit single float-complex number 
  19497. CEESETAN            64-bit double float-complex number 
  19498. CEESRTAN            128-bit extended float-complex number 
  19499.  
  19500. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19501. Γöé                                                  Γöé
  19502. Γöé >>ΓöÇΓöÇCEESxTANΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19503. Γöé                                                  Γöé
  19504. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19505.  
  19506. parm1 (input) 
  19507.           The input, in radians, to the tangent routine. For real functions, 
  19508.           the input range differs depending on the precision of parm1: 
  19509.  
  19510.    |parm1| < (2**18 ┬╖ pi), for single-precision numbers 
  19511.  
  19512.    |parm1| < (2**50 ┬╖ pi), for double-precision numbers 
  19513.  
  19514.    |parm1| < 2**100, for extended-precision numbers 
  19515.  
  19516. Also, for extended as well as complex functions, parm1 cannot approach odd 
  19517. multiples of pi/2. 
  19518.  
  19519. fc (output) 
  19520.           A 12-byte feedback code, optional in some languages, that indicates 
  19521.           the result of this service. 
  19522.  
  19523.           The following symbolic conditions can result from this service: 
  19524.  
  19525.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19526.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19527.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19528.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19529.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19530.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19531.                     Γöé CEE1UI     Γöé 2        Γöé 2002      Γöé The argument value was too close to one of the Γöé
  19532.                     Γöé        Γöé         Γöé         Γöé singularities (plus or minus pi/2, plus or   Γöé
  19533.                     Γöé        Γöé         Γöé         Γöé minus 3pi/2, for the tangent; or plus or minus Γöé
  19534.                     Γöé        Γöé         Γöé         Γöé pi, plus or minus 2pi, for the cotangent) in  Γöé
  19535.                     Γöé        Γöé         Γöé         Γöé math routine routine-name.           Γöé
  19536.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19537.                     Γöé CEE1V1     Γöé 2        Γöé 2017      Γöé The absolute value of the argument was greater Γöé
  19538.                     Γöé        Γöé         Γöé         Γöé than or equal to limit in math routine     Γöé
  19539.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  19540.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19541.                     Γöé CEE1V9     Γöé 1        Γöé 2025      Γöé An underflow has occurred in math routine    Γöé
  19542.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  19543.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19544.  
  19545. result (output) 
  19546.           The result of the tangent routine. The output range for functions of 
  19547.           real variables is |result| <= &Omega.. The output range is the 
  19548.           non-negative numbers <= Omega. Omega varies depending on the 
  19549.           precision of parm1: 
  19550.  
  19551.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  19552.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  19553.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  19554.  
  19555.  
  19556. ΓòÉΓòÉΓòÉ 4.3.32. CEESxTNH-Hyperbolic Tangent ΓòÉΓòÉΓòÉ
  19557.  
  19558. CEESxTNH performs the mathematical function hyperbolic tangent by using the 
  19559. equation: 
  19560. result = tanh (parm1). 
  19561.  
  19562. The following routines are provided for the various data types supported: 
  19563.  
  19564. CEESSTNH            32-bit single float number 
  19565. CEESDTNH            64-bit double float number 
  19566. CEESQTNH            128-bit extended float number 
  19567. CEESTTNH            32-bit single float-complex number 
  19568. CEESETNH            64-bit double float-complex number 
  19569. CEESRTNH            128-bit extended float-complex number 
  19570.  
  19571. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19572. Γöé                                                  Γöé
  19573. Γöé >>ΓöÇΓöÇCEESxTNHΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19574. Γöé                                                  Γöé
  19575. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19576.  
  19577. parm1 (input) 
  19578.           The input to the hyperbolic tangent routine. The input range is not 
  19579.           restricted for real functions. For complex functions, parm1 must not 
  19580.           approach odd multiples of pi/2 ┬╖ i, where i = sqrt of -1. 
  19581.  
  19582. fc (output) 
  19583.           A 12-byte feedback code, optional in some languages, that indicates 
  19584.           the result of this service. 
  19585.  
  19586.           The following symbolic conditions can result from this service: 
  19587.  
  19588.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19589.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19590.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19591.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19592.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19593.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19594.  
  19595. result (output) 
  19596.           The result of the hyperbolic tangent routine. The output range for 
  19597.           functions of real variables is: 
  19598.           | result | < 1. 
  19599.  
  19600.  
  19601. ΓòÉΓòÉΓòÉ 4.3.33. CEESxXPx-Exponentiation ΓòÉΓòÉΓòÉ
  19602.  
  19603. CEESxXPx performs the mathematical function exponentiation by using the 
  19604. equation result = parm1**parm2. 
  19605.  
  19606. The following routines are provided for the various data types supported: 
  19607.  
  19608. CEESIXPI            32-bit binary integer raised to a 32-bit binary integer 
  19609. CEESSXPI            32-bit single float number raised to a 32-bit binary 
  19610.                     integer 
  19611. CEESDXPI            64-bit double float number raised to a 32-bit binary 
  19612.                     integer 
  19613. CEESQXPI            128-bit extended float number raised to a 32-bit binary 
  19614.                     integer 
  19615. CEESTXPI            32-bit single float-complex number raised to a 32-bit 
  19616.                     binary integer 
  19617. CEESEXPI            64-bit double float-complex number raised to a 32-bit 
  19618.                     binary integer 
  19619. CEESRXPI            128-bit extended float-complex number raised to a 32-bit 
  19620.                     binary integer 
  19621. CEESSXPS            32-bit single floating point raised to a 32-bit single 
  19622.                     floating point 
  19623. CEESDXPD            64-bit double floating point raised to a 64-bit double 
  19624.                     floating point 
  19625. CEESQXPQ            128-bit extended floating point raised to a 128-bit 
  19626.                     extended floating point 
  19627. CEESTXPT            32-bit single float-complex raised to a 32-bit single 
  19628.                     float-complex 
  19629. CEESEXPE            64-bit double float-complex raised to a 64-bit double 
  19630.                     float-complex 
  19631. CEESRXPR            128-bit extended float-complex raised to a 128-bit extended 
  19632.                     float-complex 
  19633.  
  19634. ΓöîΓöÇΓöÇΓöÇ SYNTAX ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19635. Γöé                                                  Γöé
  19636. Γöé >>ΓöÇΓöÇCEESxXPxΓöÇΓöÇ(ΓöÇΓöÇparm1ΓöÇΓöÇ,ΓöÇΓöÇparm2ΓöÇΓöÇ,ΓöÇΓöÇfcΓöÇΓöÇ,ΓöÇΓöÇresultΓöÇΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ>< Γöé
  19637. Γöé                                                  Γöé
  19638. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19639.  
  19640. parm1 (input) 
  19641.           The input for the base of the exponentiation routine. The input range 
  19642.           for functions of real variables is 
  19643.  
  19644.     If parm1 = 0, then parm2 > 0. 
  19645.  
  19646.     If parm1 is a 32-bit number and parm1 < 0, then 
  19647.      |parm1| <= ((16**6) - 1) and parm2 = a whole number. 
  19648.  
  19649.     If parm1 is a 64-bit number and parm1 < 0, then |parm1| <= ((16**14) - 1) 
  19650.      and parm2 = a whole number. 
  19651.  
  19652.     If parm1 is a 128-bit number and parm1 < 0, then |parm1| <= ((16**28) - 1) 
  19653.      and parm2 = a whole number 
  19654.  
  19655.           the input range for functions of complex variables: If Re(parm1) = 0 
  19656.           and Im(parm1) = 0, then Re(parm2) must be positive. 
  19657.  
  19658. parm2 (input) 
  19659.           The input for the power of the exponentiation routine. The type is 
  19660.           determined by the eighth character of the service name. 
  19661.  
  19662. fc (output) 
  19663.           A 12-byte feedback code, optional in some languages, that indicates 
  19664.           the result of this service. 
  19665.  
  19666.           The following symbolic conditions can result from this service: 
  19667.  
  19668.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19669.                     Γöé SYMBOLIC    Γöé         Γöé         Γöé                         Γöé
  19670.                     Γöé FEEDBACK CODE Γöé SEVERITY    Γöé MESSAGE NUMBER Γöé MESSAGE TEXT                  Γöé
  19671.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19672.                     Γöé CEE000     Γöé 0        Γöé -        Γöé The service completed successfully.       Γöé
  19673.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19674.                     Γöé CEE1UJ     Γöé 2        Γöé 2003      Γöé For an exponentiation operation (I**J) where I Γöé
  19675.                     Γöé        Γöé         Γöé         Γöé and J are integers, I was equal to zero and J  Γöé
  19676.                     Γöé        Γöé         Γöé         Γöé was less than or equal to zero in math routine Γöé
  19677.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  19678.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19679.                     Γöé CEE1UK     Γöé 2        Γöé 2004      Γöé For an exponentiation operation (R**I) where R Γöé
  19680.                     Γöé        Γöé         Γöé         Γöé is real and I is integer, R was equal to zero  Γöé
  19681.                     Γöé        Γöé         Γöé         Γöé and I was less than or equal to zero in math  Γöé
  19682.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  19683.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19684.                     Γöé CEE1UL     Γöé 2        Γöé 2005      Γöé The value of the argument was outside the    Γöé
  19685.                     Γöé        Γöé         Γöé         Γöé valid range range in math routine        Γöé
  19686.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  19687.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19688.                     Γöé CEE1UM     Γöé 2        Γöé 2006      Γöé For an exponentiation operation (R**S) where R Γöé
  19689.                     Γöé        Γöé         Γöé         Γöé and S are real values, R was equal to zero and Γöé
  19690.                     Γöé        Γöé         Γöé         Γöé S was less than or equal to zero in math    Γöé
  19691.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  19692.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19693.                     Γöé CEE1UN     Γöé 2        Γöé 2007      Γöé The exponent exceeded limit in math routine   Γöé
  19694.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  19695.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19696.                     Γöé CEE1UO     Γöé 2        Γöé 2008      Γöé For an exponentiation operation (Z**P) where  Γöé
  19697.                     Γöé        Γöé         Γöé         Γöé the complex base Z equals zero, the real part  Γöé
  19698.                     Γöé        Γöé         Γöé         Γöé of the complex exponent P, or the integer    Γöé
  19699.                     Γöé        Γöé         Γöé         Γöé exponent P was less than or equal to zero in  Γöé
  19700.                     Γöé        Γöé         Γöé         Γöé math routine routine-name.           Γöé
  19701.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19702.                     Γöé CEE1V4     Γöé 2        Γöé 2020      Γöé For an exponentiation operation (R**S) where R Γöé
  19703.                     Γöé        Γöé         Γöé         Γöé and S are real values, either R is equal to   Γöé
  19704.                     Γöé        Γöé         Γöé         Γöé zero and S is negative or R is negative and S  Γöé
  19705.                     Γöé        Γöé         Γöé         Γöé is not an integer whose absolute value is less Γöé
  19706.                     Γöé        Γöé         Γöé         Γöé than or equal to limit in math routine     Γöé
  19707.                     Γöé        Γöé         Γöé         Γöé routine-name.                  Γöé
  19708.                     Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19709.                     Γöé CEE1V5     Γöé 2        Γöé 2021      Γöé For an exponentiation operation (X**Y), the   Γöé
  19710.                     Γöé        Γöé         Γöé         Γöé argument combination of Y*log2(X) generated a  Γöé
  19711.                     Γöé        Γöé         Γöé         Γöé number greater than or equal to limit in math  Γöé
  19712.                     Γöé        Γöé         Γöé         Γöé routine routine-name.              Γöé
  19713.                     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  19714.  
  19715. result (output) 
  19716.           The result of the exponentiation routine. The output range for 
  19717.           functions of real variables is | result | <= Omega. Omega varies 
  19718.           depending on the precision of parm1: 
  19719.  
  19720.    For single-precision routines, Omega = (16**63)(1-16**(-6)) 
  19721.    For double-precision routines, Omega = (16**63)(1-16**(-14)) 
  19722.    For extended-precision routines, Omega = (16**63)(1-16**(-28)) 
  19723.  
  19724.  
  19725. ΓòÉΓòÉΓòÉ 4.4. Examples of Math Services ΓòÉΓòÉΓòÉ
  19726.  
  19727. This section contains representative calls to math services from each supported 
  19728. language. 
  19729.  
  19730.  
  19731. ΓòÉΓòÉΓòÉ 4.4.1. C/370 Math Service Example ΓòÉΓòÉΓòÉ
  19732.  
  19733. The following are C/370 examples. 
  19734.  
  19735. Log Base 10 and Modular Arithmetic (CEESDGL1 and CEESIMOD) 
  19736.  
  19737. #include <leawi.h>
  19738. #include <string.h>
  19739. #include <stdio.h>
  19740.  
  19741. int main (void) {
  19742.  
  19743.   _FLOAT8 f1,result;
  19744.   _INT4 int1, int2, intr;
  19745.  
  19746.   _FEEDBACK fc;
  19747.   #define SUCCESS "\0\0\0\0"
  19748.  
  19749.   f1 = 1000.0;
  19750.  
  19751.   CEESDLG1(&f1,&fc,&result);
  19752.  
  19753.   if (memcmp(&fc,SUCCESS,4) != 0) {
  19754.      printf("CEESDLG1 failed with message number %d\n",
  19755.             fc.tok_msgno);
  19756.      exit(2999);
  19757.   }
  19758.  
  19759.   printf("%f log base 10 is %f\n",f1,result);
  19760.  
  19761.   int1 = 39;
  19762.   int2 = 7;
  19763.   CEESIMOD(&int1,&int2,&fc,&intr);
  19764.  
  19765.   if (memcmp(&fc,SUCCESS,4) != 0) {
  19766.      printf("CEESIMOD failed with message number %d\n",
  19767.             fc.tok_msgno);
  19768.      exit(2999);
  19769.   }
  19770.  
  19771.   printf("%d modulo %d is %d\n",int1,int2,intr);
  19772. }
  19773.  
  19774.  
  19775. ΓòÉΓòÉΓòÉ 4.4.2. COBOL/370 Math Service Examples ΓòÉΓòÉΓòÉ
  19776.  
  19777. The following are COBOL/370 examples. 
  19778.  
  19779. Log Base e (CEESSLOG) 
  19780.  
  19781.  
  19782.        77   ARG1RS  COMP-1.
  19783.        77   FBCODE  PIC X(12).
  19784.        77   RESLTRS COMP-1.
  19785.  
  19786.            CALL "CEESSLOG" USING ARG1RS , FBCODE , RESLTRS.
  19787.  
  19788. Log Base 10 (CEESDLG1) 
  19789.  
  19790.  
  19791.        77   ARG1RL  COMP-2.
  19792.        77   FBCODE  PIC X(12).
  19793.        77   RESLTRL COMP-2.
  19794.  
  19795.  
  19796.            CALL "CEESDLG1" USING ARG1RL , FBCODE , RESLTRL.
  19797.  
  19798. Exponentiation (CEESIXPI) 
  19799.  
  19800.  
  19801.        77   ARG1IS  PIC S9(9) COMP.
  19802.        77   ARG2IS  PIC S9(9) COMP.
  19803.        77   FBCODE  PIC X(12).
  19804.        77   RESLTIS PIC S9(9) COMP.
  19805.  
  19806.  
  19807.            CALL "CEESIXPI" USING ARG1IS , ARG2IS , FBCODE , RESLTIS.
  19808.  
  19809. Exponentiation (CEESSXPI) 
  19810.  
  19811.  
  19812.        77   ARG1RS  COMP-1.
  19813.        77   ARG2IS  PIC S9(9) COMP.
  19814.        77   FBCODE  PIC X(12).
  19815.        77   RESLTRS COMP-1.
  19816.  
  19817.  
  19818.            CALL "CEESSXPI" USING ARG1RS , ARG2IS , FBCODE , RESLTRS.
  19819.  
  19820. Arctangent2 (CEESSAT2) 
  19821.  
  19822.  
  19823.        77   ARG1RS  COMP-1.
  19824.        77   ARG2RS  COMP-1.
  19825.        77   FBCODE  PIC X(12).
  19826.        77   RESLTRS COMP-1.
  19827.  
  19828.             CALL "CEESSAT2" USING ARG1RS , ARG2RS , FBCODE , RESLTRS.
  19829.  
  19830.  
  19831. ΓòÉΓòÉΓòÉ 4.4.3. PL/I Math Service Examples ΓòÉΓòÉΓòÉ
  19832.  
  19833. The following are PL/I examples. 
  19834.  
  19835. Modular Arithmetic and Log Base e (CEESIMOD and CEESSLOG) 
  19836.  
  19837.  
  19838. PLIMATH: PROC OPTIONS(MAIN);
  19839.  
  19840.    DCL CEESSLOG ENTRY OPTIONS(ASM) EXTERNAL;
  19841.    DCL CEESIMOD ENTRY OPTIONS(ASM) EXTERNAL;
  19842.  
  19843.    DCL ARG1  RESULT REAL FLOAT DEC (6);
  19844.    DCL ARGM1 ARGM2  RES2 FLOAT BINARY(21)
  19845.    DCL FC    CHARACTER (12);
  19846.  
  19847.   /* Call log base e routine, which has    */
  19848.   /* only one input parameter              */
  19849.    CALL CEESSLOG (ARG1, FC, RESULT)
  19850.  
  19851.    IF ( FC ╨║= '000000000000000000000000'X )
  19852.      THEN DO;
  19853.        PUT SKIP LIST
  19854.           ( 'Error occurred in call to CEESSLOG.' );
  19855.      ELSE;
  19856.  
  19857.   /* Call modular arithmetic routine,      */
  19858.   /* which has two input parameters        */
  19859.    CALL CEESIMOD (ARGM1, ARGM2, FC, RES2);
  19860.  
  19861.    IF ( FC ╨║= '000000000000000000000000'X )
  19862.      THEN DO;
  19863.        PUT SKIP LIST
  19864.           ( 'Error occurred in call to CEESIMOD.' );
  19865.      ELSE;
  19866.    END;
  19867.  
  19868. Double-Precision Complex Tangent (CEESETAN) 
  19869.  
  19870.  
  19871.  TRYETAN:  PROCEDURE OPTIONS( MAIN );
  19872.  
  19873.     DECLARE FC           CHARACTER(12);
  19874.     DECLARE PARM1        COMPLEX FLOAT BINARY(53);
  19875.     DECLARE RESULT       COMPLEX FLOAT BINARY(53);
  19876.  
  19877.     DECLARE CEESETAN     ENTRY(COMPLEX FLOAT BINARY(53),
  19878.                             *, COMPLEX FLOAT BINARY(53))
  19879.                             OPTIONS(ASSEMBLER) EXTERNAL;
  19880.  
  19881.  
  19882.     PARM1 = COMPLEX(7,1.1);
  19883.     CALL CEESETAN ( PARM1, FC, RESULT);
  19884.     IF ( FC ╨║= '000000000000000000000000'X) THEN
  19885.           PUT SKIP LIST( 'Error in call to CEESETAN.');
  19886.     ELSE
  19887.           PUT SKIP LIST( 'Result is ' || RESULT);
  19888.  END TRYETAN;
  19889.  
  19890.  
  19891. ΓòÉΓòÉΓòÉ 5. IBM-Supplied Country Code Defaults ΓòÉΓòÉΓòÉ
  19892.  
  19893. Defaults Currency and Picture Strings Based on COUNTRY Setting contains the 
  19894. currency symbols and default picture strings for the country_code parameters of 
  19895. the COUNTRY run-time option and the national language support callable 
  19896. services. See COUNTRY and the services listed in National Language Support 
  19897. Callable Services for more information. 
  19898.  
  19899. Note:   In the table, some currency symbols are shown as X'9F404040'. How this 
  19900. is displayed differs; in the United States, it is shown as a '$' followed by 
  19901. three blanks. 
  19902.  
  19903. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  19904. Γöé Table 20. Defaults Currency and Picture Strings Based on COUNTRY Setting             Γöé
  19905. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19906. Γöé COUNTRY       Γöé COUNTRY  Γöé DEFAULT  Γöé DEFAULT  Γöé DEFAULT CURRENCY   Γöé DEFAULT DATE AND   Γöé
  19907. Γöé           Γöé CODE   Γöé DECIMAL  Γöé THOU-   Γöé SYMBOL        Γöé TIME PICTURE STRING Γöé
  19908. Γöé           Γöé      Γöé SEPA-   Γöé SANDS   Γöé           Γöé           Γöé
  19909. Γöé           Γöé      Γöé RATOR   Γöé SEPA-   Γöé           Γöé           Γöé
  19910. Γöé           Γöé      Γöé      Γöé RATOR   Γöé           Γöé           Γöé
  19911. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19912. Γöé Afghanistan     Γöé AF    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19913. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19914. Γöé Albania       Γöé AL    Γöé   ,   Γöé   .   Γöé Lek         Γöé YYYY-MM-DD HH:MI:SS Γöé
  19915. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19916. Γöé Algeria       Γöé DZ    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  19917. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19918. Γöé Andorra       Γöé AD    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19919. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19920. Γöé Angola        Γöé AO    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19921. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19922. Γöé Antigua and Barbuda Γöé AG    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19923. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19924. Γöé Argentina      Γöé AR    Γöé   ,   Γöé   .   Γöé A.          Γöé DD/MM/YY HH.MI.SS  Γöé
  19925. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19926. Γöé Armenia       Γöé AM    Γöé      Γöé      Γöé           Γöé           Γöé
  19927. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19928. Γöé Australia      Γöé AU    Γöé   .   Γöé   ,   Γöé $          Γöé DD/MM/YY HH:MI:SS  Γöé
  19929. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19930. Γöé Austria       Γöé AT    Γöé   ,   Γöé   .   Γöé YYYY-MM-DD      Γöé           Γöé
  19931. Γöé           Γöé      Γöé      Γöé      Γöé HH:MI:SS,999     Γöé           Γöé
  19932. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19933. Γöé Azerbaijan      Γöé AZ    Γöé      Γöé      Γöé           Γöé           Γöé
  19934. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19935. Γöé Bahamas       Γöé BS    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19936. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19937. Γöé Bahrain       Γöé BH    Γöé   ,   Γöé   .   Γöé YYYY/MM/DD HH:MI:SS Γöé           Γöé
  19938. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19939. Γöé Bangladesh      Γöé BD    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19940. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19941. Γöé Barbados       Γöé BB    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19942. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19943. Γöé Belarus       Γöé BY    Γöé      Γöé      Γöé           Γöé           Γöé
  19944. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19945. Γöé Belgium       Γöé BE    Γöé   ,   Γöé   .   Γöé BF          Γöé DD/MM/YY       Γöé
  19946. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH:MI:SS,999     Γöé
  19947. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19948. Γöé Benin        Γöé BJ    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19949. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19950. Γöé Bermuda       Γöé BM    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19951. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19952. Γöé Bolivia       Γöé BO    Γöé   ,   Γöé   .   Γöé BS          Γöé DD/MM/YY HH:MI:SS  Γöé
  19953. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19954. Γöé Bosnia/       Γöé BA    Γöé   ,   Γöé   .   Γöé BHD (Dinar)     Γöé DD.MM.YYYY HH:MI:SS Γöé
  19955. Γöé Herzegovina     Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  19956. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19957. Γöé Botswana       Γöé BW    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19958. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19959. Γöé Brazil        Γöé BR    Γöé   ,   Γöé   .   Γöé NCz$         Γöé DD/MM/YY HH:MI:SS  Γöé
  19960. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19961. Γöé Brunei Darussalam  Γöé BN    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19962. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19963. Γöé Bulgaria       Γöé BG    Γöé   .   Γöé   ,   Γöé LV (Lev)       Γöé DD.MM.YYYY HH:MI:SS Γöé
  19964. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19965. Γöé Burkina Faso (Upper Γöé BF    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19966. Γöé Volta)        Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  19967. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19968. Γöé Burma        Γöé BU    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19969. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19970. Γöé Canada        Γöé CA    Γöé   .   Γöé   ,   Γöé $          Γöé YY-MM-DD       Γöé
  19971. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH:MI:SS.99     Γöé
  19972. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19973. Γöé Cayman Islands    Γöé KY    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19974. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19975. Γöé Chad         Γöé TD    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19976. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19977. Γöé Chile        Γöé CL    Γöé   ,   Γöé   .   Γöé $          Γöé DD/MM/YY HH:MI:SS  Γöé
  19978. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19979. Γöé Colombia       Γöé CO    Γöé   ,   Γöé   .   Γöé $          Γöé DD/MM/YY ZH:MI:SS  Γöé
  19980. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  19981. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19982. Γöé Costa Rica      Γöé CR    Γöé   ,   Γöé   .   Γöé c/.         Γöé DD/MM/YY ZH:MI:SS  Γöé
  19983. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  19984. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19985. Γöé Croatia       Γöé HR    Γöé   ,   Γöé   .   Γöé HRD (Dinar)     Γöé DD.MM.YYYY HH:MI:SS Γöé
  19986. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19987. Γöé Cuba         Γöé CU    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19988. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19989. Γöé Cyprus        Γöé CY    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19990. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19991. Γöé Czech Republic    Γöé CZ    Γöé   ,   Γöé   .   Γöé X'D247A240'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19992. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19993. Γöé Czechoslovakia    Γöé CS    Γöé   ,   Γöé   .   Γöé X'D247A240'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  19994. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19995. Γöé Denmark       Γöé DK    Γöé   ,   Γöé   .   Γöé kr          Γöé DD-MM-YY       Γöé
  19996. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH.MI.SS,99     Γöé
  19997. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  19998. Γöé Dominican Republic  Γöé DO    Γöé   .   Γöé   ,   Γöé $          Γöé DD/MM/YY ZH:MI:SS  Γöé
  19999. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  20000. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20001. Γöé Ecuador       Γöé EC    Γöé   ,   Γöé   .   Γöé $          Γöé DD/MM/YY HH:MI:SS  Γöé
  20002. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20003. Γöé Egypt        Γöé EG    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20004. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  20005. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  20006. Γöé Table 20. Defaults Currency and Picture Strings Based on COUNTRY Setting             Γöé
  20007. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20008. Γöé COUNTRY       Γöé COUNTRY  Γöé DEFAULT  Γöé DEFAULT  Γöé DEFAULT CURRENCY   Γöé DEFAULT DATE AND   Γöé
  20009. Γöé           Γöé CODE   Γöé DECIMAL  Γöé THOU-   Γöé SYMBOL        Γöé TIME PICTURE STRING Γöé
  20010. Γöé           Γöé      Γöé SEPA-   Γöé SANDS   Γöé           Γöé           Γöé
  20011. Γöé           Γöé      Γöé RATOR   Γöé SEPA-   Γöé           Γöé           Γöé
  20012. Γöé           Γöé      Γöé      Γöé RATOR   Γöé           Γöé           Γöé
  20013. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20014. Γöé El Salvador     Γöé SV    Γöé   .   Γöé   ,   Γöé c/.         Γöé DD/MM/YY HH:MI:SS  Γöé
  20015. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20016. Γöé Estonia       Γöé EE    Γöé   ,   Γöé   .   Γöé           Γöé DD mmm. YYYY g.   Γöé
  20017. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH:MI:SS       Γöé
  20018. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20019. Γöé Ethiopia       Γöé ET    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20020. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20021. Γöé Finland       Γöé FI    Γöé   ,   Γöé      Γöé Mk          Γöé DD.MM.YYYY      Γöé
  20022. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH.MI.SS,99     Γöé
  20023. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20024. Γöé France        Γöé FR    Γöé   ,   Γöé      Γöé F          Γöé DD.MM.YYYY      Γöé
  20025. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH:MI:SS,9      Γöé
  20026. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20027. Γöé Gabon        Γöé GA    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20028. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20029. Γöé Gambia        Γöé GM    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20030. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20031. Γöé Georgia       Γöé GE    Γöé      Γöé      Γöé           Γöé           Γöé
  20032. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20033. Γöé Germany       Γöé DE    Γöé   ,   Γöé   .   Γöé DM          Γöé DD.MM.YYYY HH:MI:SS Γöé
  20034. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20035. Γöé Ghana        Γöé GH    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20036. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20037. Γöé Greece        Γöé GR    Γöé   ,   Γöé   .   Γöé Drs         Γöé DD/MM/YY       Γöé
  20038. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH:MI:SS.999     Γöé
  20039. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20040. Γöé Guatemala      Γöé GT    Γöé   .   Γöé   ,   Γöé Q          Γöé DD/MM/YY HH:MI:SS  Γöé
  20041. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20042. Γöé Guinea-       Γöé GW    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20043. Γöé Bissau        Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  20044. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20045. Γöé Guyana        Γöé GY    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20046. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20047. Γöé Haiti        Γöé HT    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20048. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20049. Γöé Honduras       Γöé HN    Γöé   .   Γöé   ,   Γöé L.          Γöé DD/MM/YY ZH:MI:SS  Γöé
  20050. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  20051. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20052. Γöé Hong Kong      Γöé HK    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20053. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20054. Γöé Hungary       Γöé HU    Γöé   ,   Γöé      Γöé FT          Γöé YYYY-MM-DD HH:MI:SS Γöé
  20055. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20056. Γöé Iceland       Γöé IS    Γöé   ,   Γöé   .   Γöé kr          Γöé YYYY-MM-DD HH:MI:SS Γöé
  20057. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20058. Γöé India        Γöé IN    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20059. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20060. Γöé Indonesia      Γöé ID    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20061. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20062. Γöé Iran         Γöé IR    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20063. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20064. Γöé Iraq         Γöé IQ    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20065. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20066. Γöé Ireland       Γöé IE    Γöé   ,   Γöé   ,   Γöé X'5B404040'     Γöé DD/MM/YY HH:MI:SS  Γöé
  20067. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20068. Γöé Israel        Γöé IL    Γöé   .   Γöé   ,   Γöé NIS         Γöé DD/MM/YY HH:MI:SS  Γöé
  20069. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20070. Γöé Italy        Γöé IT    Γöé   ,   Γöé   .   Γöé L.          Γöé DD/MM/YY       Γöé
  20071. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH.MI.SS,999     Γöé
  20072. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20073. Γöé Jamaica       Γöé JM    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20074. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20075. Γöé Japan        Γöé JP    Γöé   .   Γöé   ,   Γöé X'5B404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20076. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20077. Γöé Jordan        Γöé JO    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20078. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20079. Γöé Kazakhstan      Γöé KZ    Γöé   ,   Γöé   .   Γöé Rub         Γöé DD.MM.YYYY HH:MI:SE Γöé
  20080. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20081. Γöé Kenya        Γöé KE    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20082. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20083. Γöé Korea, Republic of  Γöé KR    Γöé   .   Γöé   ,   Γöé X'E0404040'     Γöé YYYY.MM.DD HH:MI:SS Γöé
  20084. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20085. Γöé Kuwait        Γöé KW    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20086. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20087. Γöé Kyrgyzstan      Γöé KG    Γöé      Γöé      Γöé           Γöé           Γöé
  20088. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20089. Γöé Latvia        Γöé LV    Γöé      Γöé      Γöé           Γöé           Γöé
  20090. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20091. Γöé Lebanon       Γöé LB    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20092. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20093. Γöé Lesotho       Γöé LS    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20094. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20095. Γöé Liberia       Γöé LR    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20096. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20097. Γöé Libya        Γöé LY    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20098. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20099. Γöé Liechtenstein    Γöé LI    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20100. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20101. Γöé Lithuania      Γöé LT    Γöé      Γöé      Γöé           Γöé           Γöé
  20102. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20103. Γöé Luxembourg      Γöé LU    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20104. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20105. Γöé Macau        Γöé MO    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20106. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20107. Γöé Macedonia, Former  Γöé MK    Γöé   ,   Γöé   .   Γöé DEN (Dinar)     Γöé DD.MM.YYYY HH:MI:SS Γöé
  20108. Γöé Yugoslav Republic  Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  20109. Γöé of          Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  20110. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20111. Γöé Madagascar      Γöé MG    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20112. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  20113. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  20114. Γöé Table 20. Defaults Currency and Picture Strings Based on COUNTRY Setting             Γöé
  20115. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20116. Γöé COUNTRY       Γöé COUNTRY  Γöé DEFAULT  Γöé DEFAULT  Γöé DEFAULT CURRENCY   Γöé DEFAULT DATE AND   Γöé
  20117. Γöé           Γöé CODE   Γöé DECIMAL  Γöé THOU-   Γöé SYMBOL        Γöé TIME PICTURE STRING Γöé
  20118. Γöé           Γöé      Γöé SEPA-   Γöé SANDS   Γöé           Γöé           Γöé
  20119. Γöé           Γöé      Γöé RATOR   Γöé SEPA-   Γöé           Γöé           Γöé
  20120. Γöé           Γöé      Γöé      Γöé RATOR   Γöé           Γöé           Γöé
  20121. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20122. Γöé Malawi        Γöé MW    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20123. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20124. Γöé Malaysia       Γöé MY    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20125. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20126. Γöé Mali         Γöé ML    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20127. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20128. Γöé Mauritania      Γöé MR    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20129. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20130. Γöé Mauritius      Γöé MU    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20131. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20132. Γöé Mexico        Γöé MX    Γöé   .   Γöé   ,   Γöé $          Γöé DD/MM/YY ZH:MI:SS  Γöé
  20133. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  20134. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20135. Γöé Moldavia, Republic  Γöé MD    Γöé      Γöé      Γöé           Γöé           Γöé
  20136. Γöé of          Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  20137. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20138. Γöé Monaco        Γöé MC    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20139. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20140. Γöé Morocco       Γöé MA    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20141. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20142. Γöé Mozambique      Γöé MZ    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20143. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20144. Γöé Namibia       Γöé NA    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20145. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20146. Γöé Netherlands     Γöé NL    Γöé   ,   Γöé   .   Γöé F          Γöé DD-MM-YY HH:MI:SS  Γöé
  20147. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20148. Γöé Netherlands     Γöé AN    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20149. Γöé Antilles       Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  20150. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20151. Γöé New Caledonia    Γöé NC    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20152. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20153. Γöé New Zealand     Γöé NZ    Γöé   .   Γöé   ,   Γöé $          Γöé DD/MM/YY HH:MI:SS  Γöé
  20154. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20155. Γöé Nicaragua      Γöé NI    Γöé   .   Γöé   ,   Γöé X'9F404040'     Γöé DD/MM/YY HH:MI:SS  Γöé
  20156. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20157. Γöé Niger        Γöé NE    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20158. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20159. Γöé Nigeria       Γöé NG    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20160. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20161. Γöé Norway        Γöé NO    Γöé   ,   Γöé   .   Γöé kr          Γöé DD.MM.YY       Γöé
  20162. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH:MI:SS,999     Γöé
  20163. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20164. Γöé Oman         Γöé OM    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20165. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20166. Γöé Pakistan       Γöé PK    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20167. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20168. Γöé Panama        Γöé PA    Γöé   .   Γöé   ,   Γöé B/          Γöé DD/MM/YY ZH:MI:SS  Γöé
  20169. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  20170. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20171. Γöé Papua New Guinea   Γöé PG    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20172. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20173. Γöé Paraguay       Γöé PY    Γöé   ,   Γöé   .   Γöé Gs.         Γöé DD/MM/YY HH:MI:SS  Γöé
  20174. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20175. Γöé People's Republic  Γöé CN    Γöé   .   Γöé   ,   Γöé X'5B404040'     Γöé YYYY.MM.DD HH:MI:SS Γöé
  20176. Γöé of China       Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  20177. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20178. Γöé Peru         Γöé PE    Γöé   .   Γöé   ,   Γöé I/.         Γöé DD/MM/YY HH:MI:SS  Γöé
  20179. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20180. Γöé Philippines     Γöé PH    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20181. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20182. Γöé Poland        Γöé PL    Γöé   ,   Γöé   .   Γöé X'E99A4040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20183. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20184. Γöé Portugal       Γöé PT    Γöé   ,   Γöé   .   Γöé Esc.         Γöé DD-MM-YYYY HH:MI:SS Γöé
  20185. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20186. Γöé Puerto Rico     Γöé PR    Γöé   .   Γöé   ,   Γöé $          Γöé DD/MM/YY ZH:MI:SS  Γöé
  20187. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  20188. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20189. Γöé Qatar        Γöé QA    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20190. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20191. Γöé Republic of China  Γöé TW    Γöé   .   Γöé   ,   Γöé $          Γöé YY/MM/DD       Γöé
  20192. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH:MI:SS.999     Γöé
  20193. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20194. Γöé Romania       Γöé RO    Γöé   ,   Γöé   .   Γöé Lei         Γöé YYYY-MM-DD HH:MI:SS Γöé
  20195. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20196. Γöé Russia        Γöé RU    Γöé   ,   Γöé   .   Γöé RUB (Ruble)     Γöé DD.MM.YYYY HH:MI:SS Γöé
  20197. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20198. Γöé Saint Lucia     Γöé LC    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20199. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20200. Γöé Saudi Arabia     Γöé SA    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20201. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20202. Γöé Senegal       Γöé SN    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20203. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20204. Γöé Seychelles      Γöé SC    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20205. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20206. Γöé Sierra Leone     Γöé SL    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20207. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20208. Γöé Singapore      Γöé SG    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20209. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20210. Γöé Slovakia       Γöé SK    Γöé   ,   Γöé   .   Γöé X'D247A240'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20211. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20212. Γöé Slovenia       Γöé SI    Γöé   ,   Γöé   .   Γöé SIT (Tolar)     Γöé DD.MM.YYYY HH:MI:SS Γöé
  20213. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20214. Γöé Somalia       Γöé SO    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20215. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20216. Γöé South Africa     Γöé ZA    Γöé   .   Γöé      Γöé R          Γöé YYYY-MM-DD      Γöé
  20217. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HHhMI:SS.999     Γöé
  20218. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  20219. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  20220. Γöé Table 20. Defaults Currency and Picture Strings Based on COUNTRY Setting             Γöé
  20221. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20222. Γöé COUNTRY       Γöé COUNTRY  Γöé DEFAULT  Γöé DEFAULT  Γöé DEFAULT CURRENCY   Γöé DEFAULT DATE AND   Γöé
  20223. Γöé           Γöé CODE   Γöé DECIMAL  Γöé THOU-   Γöé SYMBOL        Γöé TIME PICTURE STRING Γöé
  20224. Γöé           Γöé      Γöé SEPA-   Γöé SANDS   Γöé           Γöé           Γöé
  20225. Γöé           Γöé      Γöé RATOR   Γöé SEPA-   Γöé           Γöé           Γöé
  20226. Γöé           Γöé      Γöé      Γöé RATOR   Γöé           Γöé           Γöé
  20227. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20228. Γöé South Georgia and  Γöé GS    Γöé      Γöé      Γöé           Γöé           Γöé
  20229. Γöé the S.S.I.      Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  20230. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20231. Γöé Spain        Γöé ES    Γöé   ,   Γöé   .   Γöé Pts         Γöé DD/MM/YY HH:MI:SS  Γöé
  20232. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20233. Γöé Sri Lanka      Γöé LK    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20234. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20235. Γöé Sudan        Γöé SD    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20236. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20237. Γöé Surinam       Γöé SR    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20238. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20239. Γöé Swaziland      Γöé SZ    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20240. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20241. Γöé Sweden        Γöé SE    Γöé   ,   Γöé   .   Γöé kr          Γöé YYYY-MM-DD kl    Γöé
  20242. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH.MI.SS       Γöé
  20243. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20244. Γöé Switzerland     Γöé CH    Γöé   ,   Γöé   .   Γöé Fr          Γöé DD. Mmmmmmmmz YYYY  Γöé
  20245. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé HH,MI,SS       Γöé
  20246. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20247. Γöé Syria        Γöé SY    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20248. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20249. Γöé Tajikistan      Γöé TJ    Γöé      Γöé      Γöé           Γöé           Γöé
  20250. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20251. Γöé Tanzania       Γöé TZ    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20252. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20253. Γöé Thailand       Γöé TH    Γöé   .   Γöé   ,   Γöé X'70404040'     Γöé DD/MM/YYYY HH:MI:SS Γöé
  20254. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20255. Γöé Togo         Γöé TG    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20256. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20257. Γöé Tunisia       Γöé TN    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20258. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20259. Γöé Turkey        Γöé TR    Γöé   ,   Γöé   .   Γöé TL          Γöé DD/MM/YY HH:MI:SS  Γöé
  20260. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20261. Γöé Turkmenistan     Γöé TM    Γöé      Γöé      Γöé           Γöé           Γöé
  20262. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20263. Γöé Uganda        Γöé UG    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20264. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20265. Γöé Ukraine       Γöé UA    Γöé      Γöé      Γöé           Γöé           Γöé
  20266. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20267. Γöé Union of Soviet   Γöé SU    Γöé   ,   Γöé   .   Γöé Rub         Γöé DD mmm. YYYY g.   Γöé
  20268. Γöé Socialist Republics Γöé      Γöé      Γöé      Γöé           Γöé HH:MI:SS       Γöé
  20269. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20270. Γöé United Arab     Γöé AE    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20271. Γöé Emirates       Γöé      Γöé      Γöé      Γöé           Γöé           Γöé
  20272. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20273. Γöé United Kingdom    Γöé GB    Γöé   .   Γöé   ,   Γöé X'5B404040'     Γöé DD/MM/YY HH:MI:SS  Γöé
  20274. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20275. Γöé United States    Γöé US    Γöé   .   Γöé   ,   Γöé $          Γöé MM/DD/YY ZH:MI:SS  Γöé
  20276. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  20277. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20278. Γöé Uruguay       Γöé UY    Γöé   ,   Γöé   .   Γöé N$          Γöé DD/MM/YY HH:MI:SS  Γöé
  20279. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20280. Γöé Uzbekistan      Γöé UZ    Γöé      Γöé      Γöé           Γöé           Γöé
  20281. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20282. Γöé Vanuatu       Γöé VU    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20283. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20284. Γöé Venezuela      Γöé VE    Γöé   ,   Γöé   .   Γöé Bs.         Γöé DD/MM/YY ZH:MI:SS  Γöé
  20285. Γöé           Γöé      Γöé      Γöé      Γöé           Γöé AP          Γöé
  20286. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20287. Γöé Western Samoa    Γöé WS    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20288. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20289. Γöé Yemen        Γöé YE    Γöé   ,   Γöé   .   Γöé           Γöé YYYY/MM/DD HH:MI:SS Γöé
  20290. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20291. Γöé Yugoslavia      Γöé YU    Γöé   ,   Γöé   .   Γöé Din         Γöé YYYY-MM-DD HH:MI:SS Γöé
  20292. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20293. Γöé Zaire        Γöé ZR    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20294. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20295. Γöé Zambia        Γöé ZM    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20296. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20297. Γöé Zimbabwe       Γöé ZW    Γöé   ,   Γöé   .   Γöé X'9F404040'     Γöé YYYY-MM-DD HH:MI:SS Γöé
  20298. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  20299.  
  20300.  1. The Czechoslovakia country code CS is obsolete:  use either the Czech 
  20301.     Republic country code CZ, or the Slovakia country code SK. 
  20302.  
  20303.  2. Country code DE was used for the former Federal Republic of Germany. 
  20304.  
  20305.  3. The SU country code is obsolete. Use the following country codes for the 
  20306.     appropriate country: Armenia, AM; Azerbaijan, AZ; Belarus, BY; Estonia, EE; 
  20307.     Georgia, GE; Kazakhstan, KZ; Kyrgyzstan, KG; Latvia, LV; Lithuania, LT; 
  20308.     Moldavia, MD; Russian Federation, RU; Tajikistan, TJ; Turkmenistan, TM; 
  20309.     Ukraine, UA; Uzbekistan, UZ; 
  20310.  
  20311.  
  20312. ΓòÉΓòÉΓòÉ 6. Date and Time Services Tables ΓòÉΓòÉΓòÉ
  20313.  
  20314. This appendix contains information to help you use LE/370 date and time 
  20315. callable services. Included are tables for picture term and national language 
  20316. era usage. 
  20317.  
  20318. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  20319. Γöé Table 21. Picture Terms Used in Picture Strings                                       Γöé
  20320. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20321. Γöé PICTURE   Γöé         Γöé           Γöé                                    Γöé
  20322. Γöé TERMS    Γöé EXPLANATION   Γöé VALID VALUES     Γöé NOTES                                 Γöé
  20323. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20324. Γöé "Y"     Γöé 1-digit year   Γöé 0-9         Γöé "Y" valid for output only.                       Γöé
  20325. Γöé "YY"     Γöé 2-digit year   Γöé 00-99        Γöé "YY" assumes range set by CEESCEN.                   Γöé
  20326. Γöé "YYY"    Γöé 3-digit year   Γöé 000-999       Γöé "YYY/ZYY" used with "<JJJJ>, <CCCC>" and "<CCCCCCCC>".         Γöé
  20327. Γöé "ZYY"    Γöé 3-digit year   Γöé 1-999        Γöé                                    Γöé
  20328. Γöé "YYYY"    Γöé within era    Γöé 1582-9999      Γöé                                    Γöé
  20329. Γöé       Γöé 4-digit year   Γöé           Γöé                                    Γöé
  20330. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20331. Γöé "<JJJJ>"   Γöé Japanese era   Γöé see below      Γöé Affects "YY" field:  if "<JJJJ>" specified, "YY" means the year    Γöé
  20332. Γöé       Γöé name in DBCS   Γöé           Γöé within Japanese era, for example, 1988 equals Showa 63.        Γöé
  20333. Γöé       Γöé characters    Γöé           Γöé                                    Γöé
  20334. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20335. Γöé "<CCCC>"   Γöé Republic of   Γöé see below      Γöé Affects "YY" field:  if "<CCCC>" specified, "YY" means the year    Γöé
  20336. Γöé "<CCCCCCCC>"Γöé China (ROC) era Γöé           Γöé within ROC era, for example, 1988 equals Minkow 77.          Γöé
  20337. Γöé       Γöé name in DBCS   Γöé           Γöé                                    Γöé
  20338. Γöé       Γöé characters    Γöé           Γöé                                    Γöé
  20339. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20340. Γöé "MM"     Γöé 2-digit month  Γöé 01-12        Γöé                                    Γöé
  20341. Γöé "ZM"     Γöé 1- or 2-digit  Γöé 1-12         Γöé For output, leading zero suppressed.  For input, "ZM" treated as    Γöé
  20342. Γöé       Γöé month      Γöé           Γöé "MM".                                 Γöé
  20343. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20344. Γöé "RRRR"    Γöé Roman numeral  Γöé Ibbb-XIIb (Left   Γöé For input, source string is folded to uppercase. For output, upper-  Γöé
  20345. Γöé "RRRZ"    Γöé month      Γöé justified)      Γöé case only. I=Jan, II=Feb, ..., XII=Dec.                Γöé
  20346. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20347. Γöé "MMM"    Γöé 3-char month,  Γöé JAN-DEC       Γöé For input, source string always folded to uppercase.  For output, "M" Γöé
  20348. Γöé "Mmm"    Γöé uppercase    Γöé Jan-Dec       Γöé generates uppercase and "m" generates lowercase.  Output is padded   Γöé
  20349. Γöé "MMMM...M"  Γöé 3-char month,  Γöé JANUARYbb-DECEMBERb Γöé with blanks (b) (unless "Z" specified) or truncated to match the    Γöé
  20350. Γöé "Mmmm...m"  Γöé mixed case    Γöé Januarybb-Decemberb Γöé number of "M"s, up to 20.                       Γöé
  20351. Γöé "MMMMMMMMMZ"Γöé 3-20 char mo.,  Γöé JANUARY-DECEMBER   Γöé                                    Γöé
  20352. Γöé "Mmmmmmmmmz"Γöé uppercase    Γöé January-December   Γöé                                    Γöé
  20353. Γöé       Γöé 3-20 char mo.,  Γöé           Γöé                                    Γöé
  20354. Γöé       Γöé mixed case    Γöé           Γöé                                    Γöé
  20355. Γöé       Γöé trailing blanks Γöé           Γöé                                    Γöé
  20356. Γöé       Γöé suppressed    Γöé           Γöé                                    Γöé
  20357. Γöé       Γöé trailing blanks Γöé           Γöé                                    Γöé
  20358. Γöé       Γöé suppressed    Γöé           Γöé                                    Γöé
  20359. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20360. Γöé "DD"     Γöé 2-digit day of  Γöé 01-31        Γöé For output, leading zero is always suppressed.  For input, "ZD"    Γöé
  20361. Γöé "ZD"     Γöé month      Γöé 1-31         Γöé treated as "DD".                            Γöé
  20362. Γöé "DDD"    Γöé 1- or 2-digit  Γöé 001-366       Γöé                                    Γöé
  20363. Γöé       Γöé day of mo.    Γöé           Γöé                                    Γöé
  20364. Γöé       Γöé day of year   Γöé           Γöé                                    Γöé
  20365. Γöé       Γöé (Julian day)   Γöé           Γöé                                    Γöé
  20366. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20367. Γöé "HH"     Γöé 2-digit hour   Γöé 00-23        Γöé                                    Γöé
  20368. Γöé "ZH"     Γöé 1- or 2-digit  Γöé 0-23         Γöé For output, leading zero suppressed.  For input, "ZH" treated as    Γöé
  20369. Γöé       Γöé hour       Γöé           Γöé "HH".  If "AP" specified, valid values are 01-12.           Γöé
  20370. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20371. Γöé "MI"     Γöé minute      Γöé 00-59        Γöé                                    Γöé
  20372. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20373. Γöé "SS"     Γöé second      Γöé 00-59        Γöé                                    Γöé
  20374. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20375. Γöé "9"     Γöé tenths of a   Γöé 0-9         Γöé No rounding.                              Γöé
  20376. Γöé "99"     Γöé second      Γöé 00-99        Γöé                                    Γöé
  20377. Γöé "999"    Γöé hundredths of a Γöé 000-999       Γöé                                    Γöé
  20378. Γöé       Γöé second      Γöé           Γöé                                    Γöé
  20379. Γöé       Γöé thousandths of  Γöé           Γöé                                    Γöé
  20380. Γöé       Γöé a second     Γöé           Γöé                                    Γöé
  20381. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20382. Γöé "AP"     Γöé AM/PM indicator Γöé AM or PM       Γöé "AP" affects "HH"/"ZH" field.  For input, source string always folded Γöé
  20383. Γöé "ap"     Γöé         Γöé am or pm       Γöé to uppercase.  For output, "AP" generates uppercase and "ap" gener-  Γöé
  20384. Γöé "A.P."    Γöé         Γöé A.M. or P.M.     Γöé ates lowercase.                            Γöé
  20385. Γöé "a.p."    Γöé         Γöé a.m. or p.m.     Γöé                                    Γöé
  20386. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20387. Γöé "W"     Γöé 1-char day-of-  Γöé S, M, T, W, T, F, S Γöé For input, "W"s are ignored.  For output, "W" generates uppercase and Γöé
  20388. Γöé "WWW"    Γöé week       Γöé SUN-SAT       Γöé "w" generates lowercase.  Output padded with blanks (unless "Z" spec- Γöé
  20389. Γöé "Www"    Γöé 3-char day,   Γöé Sun-Sat       Γöé ified) or truncated to match the number of "W"s, up to 20.       Γöé
  20390. Γöé "WWW...W"  Γöé uppercase    Γöé SUNDAYbbb-SATURDAYb Γöé                                    Γöé
  20391. Γöé "Www...w"  Γöé 3-char day,   Γöé Sundaybbb-Saturdayb Γöé                                    Γöé
  20392. Γöé " WWWWWWWWWZ"Γöé mixed case    Γöé SUNDAY-SATURDAY   Γöé                                    Γöé
  20393. Γöé "Wwwwwwwwwz"Γöé 3-20 char day,  Γöé Sunday-Saturday   Γöé                                    Γöé
  20394. Γöé       Γöé uppercase    Γöé           Γöé                                    Γöé
  20395. Γöé       Γöé 3-20 char day,  Γöé           Γöé                                    Γöé
  20396. Γöé       Γöé mixed case    Γöé           Γöé                                    Γöé
  20397. Γöé       Γöé trailing blanks Γöé           Γöé                                    Γöé
  20398. Γöé       Γöé suppressed    Γöé           Γöé                                    Γöé
  20399. Γöé       Γöé trailing blanks Γöé           Γöé                                    Γöé
  20400. Γöé       Γöé suppressed    Γöé           Γöé                                    Γöé
  20401. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20402. Γöé All others  Γöé delimiters    Γöé X'01'-X'FF'     Γöé For input, treated as delimiters between the month, day, year, hour,  Γöé
  20403. Γöé       Γöé         Γöé (X'00' reserved for Γöé minute, second, and fraction of a second.  For output, copied exactly Γöé
  20404. Γöé       Γöé         Γöé LE/370 use)     Γöé as is to the target string.                      Γöé
  20405. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  20406.  
  20407. Japanese era names in DBCS characters are as follows: 
  20408.  
  20409.  Heisei valid value is (X'0E458D45BA0F') 
  20410.  
  20411.  Showa valid value is (X'0E45B3457A0F') 
  20412.  
  20413.  Taisho valid value is (X'0E455B45770F') 
  20414.  
  20415.  Meiji valid value is (X'0E45A645840F') 
  20416.  
  20417. Republic of China (ROC) era names in DBCS characters are as follows: 
  20418.  
  20419.  MinKow valid value is (X'0E4D8256CE0F') 
  20420.  
  20421.  ChuHwaMinKow valid value is (X'0E4C845ADD4D8256CE0F') 
  20422.  
  20423. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  20424. Γöé Table 22. Examples of Picture Terms Recognized by Date/Time Services                                            Γöé
  20425. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20426. Γöé PICTURE TERMS       Γöé EXAMPLE             Γöé NOTES                                             Γöé
  20427. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20428. Γöé "YYMMDD"         Γöé 880516              Γöé                                                Γöé
  20429. Γöé "YYYYMMDD"        Γöé 19880516             Γöé                                                Γöé
  20430. Γöé "YYYY-MM-DD"       Γöé 1988-05-16            Γöé 1988-5-16 would also be valid input.                             Γöé
  20431. Γöé "<JJJJ> YY.MM.DD"     Γöé Showa 63.05.16          Γöé Showa is a Japanese Era name.  Showa 63 equals 1988.                     Γöé
  20432. Γöé              Γöé                 Γöé MinKow is an ROC Era name.  MinKow 77 equals 1988.                      Γöé
  20433. Γöé "<CCCC> YY.MM.DD"     Γöé MinKow 77.05.16         Γöé                                                Γöé
  20434. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20435. Γöé "MMDDYY"         Γöé 050688              Γöé                                                Γöé
  20436. Γöé "MM/DD/YY"        Γöé 05/06/88             Γöé                                                Γöé
  20437. Γöé "ZM/ZD/YY"        Γöé 5/6/88              Γöé                                                Γöé
  20438. Γöé "MM/DD/YYYY"       Γöé 05/06/1988            Γöé                                                Γöé
  20439. Γöé "MM/DD/Y"         Γöé 05/06/8             Γöé 1-digit year format ("Y") valid for output only                        Γöé
  20440. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20441. Γöé "DD.MM.YY"        Γöé 09.06.88             Γöé                                                Γöé
  20442. Γöé "DD-RRRR-YY"       Γöé 09-VI  -88            Γöé                                                Γöé
  20443. Γöé "DD MMM YY"        Γöé 09 JUN 88            Γöé                                                Γöé
  20444. Γöé "DD Mmmmmmmmmm YY"    Γöé 09 June    88         Γöé                                                Γöé
  20445. Γöé "ZD Mmmmmmmmmz YY"    Γöé 9 June 88            Γöé "Z" suppresses zeros/blanks                                  Γöé
  20446. Γöé "Mmmmmmmmmz ZD, YYYY"   Γöé June 9, 1988           Γöé                                                Γöé
  20447. Γöé "ZDMMMMMMMMzYY"      Γöé 9JUNE88             Γöé                                                Γöé
  20448. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20449. Γöé "YY.DDD"         Γöé 88.137              Γöé Julian date                                          Γöé
  20450. Γöé "YYDDD"          Γöé 88137              Γöé                                                Γöé
  20451. Γöé "YYYY/DDD"        Γöé 1988/137             Γöé                                                Γöé
  20452. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20453. Γöé "YYMMDDHHMISS"      Γöé 880516204229           Γöé Timestamp-valid only for CEESECS and CEEDATM.  If used with CEEDATE, time positions are left Γöé
  20454. Γöé "YYYYMMDDHHMISS"     Γöé 19880516204229          Γöé blank.  If used with CEEDAYS, "HH", "MI", "SS", and "999" fields are ignored.         Γöé
  20455. Γöé "YYYY-MM-DD        Γöé 1988-05-16 20:42:29.046     Γöé                                                Γöé
  20456. Γöé HH:MI:SS.999"       Γöé MON, 5/16/88 08:42 PM      Γöé                                                Γöé
  20457. Γöé "WWW, ZM/ZD/YY HH:MI AP" Γöé Monday, 16 May 1988, 8:42 PM   Γöé                                                Γöé
  20458. Γöé "Wwwwwwwwwz, DD Mmm    Γöé                 Γöé                                                Γöé
  20459. Γöé YYYY, ZH:MI AP"      Γöé                 Γöé                                                Γöé
  20460. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20461. Γöé NOTE:  Lowercase characters must be used only for alphabetic picture terms.                                        Γöé
  20462. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  20463.  
  20464. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  20465. Γöé Table 23. Japanese Eras Used by Date/Time Services when <JJJJ> Specified   Γöé
  20466. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20467. Γöé FIRST DATE OF  Γöé ERA    Γöé ERA NAME IN IBM JAPANESE Γöé            Γöé
  20468. Γöé JAPANESE ERA   Γöé NAME   Γöé DBCS CODE         Γöé VALID YEAR VALUES   Γöé
  20469. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20470. Γöé 1868-09-08    Γöé Meiji   Γöé "X'0E45A645840F'"     Γöé 01-45         Γöé
  20471. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20472. Γöé 1912-07-30    Γöé Taisho  Γöé "X'0E455B45770F'"     Γöé 01-15         Γöé
  20473. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20474. Γöé 1926-12-25    Γöé Showa   Γöé "X'0E45B3457A0F'"     Γöé 01-64         Γöé
  20475. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20476. Γöé 1989-01-08    Γöé Heisei  Γöé "X'0E458D45BA0F'"     Γöé 01-999 (01 = 1989)  Γöé
  20477. Γöé         Γöé      Γöé              Γöé            Γöé
  20478. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  20479.  
  20480. ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  20481. Γöé Table 24. Republic of China Eras Used by Date/Time Services when <CCCC>or   Γöé
  20482. Γöé      <CCCCCCCC> Specified                        Γöé
  20483. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20484. Γöé FIRST DATE OF Γöé        Γöé ERA NAME IN TRADITIONAL  Γöé           Γöé
  20485. Γöé ROC ERA    Γöé ERA NAME   Γöé CHINESE          Γöé VALID YEAR (YY,   Γöé
  20486. Γöé        Γöé        Γöé DBCS CODE         Γöé ZYY) VALUES     Γöé
  20487. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20488. Γöé 1912-01-01   Γöé MinKow    Γöé "X'0E4D8256CE0F'"     Γöé 01-999 (77 equals  Γöé
  20489. Γöé        Γöé        Γöé              Γöé 1988)        Γöé
  20490. Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  20491. Γöé        Γöé ChuHwaMinKow Γöé "X'0E4C845ADD4D8256CE0F'"Γöé           Γöé
  20492. Γöé        Γöé        Γöé              Γöé           Γöé
  20493. ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  20494.  
  20495.  
  20496. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  20497.  
  20498. This parameter type is comprised of a 32-bit real part and a 32-bit imaginary 
  20499. part. 
  20500.  
  20501.  
  20502. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  20503.  
  20504. This parameter type is comprised of a 64-bit real part and a 64-bit imaginary 
  20505. part. 
  20506.  
  20507.  
  20508. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  20509.  
  20510. This parameter type is comprised of a 128-bit real part and a 128-bit imaginary 
  20511. part. 
  20512.  
  20513.  
  20514. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  20515.  
  20516. For functions of complex variables, the image of the input is generally a 
  20517. non-rectangular shape. For this reason,