Belkin F5D5230-F Installationshandbuch PDF herunterladen (Seite 37)

* SO WE CAN USE THE SAME CODE LATER TO PROCESS THE FIELD-NAMES AND

* DATA RETURNED BY INTY.

GET DS ØH

XC FLDCOUNT,FLDCOUNT COUNT OF FIELDS REQUESTED

LA R5,FIELDS TO 1ST PDE FOR FIELD NAME LIST

LA R3,INTYF+4 START OF ACTION PTRS IN FLDEF LIST

LA R4,WACTNS AREA TO BUILD ICHEACTNS

FLDL1 DS ØH

OC Ø(4,R5),Ø(R5) TEST PTR TO FIELD NAME

BZ LOC1 NO MORE

MVC Ø(LACTN,R4),ACTN1 ACTN BASE

ICM R1,15,Ø(R5) PTR TO FIELD NAME

LH R2,4(R5) GET LEN OF FIELD NAME

* CHECK FOR FORMAT SUFFIX IN FIELD NAME AND SET INDICATOR TO

* CONVERT DATA AFTER RETRIEVAL IF SUFFIX PRESENT.

LA R14,Ø(R2,R1) PAST END OF FIELD NAME

BCTR R14,Ø BACK TO LAST..

BCTR R14,Ø ..BUT ONE

CLI Ø(R14),C. IS SUFFIX PRESENT

BNE FLDL1Ø NO

BCTR R2,Ø REDUCE LEN OF NAME..

BCTR R2,Ø ..BY SUFFIX LEN

SLR RØ,RØ

IC RØ,1(R14) GET DATA-TYPE CHAR. (SUFFIX)

LA R14,LACTN(R4) PAST ACTN TO OUR 4-BYTE FIELD IND.

STCM RØ,15,Ø(R14) SAVE DATA-TYPE CHAR. FOR LATER

FLDL1Ø DS ØH

BCTR R2,Ø

MVC 4(8,R4),=CL8'  ENSURE BLANK FIELD NAME

MVC 4(*-*,R4),Ø(R1)

EX R2,*-6 MOVE FIELD NAME INTO ACTN

* DO AUTH CHECK FOR FIELD

LA R14,AUTHENT TO START OF AUTH ENTITY NAME

AH R14,AUTHL +LEN OF CLASS.SEG PART OF NAME

MVI Ø(R14),C. DOT SEPARATOR

MVC 1(8,R14),BLANKS ENSURE LAST FIELD NAME CLEARED

MVC 1(*-*,R14),Ø(R1) ADD FIELD NAME TO ENTITY NAME

EX R2,*-6

AH R2,AUTHL NEW LEN INCLUDING FIELD NAME

LA R2,2(R2) (+1 FOR EARLIER BCTR +1 FOR DOT)

STH R2,AUTHENTL+2 @MC4

BAL R1Ø,SAUTHCHK CHECK ACCESS TO CLASS.SEGMENT.FIELD

LTR R15,R15

BZ FLDOK AUTHORISED TO FIELD @MC4

* @MC4

1 2 ... 32 33 34 35 36 37 38 39 40 41 42 ... 114 115

Kommentare zu diesen Handbüchern

Keine Kommentare

Belkin F5D5230-F Installationshandbuch Seite 37

Kommentare zu diesen Handbüchern

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