Belkin F5D5230-F Installationshandbuch PDF herunterladen (Seite 41)

41

LA R3,4(R3) ..AND PAST LEN TO NEXT OCC. @MC7

CR R3,R1 ARE WE AT END OF RETURNED DATA? @MC7

BM RGCHK1 NOT YET @MC7

BP RGCHK2 PAST IT: NOT RG FORMAT @MC7

MVI KRG+1,1 THIS FIELD IS A REPEAT-GROUP @MC7

RGCHK2 ICM R3,15,16(R4) RESTORE ADDR DATA RETURNED @MC7

ICM R2,15,12(R4) RESTORE LENGTH DATA RETURNED @MC7

* @MC7

CLI KRG+1,1 IS FIELD A REPEAT-GROUP ? @MC7

BNE GETF1Ø NO, SINGLE FIELD @MC7

*

* FOR REPEAT-GROUP FIELDS ONLY: @MC7

* BREAK DOWN DATA RETURNED TO FORMAT EACH OCCURRENCE.

* (NULL OCCURRENCES GO THROUGH ALL PROCESSES AS OCCURRENCE NUMBERS

* ARE STILL NEEDED FOR SELECTION AND COUNTING)

*

ICM R4,15,12(R4) TOTAL LEN OF ALL OCCURRENCES RETURNED

BZ FLDNXT NONE RETURNED @MC3

GETFØ5 DS ØH

AP OCCNO,=P1' INCR. OCCURRENCE NO.

ICM R2,15,Ø(R3) LEN OF THIS OCCURRENCE

LA R3,4(R3) PAST LENGTH FIELD TO DATA

*

GETF1Ø DS ØH

* CONVERT DATA IF FIELD NAME WAS SPECIFIED WITH CONVERSION SUFFIX.

* NOTE THAT THE POINTERS TO THE ORIGINAL (SOURCE) FIELD ARE RESTORED

* AFTER CONVERSION TO MAINTAIN OUR PLACE IN THE RACF BUFFER.

STM R2,R3,BUFPTRS SAVE LEN AND ADDR OF SOURCE FIELD

CLI FLDIND+3,Ø CONV. CHAR SPECIFIED ?

BE *+8 NO

BAL R1Ø,SCNVDAT CONVERT DATA

LTR R2,R2 NULL FIELD/OCCURRENCE @MC3

BZ GETF15 YES, DO NOT PUT IN OUTPUT LINE @MC3

CL R2,=F256' DATA TOO LONG ? @MC6

BP ERR1Ø YES, POSSIBLE RGROUP SPEC WRONG @MC6

BCTR R2,Ø LEN CONVERTED DATA

MVC LINE+9(*-*),Ø(R3)

EX R2,*-6 MOVE CONVERTED DATA TO OUTPUT LINE

LA R2,1(R2) @MC3

GETF15 DS ØH @MC3

CLI KRG+1,1 IS FIELD A REPEAT-GROUP ? @MC7

BNE OCCSELY NO, NO SELECTION ON DATA THEN @MC7

**********************************************************************

* FOR REPEAT GROUP OCCURRENCES, IF A SPECIFIC ONE WAS SELECTED BY

* THE DATA() PARAMETER, COMPARE THE CURRENT OCCURRENCE (1ST FIELD

* NAMED IN THE FIELDS PARAMETER ONLY) FOR THE SPECIFIED VALUE.

* IF THIS MATCHES, SELECT THE SAME OCCURRENCE NUMBER(S) WHEN

* PROCESSING SUBSEQUENT FIELDS.

* UP TO 256 OCCURRENCES CAN BE SELECTED IN THIS WAY (THE MASK FIELD

* IS 256 BITS LONG).

Belkin F5D5230-F Installationshandbuch Seite 41

Kommentare zu diesen Handbüchern

Belkin F5D5230-F Installationshandbuch Seite 41

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Software Belkin F5D5230-F