2-68 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 length(seqlong10_tc)); WENN CHECK_ERRORS('SEQINIT ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; 2,16,30 SEQLEN Zusammenfassung SEQLEN(PTR, /* IN: Reihenfolgendaten-PTR*/ ÖRTLICH FESTGELEGTES BIN(31)); /* HERAUS: Länge von Reihenfolgen*/ // holt die gegenwärtige Länge der Reihenfolge zurück Beschreibung Das SEQLEN Dienstprogrammfunktion holt die gegenwärtige Länge von gegeben gesprungen zurück oder unbegrenzte Reihenfolge. Das Heraus Parameter len wenn als ÖRTLICH FESTGELEGTES gespeichert Sie seien BIN(31) variabel. Beispiel Ein BAD_SEQ Ausnahme wird zurückgebracht, wenn ein ungültiger Zeiger an SEQLEN geliefert wird . An Verwendet Unbegrenzte Reihenfolgen: ! Gesprungene Reihenfolgen: ! Beispiel myseq_args des dcl 1 STIMMTEN überein, 3 Resultat, result_seq 5 PTR, result_BUF 5 örtlich festgelegtes bin(31); dclelement_num örtlich festgelegtes bin(31); DCL NUM_SEQ_ELE ÖRTLICH FESTGELEGTES BIn(31) init(0); ... ANRUF SEQLEN(MYSEQ_ARGS.RESULT.RESULT_SEQ, num_seq_ele); tun Sie element_num = 1 zu NUM_SEQ_ELE; Anruf display_seq_info(MYSEQ_ARGS.RESULT.RESULT_SEQ, element_num); Ende;