midrange.com code scratchpad
Name:
Example: TCP status via QtocRtvTCPA
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
12/15/2011 12:11:28 am
IP:
Logged
Description:
The user was to lazy to give a description
Code:
  1.  
  2. /*+
  3.  * Report status of tcp/ip +
  4.  *+
  5.  * CRTBNDCL PGM(TCPSTAT) DFTACTGRP(*NO) ACTGRP(*NEW) +
  6.  *+
  7.  **/
  8.  
  9. pgm
  10.  
  11. dcl &TCPA0100 *char 20
  12. dcl &TCPA0100_L *int value( 20 )
  13.  
  14. dcl &TCPA1100 *char 20
  15. dcl &TCPA1100_L *int value( 20 )
  16.  
  17. dcl &stack *char 10
  18. dcl &status *int
  19.  
  20.  
  21. callsubr v4
  22. callsubr v6
  23.  
  24. return
  25.  
  26.  
  27.  
  28. subr v4
  29.  
  30.     callprc 'QtocRtvTCPA'  parm( &TCPA0100 &TCPA0100_L 'TCPA0100' x'00000000' )
  31.     chgvar &status %bin( &TCPA0100 9 4 )
  32.     chgvar &stack 'TCP/IPv4'
  33.     callsubr status
  34.  
  35. endsubr
  36.  
  37.  
  38.  
  39. subr v6
  40.  
  41.     callprc 'QtocRtvTCPA'  parm( &TCPA1100 &TCPA1100_L 'TCPA1100' x'00000000' )
  42.     chgvar &status %bin( &TCPA1100 9 4 )
  43.     chgvar &stack 'TCP/IPv6'
  44.     callsubr status
  45.  
  46. endsubr
  47.  
  48.  
  49.  
  50. subr status
  51.  
  52.     if (&status = 0 ) do
  53.         sndpgmmsg msgid(cpf9897) msgf(qcpfmsg) msgtype(*comp) msgdta(+
  54.             'Inactive - The' +
  55.             |> &stack |> +
  56.             'stack is not operational.' +
  57.             )
  58.     enddo
  59.     else if (&status = 1 ) do
  60.         sndpgmmsg msgid(cpf9897) msgf(qcpfmsg) msgtype(*comp) msgdta(+
  61.             'Active - The' +
  62.             |> &stack |> +
  63.             'stack is operational.' +
  64.             )
  65.     enddo
  66.     else if (&status = 2 ) do
  67.         sndpgmmsg msgid(cpf9897) msgf(qcpfmsg) msgtype(*comp) msgdta(+
  68.             'Starting - The' +
  69.             |> &stack |> +
  70.             'stack not operational, but is in the process of starting.' +
  71.             )
  72.     enddo
  73.     else if (&status = 3 ) do
  74.         sndpgmmsg msgid(cpf9897) msgf(qcpfmsg) msgtype(*comp) msgdta(+
  75.             'Ending, immediate - The' +
  76.             |> &stack |> +
  77.             'stack is operational, but is in the process of ending.' +
  78.             )
  79.     enddo
  80.     else if (&status = 4 ) do
  81.         sndpgmmsg msgid(cpf9897) msgf(qcpfmsg) msgtype(*comp) msgdta(+
  82.             'Ending, controlled - The' +
  83.             |> &stack |> +
  84.             'stack is operational, but is in the process of ending.' +
  85.             )
  86.     enddo
  87.  
  88. endsubr
  89.  
  90. endpgm 
© 2004-2019 by midrange.com generated in 0.006s valid xhtml & css