Verwenden von Feldern und Feldlisten

Dieses Makrobeispiel veranschaulicht die Verwendung allgemeiner Funktionen für die Interaktion mit den Feldern in der Makro-API. Es wird beispielsweise dargestellt, wie Feldtext abgerufen wird, Feldinformationen angezeigt werden und wie field.setText als Alternative zu sendKeys für die Interaktion mit dem Host verwendet werden kann.

var macro = createMacro(function*() {
  'use strict';
  
  // Präsentationsbereich für die Interaktion mit dem Host abrufen
  var ps = session.getPresentationSpace();
  
  // Variablen für eine spätere Verwendung deklarieren
  var fields;
  var field;
  var searchString = 'z/VM';
  
  // Standardwartezeit für "wait"-Funktionen festlegen
  wait.setDefaultTimeout(10000);
  
  // Beispielmakro für das Arbeiten mit Feldlisten und Feldern
  try {
    yield wait.forCursor(new Position(24, 2));
    
    // Feldliste abrufen.
    fields = ps.getFields();
    
    // Die gesamte Feldliste durchlaufen und Feldinfo anzeigen.
    for(var index = 0; index < fields.size(); index++) {
      field = fields.get(index);
      
      yield ui.message("Field " + index + " info: " + field.toString());
    }
    
    yield ui.message("Hier ein Feld mit dem Text '" + searchString + "'");
    field = fields.findField(new Position(1, 1), searchString);
    
    if(field !== null) {
      yield ui.message("Found field info: " + field.toString());
      yield ui.message("Found field foreground is green? " + (Color.GREEN === field.getForegroundColor()));
      yield ui.message("Found field background is default? " + (Color.BLANK_UNSPECIFIED === field.getBackgroundColor()));
    }
    
    // Jetzt nach einem Befehlsfeld suchen und es ändern.
    field = fields.findField(new Position(23, 80));
    if(field !== null) {
      field.setText("cics");
    }
    
    yield ui.message("Klicken Sie mit der Maus, um 'cics' an den Host zu senden.");
    ps.sendKeys(ControlKey.ENTER);

    // Auf neuen Bildschirm warten; neue Felder abrufen.
    yield wait.forCursor(new Position(10, 26));
    fields = ps.getFields();
    
    // Benutzerfeld suchen und festlegen.
    field = fields.findField(new Position(10, 24));
    if(field !== null) {
      field.setText("myusername");
    }
    
    // Kennwortfeld suchen und festlegen.
    field = fields.findField(new Position(11, 24));
    if(field !== null) {
      field.setText("mypassword");
    }
    
    yield ui.message("Click to send login to host.");
    ps.sendKeys(ControlKey.ENTER);
    
    // Auf neuen Bildschirm warten; neue Felder abrufen.
    yield wait.forCursor(new Position(1, 1));
    fields = ps.getFields();
    
    // Befehlsfeld suchen und 'logoff'-Befehl festlegen.
    field = fields.findField(new Position(24, 45));
    if(field !== null) {
      field.setText("cesf logoff");
    }
    
    yield ui.message("Click to send logoff to host.");
    ps.sendKeys(ControlKey.ENTER);
    
  } catch (error) {
    yield ui.message(error);
  }
  //Ende generiertes Makro
});

// Makro ausführen
return macro();