Class get

java.lang.Object
  get

public class get

extends java.lang.Object

A simple example program that demonstrates the uses of the StringBuffer passed by descriptor to create a dynamic string parameter.

The following snippet is the equivalent program in PL/I. It has been deliberately written to build descriptors, etc. to demonstrate the setup that occurs in the SystemCall class.

 get: procedure options(main);
 %include $dscdef;
 %include $ssdef;
 %include $stsdef;

     declare lib$get_input entry(any, any) returns(fixed binary(31));
     declare lib$put_output entry(any);
     declare lib$stop entry(fixed binary(31) value);
     declare 1 buffer like dscdef1;

     buffer.dsc$w_maxstrlen = 0;
     buffer.dsc$b_dtype = DSC$K_DTYPE_T;
     buffer.dsc$b_class = DSC$K_CLASS_D;
     buffer.dsc$a_pointer = null();

     sts$value = lib$get_input(reference(buffer),
                               descriptor('Type something>> '));
     if (^sts$success) then
         call lib$stop(sts$value);

     put list('The buffer you typed is: ');

     call lib$put_output(reference(buffer));
 end get;
 

Constructor Summary

get()

Method Summary

static void

main(java.lang.String[] args) Main entry point to the program.

Methods inherited from class java.lang.Object

clone, equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Constructor Detail

get

public get()

Method Detail

main

public static void main(java.lang.String[] args)

Main entry point to the program.

Parameters:

args - Command line arguments (unused)