aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--MessageStructure.st9
-rw-r--r--isup/create_structs.st21
-rw-r--r--isup_generated.st272
3 files changed, 160 insertions, 142 deletions
diff --git a/MessageStructure.st b/MessageStructure.st
index 90b9934..3e453ed 100644
--- a/MessageStructure.st
+++ b/MessageStructure.st
@@ -103,7 +103,7 @@ Object subclass: MSGField [
<category: 'osmo-networking'>
<comment: 'The description of an Information Element'>
- MSGField class >> name [
+ MSGField class >> parameterName [
<category: 'accessing'>
^ self subclassResponsibility
]
@@ -113,6 +113,13 @@ Object subclass: MSGField [
^ self subclassResponsibility
]
+ MSGField class >> lengthLength [
+ "The length of the length field. The default is to assume a length of
+ one octet and in the units of octets"
+ <category: 'accessing'>
+ ^ 1
+ ]
+
MSGField class >> octalLength [
<category: 'accessing'>
^ self subclassResponsibility
diff --git a/isup/create_structs.st b/isup/create_structs.st
index 17dbf0f..7f7df09 100644
--- a/isup/create_structs.st
+++ b/isup/create_structs.st
@@ -167,7 +167,7 @@ Object subclass: StructCreator [
handleFixedLength: aDef [
"Some fields have conflicting types... E.g. Range and Status
appears sometimes only as range... without the status."
- | len type |
+ | len type tag_only |
aDef isFixed ifTrue: [len := aDef minLength].
aDef isVariable ifTrue: [len := (Number readFrom: aDef minLength readStream) - 1].
aDef isOptional ifTrue: [len := (Number readFrom: aDef minLength readStream) - 2].
@@ -179,13 +179,22 @@ Object subclass: StructCreator [
aDef minLength printNl.
].
+
+ tag_only := ''.
+ len <= 0 ifTrue: [
+ len := 0.
+ tag_only := '
+ %1 class >> lengthLength [ ^ 0 ]
+' % {aDef className}.
+ ].
+
type :=
'MSGFixedField subclass: %1 [
- %1 class >> name [ ^ ''%2'' ]
+ %1 class >> parameterName [ ^ ''%2'' ]
%1 class >> parameterValue [ ^ ISUPConstants par%3 ]
%1 class >> octalLength [ ^ %4 ]
- %1 class >> spec [ ^ ''%5'' ]
-]' % {aDef className. aDef commentName. aDef param. len. aDef ref.}.
+ %1 class >> spec [ ^ ''%5'' ]%6
+]' % {aDef className. aDef commentName. aDef param. len. aDef ref. tag_only.}.
self addType: aDef ref struct: type.
]
@@ -204,7 +213,7 @@ Object subclass: StructCreator [
type :=
'MSGVariableField subclass: %1 [
- %1 class >> name [ ^ ''%2'' ]
+ %1 class >> parameterName [ ^ ''%2'' ]
%1 class >> parameterValue [ ^ ISUPConstants par%3 ]
%1 class >> octalLength [ ^ %4 ]
%1 class >> maxLength [ ^ %5 ]
@@ -220,7 +229,7 @@ Object subclass: StructCreator [
struct add: '
ISUPMessage subclass: ISUP%1 [
ISUP%1 class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msg%1)' % {structName. }.
+ ^ (self initWith: ISUPConstants msg%1)' % {structName. }.
^ true
].
diff --git a/isup_generated.st b/isup_generated.st
index c7c406b..40cb955 100644
--- a/isup_generated.st
+++ b/isup_generated.st
@@ -1,13 +1,15 @@
"Types for ISUP"
MSGFixedField subclass: ISUPEndOfOptionalParameters [
- ISUPEndOfOptionalParameters class >> name [ ^ 'End of optional parameters' ]
+ ISUPEndOfOptionalParameters class >> parameterName [ ^ 'End of optional parameters' ]
ISUPEndOfOptionalParameters class >> parameterValue [ ^ ISUPConstants parEndOfOptionalParameters ]
- ISUPEndOfOptionalParameters class >> octalLength [ ^ -1 ]
+ ISUPEndOfOptionalParameters class >> octalLength [ ^ 0 ]
ISUPEndOfOptionalParameters class >> spec [ ^ '3.20' ]
+ ISUPEndOfOptionalParameters class >> lengthLength [ ^ 0 ]
+
]
MSGVariableField subclass: ISUPCorrelationId [
- ISUPCorrelationId class >> name [ ^ 'Correlation id' ]
+ ISUPCorrelationId class >> parameterName [ ^ 'Correlation id' ]
ISUPCorrelationId class >> parameterValue [ ^ ISUPConstants parCorrelationId ]
ISUPCorrelationId class >> octalLength [ ^ 1 ]
ISUPCorrelationId class >> maxLength [ ^ nil ]
@@ -15,28 +17,28 @@ MSGVariableField subclass: ISUPCorrelationId [
]
MSGFixedField subclass: ISUPCallingPartysCategory [
- ISUPCallingPartysCategory class >> name [ ^ 'Calling party''s category' ]
+ ISUPCallingPartysCategory class >> parameterName [ ^ 'Calling party''s category' ]
ISUPCallingPartysCategory class >> parameterValue [ ^ ISUPConstants parCallingPartysCategory ]
ISUPCallingPartysCategory class >> octalLength [ ^ 1 ]
ISUPCallingPartysCategory class >> spec [ ^ '3.11' ]
]
MSGFixedField subclass: ISUPPivotStatus [
- ISUPPivotStatus class >> name [ ^ 'Pivot status' ]
+ ISUPPivotStatus class >> parameterName [ ^ 'Pivot status' ]
ISUPPivotStatus class >> parameterValue [ ^ ISUPConstants parPivotStatus ]
ISUPPivotStatus class >> octalLength [ ^ 1 ]
ISUPPivotStatus class >> spec [ ^ '3.92' ]
]
MSGFixedField subclass: ISUPCollectCallRequest [
- ISUPCollectCallRequest class >> name [ ^ 'Collect call request' ]
+ ISUPCollectCallRequest class >> parameterName [ ^ 'Collect call request' ]
ISUPCollectCallRequest class >> parameterValue [ ^ ISUPConstants parCollectCallRequest ]
ISUPCollectCallRequest class >> octalLength [ ^ 1 ]
ISUPCollectCallRequest class >> spec [ ^ '3.81' ]
]
MSGVariableField subclass: ISUPSubsequentNumber [
- ISUPSubsequentNumber class >> name [ ^ 'Subsequent number' ]
+ ISUPSubsequentNumber class >> parameterName [ ^ 'Subsequent number' ]
ISUPSubsequentNumber class >> parameterValue [ ^ ISUPConstants parSubsequentNumber ]
ISUPSubsequentNumber class >> octalLength [ ^ 2 ]
ISUPSubsequentNumber class >> maxLength [ ^ nil ]
@@ -44,35 +46,35 @@ MSGVariableField subclass: ISUPSubsequentNumber [
]
MSGFixedField subclass: ISUPNatureOfConnectionIndicators [
- ISUPNatureOfConnectionIndicators class >> name [ ^ 'Nature of connection indicators' ]
+ ISUPNatureOfConnectionIndicators class >> parameterName [ ^ 'Nature of connection indicators' ]
ISUPNatureOfConnectionIndicators class >> parameterValue [ ^ ISUPConstants parNatureOfConnectionIndicators ]
ISUPNatureOfConnectionIndicators class >> octalLength [ ^ 1 ]
ISUPNatureOfConnectionIndicators class >> spec [ ^ '3.35' ]
]
MSGFixedField subclass: ISUPPropagationDelayCounter [
- ISUPPropagationDelayCounter class >> name [ ^ 'Propagation delay counter' ]
+ ISUPPropagationDelayCounter class >> parameterName [ ^ 'Propagation delay counter' ]
ISUPPropagationDelayCounter class >> parameterValue [ ^ ISUPConstants parPropagationDelayCounter ]
ISUPPropagationDelayCounter class >> octalLength [ ^ 2 ]
ISUPPropagationDelayCounter class >> spec [ ^ '3.42' ]
]
MSGFixedField subclass: ISUPRedirectCounter [
- ISUPRedirectCounter class >> name [ ^ 'Redirect counter' ]
+ ISUPRedirectCounter class >> parameterName [ ^ 'Redirect counter' ]
ISUPRedirectCounter class >> parameterValue [ ^ ISUPConstants parRedirectCounter ]
ISUPRedirectCounter class >> octalLength [ ^ 1 ]
ISUPRedirectCounter class >> spec [ ^ '3.97' ]
]
MSGFixedField subclass: ISUPForwardCallIndicators [
- ISUPForwardCallIndicators class >> name [ ^ 'Forward call indicators' ]
+ ISUPForwardCallIndicators class >> parameterName [ ^ 'Forward call indicators' ]
ISUPForwardCallIndicators class >> parameterValue [ ^ ISUPConstants parForwardCallIndicators ]
ISUPForwardCallIndicators class >> octalLength [ ^ 2 ]
ISUPForwardCallIndicators class >> spec [ ^ '3.23' ]
]
MSGVariableField subclass: ISUPBackwardGVNS [
- ISUPBackwardGVNS class >> name [ ^ 'Backward GVNS' ]
+ ISUPBackwardGVNS class >> parameterName [ ^ 'Backward GVNS' ]
ISUPBackwardGVNS class >> parameterValue [ ^ ISUPConstants parBackwardGVNS ]
ISUPBackwardGVNS class >> octalLength [ ^ 1 ]
ISUPBackwardGVNS class >> maxLength [ ^ nil ]
@@ -80,14 +82,14 @@ MSGVariableField subclass: ISUPBackwardGVNS [
]
MSGFixedField subclass: ISUPOptionalForwardCallIndicators [
- ISUPOptionalForwardCallIndicators class >> name [ ^ 'Optional forward call indicators' ]
+ ISUPOptionalForwardCallIndicators class >> parameterName [ ^ 'Optional forward call indicators' ]
ISUPOptionalForwardCallIndicators class >> parameterValue [ ^ ISUPConstants parOptionalForwardCallIndicators ]
ISUPOptionalForwardCallIndicators class >> octalLength [ ^ 1 ]
ISUPOptionalForwardCallIndicators class >> spec [ ^ '3.38' ]
]
MSGVariableField subclass: ISUPUserServiceInformation [
- ISUPUserServiceInformation class >> name [ ^ 'User service information' ]
+ ISUPUserServiceInformation class >> parameterName [ ^ 'User service information' ]
ISUPUserServiceInformation class >> parameterValue [ ^ ISUPConstants parUserServiceInformation ]
ISUPUserServiceInformation class >> octalLength [ ^ 2 ]
ISUPUserServiceInformation class >> maxLength [ ^ 11 ]
@@ -95,7 +97,7 @@ MSGVariableField subclass: ISUPUserServiceInformation [
]
MSGVariableField subclass: ISUPNetworkManagementControls [
- ISUPNetworkManagementControls class >> name [ ^ 'Network management controls' ]
+ ISUPNetworkManagementControls class >> parameterName [ ^ 'Network management controls' ]
ISUPNetworkManagementControls class >> parameterValue [ ^ ISUPConstants parNetworkManagementControls ]
ISUPNetworkManagementControls class >> octalLength [ ^ 1 ]
ISUPNetworkManagementControls class >> maxLength [ ^ nil ]
@@ -103,7 +105,7 @@ MSGVariableField subclass: ISUPNetworkManagementControls [
]
MSGVariableField subclass: ISUPCalledINNumber [
- ISUPCalledINNumber class >> name [ ^ 'Called IN number' ]
+ ISUPCalledINNumber class >> parameterName [ ^ 'Called IN number' ]
ISUPCalledINNumber class >> parameterValue [ ^ ISUPConstants parCalledINNumber ]
ISUPCalledINNumber class >> octalLength [ ^ 2 ]
ISUPCalledINNumber class >> maxLength [ ^ nil ]
@@ -111,7 +113,7 @@ MSGVariableField subclass: ISUPCalledINNumber [
]
MSGVariableField subclass: ISUPCauseIndicators [
- ISUPCauseIndicators class >> name [ ^ 'Cause indicators' ]
+ ISUPCauseIndicators class >> parameterName [ ^ 'Cause indicators' ]
ISUPCauseIndicators class >> parameterValue [ ^ ISUPConstants parCauseIndicators ]
ISUPCauseIndicators class >> octalLength [ ^ 2 ]
ISUPCauseIndicators class >> maxLength [ ^ nil ]
@@ -119,28 +121,28 @@ MSGVariableField subclass: ISUPCauseIndicators [
]
MSGFixedField subclass: ISUPQoRCapability [
- ISUPQoRCapability class >> name [ ^ 'QoR capability' ]
+ ISUPQoRCapability class >> parameterName [ ^ 'QoR capability' ]
ISUPQoRCapability class >> parameterValue [ ^ ISUPConstants parQoRCapability ]
ISUPQoRCapability class >> octalLength [ ^ 1 ]
ISUPQoRCapability class >> spec [ ^ '3.91' ]
]
MSGFixedField subclass: ISUPCallTransferReference [
- ISUPCallTransferReference class >> name [ ^ 'Call transfer reference' ]
+ ISUPCallTransferReference class >> parameterName [ ^ 'Call transfer reference' ]
ISUPCallTransferReference class >> parameterValue [ ^ ISUPConstants parCallTransferReference ]
ISUPCallTransferReference class >> octalLength [ ^ 1 ]
ISUPCallTransferReference class >> spec [ ^ '3.65' ]
]
MSGFixedField subclass: ISUPAutomaticCongestionLevel [
- ISUPAutomaticCongestionLevel class >> name [ ^ 'Automatic congestion level' ]
+ ISUPAutomaticCongestionLevel class >> parameterName [ ^ 'Automatic congestion level' ]
ISUPAutomaticCongestionLevel class >> parameterValue [ ^ ISUPConstants parAutomaticCongestionLevel ]
ISUPAutomaticCongestionLevel class >> octalLength [ ^ 1 ]
ISUPAutomaticCongestionLevel class >> spec [ ^ '3.4' ]
]
MSGVariableField subclass: ISUPRemoteOperations [
- ISUPRemoteOperations class >> name [ ^ 'Remote operations' ]
+ ISUPRemoteOperations class >> parameterName [ ^ 'Remote operations' ]
ISUPRemoteOperations class >> parameterValue [ ^ ISUPConstants parRemoteOperations ]
ISUPRemoteOperations class >> octalLength [ ^ 6 ]
ISUPRemoteOperations class >> maxLength [ ^ nil ]
@@ -148,14 +150,14 @@ MSGVariableField subclass: ISUPRemoteOperations [
]
MSGFixedField subclass: ISUPSuspendResumeIndicators [
- ISUPSuspendResumeIndicators class >> name [ ^ 'Suspend/resume indicators' ]
+ ISUPSuspendResumeIndicators class >> parameterName [ ^ 'Suspend/resume indicators' ]
ISUPSuspendResumeIndicators class >> parameterValue [ ^ ISUPConstants parSuspendResumeIndicators ]
ISUPSuspendResumeIndicators class >> octalLength [ ^ 1 ]
ISUPSuspendResumeIndicators class >> spec [ ^ '3.52' ]
]
MSGVariableField subclass: ISUPRedirectionInformation [
- ISUPRedirectionInformation class >> name [ ^ 'Redirection information' ]
+ ISUPRedirectionInformation class >> parameterName [ ^ 'Redirection information' ]
ISUPRedirectionInformation class >> parameterValue [ ^ ISUPConstants parRedirectionInformation ]
ISUPRedirectionInformation class >> octalLength [ ^ 1 ]
ISUPRedirectionInformation class >> maxLength [ ^ 2 ]
@@ -163,7 +165,7 @@ MSGVariableField subclass: ISUPRedirectionInformation [
]
MSGVariableField subclass: ISUPConferenceTreatmentIndicators [
- ISUPConferenceTreatmentIndicators class >> name [ ^ 'Conference treatment indicators' ]
+ ISUPConferenceTreatmentIndicators class >> parameterName [ ^ 'Conference treatment indicators' ]
ISUPConferenceTreatmentIndicators class >> parameterValue [ ^ ISUPConstants parConferenceTreatmentIndicators ]
ISUPConferenceTreatmentIndicators class >> octalLength [ ^ 1 ]
ISUPConferenceTreatmentIndicators class >> maxLength [ ^ nil ]
@@ -171,7 +173,7 @@ MSGVariableField subclass: ISUPConferenceTreatmentIndicators [
]
MSGVariableField subclass: ISUPConnectionRequest [
- ISUPConnectionRequest class >> name [ ^ 'Connection request' ]
+ ISUPConnectionRequest class >> parameterName [ ^ 'Connection request' ]
ISUPConnectionRequest class >> parameterValue [ ^ ISUPConstants parConnectionRequest ]
ISUPConnectionRequest class >> octalLength [ ^ 5 ]
ISUPConnectionRequest class >> maxLength [ ^ 7 ]
@@ -179,14 +181,14 @@ MSGVariableField subclass: ISUPConnectionRequest [
]
MSGFixedField subclass: ISUPCallHistoryInformation [
- ISUPCallHistoryInformation class >> name [ ^ 'Call history information' ]
+ ISUPCallHistoryInformation class >> parameterName [ ^ 'Call history information' ]
ISUPCallHistoryInformation class >> parameterValue [ ^ ISUPConstants parCallHistoryInformation ]
ISUPCallHistoryInformation class >> octalLength [ ^ 2 ]
ISUPCallHistoryInformation class >> spec [ ^ '3.7' ]
]
MSGVariableField subclass: ISUPCalledDirectoryNumber [
- ISUPCalledDirectoryNumber class >> name [ ^ 'Called directory number' ]
+ ISUPCalledDirectoryNumber class >> parameterName [ ^ 'Called directory number' ]
ISUPCalledDirectoryNumber class >> parameterValue [ ^ ISUPConstants parCalledDirectoryNumber ]
ISUPCalledDirectoryNumber class >> octalLength [ ^ 3 ]
ISUPCalledDirectoryNumber class >> maxLength [ ^ nil ]
@@ -194,14 +196,14 @@ MSGVariableField subclass: ISUPCalledDirectoryNumber [
]
MSGFixedField subclass: ISUPRedirectCapability [
- ISUPRedirectCapability class >> name [ ^ 'Redirect capability' ]
+ ISUPRedirectCapability class >> parameterName [ ^ 'Redirect capability' ]
ISUPRedirectCapability class >> parameterValue [ ^ ISUPConstants parRedirectCapability ]
ISUPRedirectCapability class >> octalLength [ ^ 1 ]
ISUPRedirectCapability class >> spec [ ^ '3.96' ]
]
MSGVariableField subclass: ISUPRedirectBackwardInformation [
- ISUPRedirectBackwardInformation class >> name [ ^ 'Redirect backward information' ]
+ ISUPRedirectBackwardInformation class >> parameterName [ ^ 'Redirect backward information' ]
ISUPRedirectBackwardInformation class >> parameterValue [ ^ ISUPConstants parRedirectBackwardInformation ]
ISUPRedirectBackwardInformation class >> octalLength [ ^ 1 ]
ISUPRedirectBackwardInformation class >> maxLength [ ^ nil ]
@@ -209,7 +211,7 @@ MSGVariableField subclass: ISUPRedirectBackwardInformation [
]
MSGVariableField subclass: ISUPGenericDigits [
- ISUPGenericDigits class >> name [ ^ 'Generic digits' ]
+ ISUPGenericDigits class >> parameterName [ ^ 'Generic digits' ]
ISUPGenericDigits class >> parameterValue [ ^ ISUPConstants parGenericDigits ]
ISUPGenericDigits class >> octalLength [ ^ 2 ]
ISUPGenericDigits class >> maxLength [ ^ nil ]
@@ -217,7 +219,7 @@ MSGVariableField subclass: ISUPGenericDigits [
]
MSGVariableField subclass: ISUPOriginalCalledNumber [
- ISUPOriginalCalledNumber class >> name [ ^ 'Original called number' ]
+ ISUPOriginalCalledNumber class >> parameterName [ ^ 'Original called number' ]
ISUPOriginalCalledNumber class >> parameterValue [ ^ ISUPConstants parOriginalCalledNumber ]
ISUPOriginalCalledNumber class >> octalLength [ ^ 2 ]
ISUPOriginalCalledNumber class >> maxLength [ ^ nil ]
@@ -225,7 +227,7 @@ MSGVariableField subclass: ISUPOriginalCalledNumber [
]
MSGVariableField subclass: ISUPRedirectionNumber [
- ISUPRedirectionNumber class >> name [ ^ 'Redirection number' ]
+ ISUPRedirectionNumber class >> parameterName [ ^ 'Redirection number' ]
ISUPRedirectionNumber class >> parameterValue [ ^ ISUPConstants parRedirectionNumber ]
ISUPRedirectionNumber class >> octalLength [ ^ 3 ]
ISUPRedirectionNumber class >> maxLength [ ^ nil ]
@@ -233,14 +235,14 @@ MSGVariableField subclass: ISUPRedirectionNumber [
]
MSGFixedField subclass: ISUPPivotRoutingIndicators [
- ISUPPivotRoutingIndicators class >> name [ ^ 'Pivot routing indicators' ]
+ ISUPPivotRoutingIndicators class >> parameterName [ ^ 'Pivot routing indicators' ]
ISUPPivotRoutingIndicators class >> parameterValue [ ^ ISUPConstants parPivotRoutingIndicators ]
ISUPPivotRoutingIndicators class >> octalLength [ ^ 1 ]
ISUPPivotRoutingIndicators class >> spec [ ^ '3.85' ]
]
MSGVariableField subclass: ISUPCallingGeodeticLocation [
- ISUPCallingGeodeticLocation class >> name [ ^ 'Calling geodetic location' ]
+ ISUPCallingGeodeticLocation class >> parameterName [ ^ 'Calling geodetic location' ]
ISUPCallingGeodeticLocation class >> parameterValue [ ^ ISUPConstants parCallingGeodeticLocation ]
ISUPCallingGeodeticLocation class >> octalLength [ ^ 1 ]
ISUPCallingGeodeticLocation class >> maxLength [ ^ nil ]
@@ -248,7 +250,7 @@ MSGVariableField subclass: ISUPCallingGeodeticLocation [
]
MSGVariableField subclass: ISUPSCFId [
- ISUPSCFId class >> name [ ^ 'SCF id' ]
+ ISUPSCFId class >> parameterName [ ^ 'SCF id' ]
ISUPSCFId class >> parameterValue [ ^ ISUPConstants parSCFId ]
ISUPSCFId class >> octalLength [ ^ 1 ]
ISUPSCFId class >> maxLength [ ^ nil ]
@@ -256,21 +258,21 @@ MSGVariableField subclass: ISUPSCFId [
]
MSGFixedField subclass: ISUPPivotCounter [
- ISUPPivotCounter class >> name [ ^ 'Pivot counter' ]
+ ISUPPivotCounter class >> parameterName [ ^ 'Pivot counter' ]
ISUPPivotCounter class >> parameterValue [ ^ ISUPConstants parPivotCounter ]
ISUPPivotCounter class >> octalLength [ ^ 1 ]
ISUPPivotCounter class >> spec [ ^ '3.93' ]
]
MSGFixedField subclass: ISUPAccessDeliveryInformation [
- ISUPAccessDeliveryInformation class >> name [ ^ 'Access delivery information' ]
+ ISUPAccessDeliveryInformation class >> parameterName [ ^ 'Access delivery information' ]
ISUPAccessDeliveryInformation class >> parameterValue [ ^ ISUPConstants parAccessDeliveryInformation ]
ISUPAccessDeliveryInformation class >> octalLength [ ^ 1 ]
ISUPAccessDeliveryInformation class >> spec [ ^ '3.2' ]
]
MSGVariableField subclass: ISUPCallingPartyNumber [
- ISUPCallingPartyNumber class >> name [ ^ 'Calling party number' ]
+ ISUPCallingPartyNumber class >> parameterName [ ^ 'Calling party number' ]
ISUPCallingPartyNumber class >> parameterValue [ ^ ISUPConstants parCallingPartyNumber ]
ISUPCallingPartyNumber class >> octalLength [ ^ 2 ]
ISUPCallingPartyNumber class >> maxLength [ ^ nil ]
@@ -278,21 +280,21 @@ MSGVariableField subclass: ISUPCallingPartyNumber [
]
MSGFixedField subclass: ISUPSignallingPointCode [
- ISUPSignallingPointCode class >> name [ ^ 'Signalling point code' ]
+ ISUPSignallingPointCode class >> parameterName [ ^ 'Signalling point code' ]
ISUPSignallingPointCode class >> parameterValue [ ^ ISUPConstants parSignallingPointCode ]
ISUPSignallingPointCode class >> octalLength [ ^ 2 ]
ISUPSignallingPointCode class >> spec [ ^ '3.50' ]
]
MSGFixedField subclass: ISUPMLPPPrecedence [
- ISUPMLPPPrecedence class >> name [ ^ 'MLPP precedence' ]
+ ISUPMLPPPrecedence class >> parameterName [ ^ 'MLPP precedence' ]
ISUPMLPPPrecedence class >> parameterValue [ ^ ISUPConstants parMLPPPrecedence ]
ISUPMLPPPrecedence class >> octalLength [ ^ 6 ]
ISUPMLPPPrecedence class >> spec [ ^ '3.34' ]
]
MSGVariableField subclass: ISUPForwardGVNS [
- ISUPForwardGVNS class >> name [ ^ 'Forward GVNS' ]
+ ISUPForwardGVNS class >> parameterName [ ^ 'Forward GVNS' ]
ISUPForwardGVNS class >> parameterValue [ ^ ISUPConstants parForwardGVNS ]
ISUPForwardGVNS class >> octalLength [ ^ 3 ]
ISUPForwardGVNS class >> maxLength [ ^ 24 ]
@@ -300,14 +302,14 @@ MSGVariableField subclass: ISUPForwardGVNS [
]
MSGFixedField subclass: ISUPMessageType [
- ISUPMessageType class >> name [ ^ 'Message type' ]
+ ISUPMessageType class >> parameterName [ ^ 'Message type' ]
ISUPMessageType class >> parameterValue [ ^ ISUPConstants parMessageType ]
ISUPMessageType class >> octalLength [ ^ 1 ]
ISUPMessageType class >> spec [ ^ '2.1' ]
]
MSGVariableField subclass: ISUPTransitNetworkSelection [
- ISUPTransitNetworkSelection class >> name [ ^ 'Transit network selection' ]
+ ISUPTransitNetworkSelection class >> parameterName [ ^ 'Transit network selection' ]
ISUPTransitNetworkSelection class >> parameterValue [ ^ ISUPConstants parTransitNetworkSelection ]
ISUPTransitNetworkSelection class >> octalLength [ ^ 2 ]
ISUPTransitNetworkSelection class >> maxLength [ ^ nil ]
@@ -315,7 +317,7 @@ MSGVariableField subclass: ISUPTransitNetworkSelection [
]
MSGVariableField subclass: ISUPDisplayInformation [
- ISUPDisplayInformation class >> name [ ^ 'Display information' ]
+ ISUPDisplayInformation class >> parameterName [ ^ 'Display information' ]
ISUPDisplayInformation class >> parameterValue [ ^ ISUPConstants parDisplayInformation ]
ISUPDisplayInformation class >> octalLength [ ^ 1 ]
ISUPDisplayInformation class >> maxLength [ ^ nil ]
@@ -323,14 +325,14 @@ MSGVariableField subclass: ISUPDisplayInformation [
]
MSGFixedField subclass: ISUPCallReference [
- ISUPCallReference class >> name [ ^ 'Call reference' ]
+ ISUPCallReference class >> parameterName [ ^ 'Call reference' ]
ISUPCallReference class >> parameterValue [ ^ ISUPConstants parCallReference ]
ISUPCallReference class >> octalLength [ ^ 5 ]
ISUPCallReference class >> spec [ ^ '3.8' ]
]
MSGVariableField subclass: ISUPUserToUserInformation [
- ISUPUserToUserInformation class >> name [ ^ 'User-to-user information' ]
+ ISUPUserToUserInformation class >> parameterName [ ^ 'User-to-user information' ]
ISUPUserToUserInformation class >> parameterValue [ ^ ISUPConstants parUserToUserInformation ]
ISUPUserToUserInformation class >> octalLength [ ^ 1 ]
ISUPUserToUserInformation class >> maxLength [ ^ 129 ]
@@ -338,7 +340,7 @@ MSGVariableField subclass: ISUPUserToUserInformation [
]
MSGVariableField subclass: ISUPConnectedNumber [
- ISUPConnectedNumber class >> name [ ^ 'Connected number' ]
+ ISUPConnectedNumber class >> parameterName [ ^ 'Connected number' ]
ISUPConnectedNumber class >> parameterValue [ ^ ISUPConstants parConnectedNumber ]
ISUPConnectedNumber class >> octalLength [ ^ 2 ]
ISUPConnectedNumber class >> maxLength [ ^ nil ]
@@ -346,21 +348,21 @@ MSGVariableField subclass: ISUPConnectedNumber [
]
MSGFixedField subclass: ISUPTransmissionMediumUsed [
- ISUPTransmissionMediumUsed class >> name [ ^ 'Transmission medium used' ]
+ ISUPTransmissionMediumUsed class >> parameterName [ ^ 'Transmission medium used' ]
ISUPTransmissionMediumUsed class >> parameterValue [ ^ ISUPConstants parTransmissionMediumUsed ]
ISUPTransmissionMediumUsed class >> octalLength [ ^ 1 ]
ISUPTransmissionMediumUsed class >> spec [ ^ '3.56' ]
]
MSGFixedField subclass: ISUPInformationRequestIndicators [
- ISUPInformationRequestIndicators class >> name [ ^ 'Information request indicators' ]
+ ISUPInformationRequestIndicators class >> parameterName [ ^ 'Information request indicators' ]
ISUPInformationRequestIndicators class >> parameterValue [ ^ ISUPConstants parInformationRequestIndicators ]
ISUPInformationRequestIndicators class >> octalLength [ ^ 2 ]
ISUPInformationRequestIndicators class >> spec [ ^ '3.29' ]
]
MSGVariableField subclass: ISUPApplicationTransportParameter [
- ISUPApplicationTransportParameter class >> name [ ^ 'Application transport parameter' ]
+ ISUPApplicationTransportParameter class >> parameterName [ ^ 'Application transport parameter' ]
ISUPApplicationTransportParameter class >> parameterValue [ ^ ISUPConstants parApplicationTransportParameter ]
ISUPApplicationTransportParameter class >> octalLength [ ^ 3 ]
ISUPApplicationTransportParameter class >> maxLength [ ^ nil ]
@@ -368,7 +370,7 @@ MSGVariableField subclass: ISUPApplicationTransportParameter [
]
MSGVariableField subclass: ISUPCallDiversionTreatmentIndicators [
- ISUPCallDiversionTreatmentIndicators class >> name [ ^ 'Call diversion treatment indicators' ]
+ ISUPCallDiversionTreatmentIndicators class >> parameterName [ ^ 'Call diversion treatment indicators' ]
ISUPCallDiversionTreatmentIndicators class >> parameterValue [ ^ ISUPConstants parCallDiversionTreatmentIndicators ]
ISUPCallDiversionTreatmentIndicators class >> octalLength [ ^ 1 ]
ISUPCallDiversionTreatmentIndicators class >> maxLength [ ^ nil ]
@@ -376,7 +378,7 @@ MSGVariableField subclass: ISUPCallDiversionTreatmentIndicators [
]
MSGVariableField subclass: ISUPParameterCompatibilityInformation [
- ISUPParameterCompatibilityInformation class >> name [ ^ 'Parameter compatibility information' ]
+ ISUPParameterCompatibilityInformation class >> parameterName [ ^ 'Parameter compatibility information' ]
ISUPParameterCompatibilityInformation class >> parameterValue [ ^ ISUPConstants parParameterCompatibilityInformation ]
ISUPParameterCompatibilityInformation class >> octalLength [ ^ 2 ]
ISUPParameterCompatibilityInformation class >> maxLength [ ^ nil ]
@@ -384,7 +386,7 @@ MSGVariableField subclass: ISUPParameterCompatibilityInformation [
]
MSGVariableField subclass: ISUPNetworkRoutingNumber [
- ISUPNetworkRoutingNumber class >> name [ ^ 'Network routing number' ]
+ ISUPNetworkRoutingNumber class >> parameterName [ ^ 'Network routing number' ]
ISUPNetworkRoutingNumber class >> parameterValue [ ^ ISUPConstants parNetworkRoutingNumber ]
ISUPNetworkRoutingNumber class >> octalLength [ ^ 2 ]
ISUPNetworkRoutingNumber class >> maxLength [ ^ nil ]
@@ -392,7 +394,7 @@ MSGVariableField subclass: ISUPNetworkRoutingNumber [
]
MSGVariableField subclass: ISUPAccessTransport [
- ISUPAccessTransport class >> name [ ^ 'Access transport' ]
+ ISUPAccessTransport class >> parameterName [ ^ 'Access transport' ]
ISUPAccessTransport class >> parameterValue [ ^ ISUPConstants parAccessTransport ]
ISUPAccessTransport class >> octalLength [ ^ 1 ]
ISUPAccessTransport class >> maxLength [ ^ nil ]
@@ -400,14 +402,14 @@ MSGVariableField subclass: ISUPAccessTransport [
]
MSGFixedField subclass: ISUPCircuitGroupSupervisionMessageType [
- ISUPCircuitGroupSupervisionMessageType class >> name [ ^ 'Circuit group supervision message type' ]
+ ISUPCircuitGroupSupervisionMessageType class >> parameterName [ ^ 'Circuit group supervision message type' ]
ISUPCircuitGroupSupervisionMessageType class >> parameterValue [ ^ ISUPConstants parCircuitGroupSupervisionMessageType ]
ISUPCircuitGroupSupervisionMessageType class >> octalLength [ ^ 1 ]
ISUPCircuitGroupSupervisionMessageType class >> spec [ ^ '3.13' ]
]
MSGVariableField subclass: ISUPUserTeleserviceInformation [
- ISUPUserTeleserviceInformation class >> name [ ^ 'User teleservice information' ]
+ ISUPUserTeleserviceInformation class >> parameterName [ ^ 'User teleservice information' ]
ISUPUserTeleserviceInformation class >> parameterValue [ ^ ISUPConstants parUserTeleserviceInformation ]
ISUPUserTeleserviceInformation class >> octalLength [ ^ 2 ]
ISUPUserTeleserviceInformation class >> maxLength [ ^ 3 ]
@@ -415,7 +417,7 @@ MSGVariableField subclass: ISUPUserTeleserviceInformation [
]
MSGVariableField subclass: ISUPHTRInformation [
- ISUPHTRInformation class >> name [ ^ 'HTR information' ]
+ ISUPHTRInformation class >> parameterName [ ^ 'HTR information' ]
ISUPHTRInformation class >> parameterValue [ ^ ISUPConstants parHTRInformation ]
ISUPHTRInformation class >> octalLength [ ^ 2 ]
ISUPHTRInformation class >> maxLength [ ^ nil ]
@@ -423,21 +425,21 @@ MSGVariableField subclass: ISUPHTRInformation [
]
MSGFixedField subclass: ISUPInformationIndicators [
- ISUPInformationIndicators class >> name [ ^ 'Information indicators' ]
+ ISUPInformationIndicators class >> parameterName [ ^ 'Information indicators' ]
ISUPInformationIndicators class >> parameterValue [ ^ ISUPConstants parInformationIndicators ]
ISUPInformationIndicators class >> octalLength [ ^ 2 ]
ISUPInformationIndicators class >> spec [ ^ '3.28' ]
]
MSGFixedField subclass: ISUPCallDiversionInformation [
- ISUPCallDiversionInformation class >> name [ ^ 'Call diversion information' ]
+ ISUPCallDiversionInformation class >> parameterName [ ^ 'Call diversion information' ]
ISUPCallDiversionInformation class >> parameterValue [ ^ ISUPConstants parCallDiversionInformation ]
ISUPCallDiversionInformation class >> octalLength [ ^ 1 ]
ISUPCallDiversionInformation class >> spec [ ^ '3.6' ]
]
MSGVariableField subclass: ISUPCircuitStateIndicator [
- ISUPCircuitStateIndicator class >> name [ ^ 'Circuit state indicator' ]
+ ISUPCircuitStateIndicator class >> parameterName [ ^ 'Circuit state indicator' ]
ISUPCircuitStateIndicator class >> parameterValue [ ^ ISUPConstants parCircuitStateIndicator ]
ISUPCircuitStateIndicator class >> octalLength [ ^ 1 ]
ISUPCircuitStateIndicator class >> maxLength [ ^ 32 ]
@@ -445,14 +447,14 @@ MSGVariableField subclass: ISUPCircuitStateIndicator [
]
MSGFixedField subclass: ISUPLoopPreventionIndicators [
- ISUPLoopPreventionIndicators class >> name [ ^ 'Loop prevention indicators' ]
+ ISUPLoopPreventionIndicators class >> parameterName [ ^ 'Loop prevention indicators' ]
ISUPLoopPreventionIndicators class >> parameterValue [ ^ ISUPConstants parLoopPreventionIndicators ]
ISUPLoopPreventionIndicators class >> octalLength [ ^ 1 ]
ISUPLoopPreventionIndicators class >> spec [ ^ '3.67' ]
]
MSGVariableField subclass: ISUPChargedPartyIdentification [
- ISUPChargedPartyIdentification class >> name [ ^ 'Charged party identification' ]
+ ISUPChargedPartyIdentification class >> parameterName [ ^ 'Charged party identification' ]
ISUPChargedPartyIdentification class >> parameterValue [ ^ ISUPConstants parChargedPartyIdentification ]
ISUPChargedPartyIdentification class >> octalLength [ ^ 1 ]
ISUPChargedPartyIdentification class >> maxLength [ ^ nil ]
@@ -460,7 +462,7 @@ MSGVariableField subclass: ISUPChargedPartyIdentification [
]
MSGVariableField subclass: ISUPLocationNumber [
- ISUPLocationNumber class >> name [ ^ 'Location number' ]
+ ISUPLocationNumber class >> parameterName [ ^ 'Location number' ]
ISUPLocationNumber class >> parameterValue [ ^ ISUPConstants parLocationNumber ]
ISUPLocationNumber class >> octalLength [ ^ 2 ]
ISUPLocationNumber class >> maxLength [ ^ nil ]
@@ -468,7 +470,7 @@ MSGVariableField subclass: ISUPLocationNumber [
]
MSGVariableField subclass: ISUPNumberPortabilityForwardInformation [
- ISUPNumberPortabilityForwardInformation class >> name [ ^ 'Number portability forward information' ]
+ ISUPNumberPortabilityForwardInformation class >> parameterName [ ^ 'Number portability forward information' ]
ISUPNumberPortabilityForwardInformation class >> parameterValue [ ^ ISUPConstants parNumberPortabilityForwardInformation ]
ISUPNumberPortabilityForwardInformation class >> octalLength [ ^ -1 ]
ISUPNumberPortabilityForwardInformation class >> maxLength [ ^ nil ]
@@ -476,21 +478,21 @@ MSGVariableField subclass: ISUPNumberPortabilityForwardInformation [
]
MSGFixedField subclass: ISUPTransmissionMediumRequirement [
- ISUPTransmissionMediumRequirement class >> name [ ^ 'Transmission medium requirement' ]
+ ISUPTransmissionMediumRequirement class >> parameterName [ ^ 'Transmission medium requirement' ]
ISUPTransmissionMediumRequirement class >> parameterValue [ ^ ISUPConstants parTransmissionMediumRequirement ]
ISUPTransmissionMediumRequirement class >> octalLength [ ^ 1 ]
ISUPTransmissionMediumRequirement class >> spec [ ^ '3.54' ]
]
MSGFixedField subclass: ISUPEchoControlInformation [
- ISUPEchoControlInformation class >> name [ ^ 'Echo control information' ]
+ ISUPEchoControlInformation class >> parameterName [ ^ 'Echo control information' ]
ISUPEchoControlInformation class >> parameterValue [ ^ ISUPConstants parEchoControlInformation ]
ISUPEchoControlInformation class >> octalLength [ ^ 1 ]
ISUPEchoControlInformation class >> spec [ ^ '3.19' ]
]
MSGVariableField subclass: ISUPCalledPartyNumber [
- ISUPCalledPartyNumber class >> name [ ^ 'Called party number' ]
+ ISUPCalledPartyNumber class >> parameterName [ ^ 'Called party number' ]
ISUPCalledPartyNumber class >> parameterValue [ ^ ISUPConstants parCalledPartyNumber ]
ISUPCalledPartyNumber class >> octalLength [ ^ 3 ]
ISUPCalledPartyNumber class >> maxLength [ ^ nil ]
@@ -498,14 +500,14 @@ MSGVariableField subclass: ISUPCalledPartyNumber [
]
MSGFixedField subclass: ISUPRedirectionNumberRestriction [
- ISUPRedirectionNumberRestriction class >> name [ ^ 'Redirection number restriction' ]
+ ISUPRedirectionNumberRestriction class >> parameterName [ ^ 'Redirection number restriction' ]
ISUPRedirectionNumberRestriction class >> parameterValue [ ^ ISUPConstants parRedirectionNumberRestriction ]
ISUPRedirectionNumberRestriction class >> octalLength [ ^ 1 ]
ISUPRedirectionNumberRestriction class >> spec [ ^ '3.47' ]
]
MSGVariableField subclass: ISUPUIDActionIndicators [
- ISUPUIDActionIndicators class >> name [ ^ 'UID action indicators' ]
+ ISUPUIDActionIndicators class >> parameterName [ ^ 'UID action indicators' ]
ISUPUIDActionIndicators class >> parameterValue [ ^ ISUPConstants parUIDActionIndicators ]
ISUPUIDActionIndicators class >> octalLength [ ^ 1 ]
ISUPUIDActionIndicators class >> maxLength [ ^ nil ]
@@ -513,28 +515,28 @@ MSGVariableField subclass: ISUPUIDActionIndicators [
]
MSGFixedField subclass: ISUPPivotCapability [
- ISUPPivotCapability class >> name [ ^ 'Pivot capability' ]
+ ISUPPivotCapability class >> parameterName [ ^ 'Pivot capability' ]
ISUPPivotCapability class >> parameterValue [ ^ ISUPConstants parPivotCapability ]
ISUPPivotCapability class >> octalLength [ ^ 1 ]
ISUPPivotCapability class >> spec [ ^ '3.84' ]
]
MSGFixedField subclass: ISUPRange [
- ISUPRange class >> name [ ^ 'Range' ]
+ ISUPRange class >> parameterName [ ^ 'Range' ]
ISUPRange class >> parameterValue [ ^ ISUPConstants parRange ]
ISUPRange class >> octalLength [ ^ 1 ]
ISUPRange class >> spec [ ^ '3.43b' ]
]
MSGFixedField subclass: ISUPFacilityIndicator [
- ISUPFacilityIndicator class >> name [ ^ 'Facility indicator' ]
+ ISUPFacilityIndicator class >> parameterName [ ^ 'Facility indicator' ]
ISUPFacilityIndicator class >> parameterValue [ ^ ISUPConstants parFacilityIndicator ]
ISUPFacilityIndicator class >> octalLength [ ^ 1 ]
ISUPFacilityIndicator class >> spec [ ^ '3.22' ]
]
MSGVariableField subclass: ISUPPivotRoutingForwardInformation [
- ISUPPivotRoutingForwardInformation class >> name [ ^ 'Pivot routing forward information' ]
+ ISUPPivotRoutingForwardInformation class >> parameterName [ ^ 'Pivot routing forward information' ]
ISUPPivotRoutingForwardInformation class >> parameterValue [ ^ ISUPConstants parPivotRoutingForwardInformation ]
ISUPPivotRoutingForwardInformation class >> octalLength [ ^ 1 ]
ISUPPivotRoutingForwardInformation class >> maxLength [ ^ nil ]
@@ -542,21 +544,21 @@ MSGVariableField subclass: ISUPPivotRoutingForwardInformation [
]
MSGFixedField subclass: ISUPCCNRPossibleIndicator [
- ISUPCCNRPossibleIndicator class >> name [ ^ 'CCNR possible indicator' ]
+ ISUPCCNRPossibleIndicator class >> parameterName [ ^ 'CCNR possible indicator' ]
ISUPCCNRPossibleIndicator class >> parameterValue [ ^ ISUPConstants parCCNRPossibleIndicator ]
ISUPCCNRPossibleIndicator class >> octalLength [ ^ 1 ]
ISUPCCNRPossibleIndicator class >> spec [ ^ '3.83' ]
]
MSGFixedField subclass: ISUPOriginationISCPointCode [
- ISUPOriginationISCPointCode class >> name [ ^ 'Origination ISC point code' ]
+ ISUPOriginationISCPointCode class >> parameterName [ ^ 'Origination ISC point code' ]
ISUPOriginationISCPointCode class >> parameterValue [ ^ ISUPConstants parOriginationISCPointCode ]
ISUPOriginationISCPointCode class >> octalLength [ ^ 2 ]
ISUPOriginationISCPointCode class >> spec [ ^ '3.40' ]
]
MSGVariableField subclass: ISUPMessageCompatibilityInformation [
- ISUPMessageCompatibilityInformation class >> name [ ^ 'Message compatibility information' ]
+ ISUPMessageCompatibilityInformation class >> parameterName [ ^ 'Message compatibility information' ]
ISUPMessageCompatibilityInformation class >> parameterValue [ ^ ISUPConstants parMessageCompatibilityInformation ]
ISUPMessageCompatibilityInformation class >> octalLength [ ^ 1 ]
ISUPMessageCompatibilityInformation class >> maxLength [ ^ nil ]
@@ -564,7 +566,7 @@ MSGVariableField subclass: ISUPMessageCompatibilityInformation [
]
MSGVariableField subclass: ISUPRedirectForwardInformation [
- ISUPRedirectForwardInformation class >> name [ ^ 'Redirect forward information' ]
+ ISUPRedirectForwardInformation class >> parameterName [ ^ 'Redirect forward information' ]
ISUPRedirectForwardInformation class >> parameterValue [ ^ ISUPConstants parRedirectForwardInformation ]
ISUPRedirectForwardInformation class >> octalLength [ ^ 1 ]
ISUPRedirectForwardInformation class >> maxLength [ ^ nil ]
@@ -572,21 +574,21 @@ MSGVariableField subclass: ISUPRedirectForwardInformation [
]
MSGFixedField subclass: ISUPGenericNotificationIndicator [
- ISUPGenericNotificationIndicator class >> name [ ^ 'Generic notification indicator' ]
+ ISUPGenericNotificationIndicator class >> parameterName [ ^ 'Generic notification indicator' ]
ISUPGenericNotificationIndicator class >> parameterValue [ ^ ISUPConstants parGenericNotificationIndicator ]
ISUPGenericNotificationIndicator class >> octalLength [ ^ 1 ]
ISUPGenericNotificationIndicator class >> spec [ ^ '3.25' ]
]
MSGFixedField subclass: ISUPUserToUserIndicators [
- ISUPUserToUserIndicators class >> name [ ^ 'User-to-user indicators' ]
+ ISUPUserToUserIndicators class >> parameterName [ ^ 'User-to-user indicators' ]
ISUPUserToUserIndicators class >> parameterValue [ ^ ISUPConstants parUserToUserIndicators ]
ISUPUserToUserIndicators class >> octalLength [ ^ 1 ]
ISUPUserToUserIndicators class >> spec [ ^ '3.60' ]
]
MSGVariableField subclass: ISUPNetworkSpecificFacility [
- ISUPNetworkSpecificFacility class >> name [ ^ 'Network specific facility' ]
+ ISUPNetworkSpecificFacility class >> parameterName [ ^ 'Network specific facility' ]
ISUPNetworkSpecificFacility class >> parameterValue [ ^ ISUPConstants parNetworkSpecificFacility ]
ISUPNetworkSpecificFacility class >> octalLength [ ^ 2 ]
ISUPNetworkSpecificFacility class >> maxLength [ ^ nil ]
@@ -594,28 +596,28 @@ MSGVariableField subclass: ISUPNetworkSpecificFacility [
]
MSGFixedField subclass: ISUPMCIDRequestIndicators [
- ISUPMCIDRequestIndicators class >> name [ ^ 'MCID request indicators' ]
+ ISUPMCIDRequestIndicators class >> parameterName [ ^ 'MCID request indicators' ]
ISUPMCIDRequestIndicators class >> parameterValue [ ^ ISUPConstants parMCIDRequestIndicators ]
ISUPMCIDRequestIndicators class >> octalLength [ ^ 1 ]
ISUPMCIDRequestIndicators class >> spec [ ^ '3.31' ]
]
MSGFixedField subclass: ISUPTransmissionMediumRequirementPrime [
- ISUPTransmissionMediumRequirementPrime class >> name [ ^ 'Transmission medium requirement prime' ]
+ ISUPTransmissionMediumRequirementPrime class >> parameterName [ ^ 'Transmission medium requirement prime' ]
ISUPTransmissionMediumRequirementPrime class >> parameterValue [ ^ ISUPConstants parTransmissionMediumRequirementPrime ]
ISUPTransmissionMediumRequirementPrime class >> octalLength [ ^ 1 ]
ISUPTransmissionMediumRequirementPrime class >> spec [ ^ '3.55' ]
]
MSGFixedField subclass: ISUPContinuityIndicators [
- ISUPContinuityIndicators class >> name [ ^ 'Continuity indicators' ]
+ ISUPContinuityIndicators class >> parameterName [ ^ 'Continuity indicators' ]
ISUPContinuityIndicators class >> parameterValue [ ^ ISUPConstants parContinuityIndicators ]
ISUPContinuityIndicators class >> octalLength [ ^ 1 ]
ISUPContinuityIndicators class >> spec [ ^ '3.18' ]
]
MSGVariableField subclass: ISUPCCSS [
- ISUPCCSS class >> name [ ^ 'CCSS' ]
+ ISUPCCSS class >> parameterName [ ^ 'CCSS' ]
ISUPCCSS class >> parameterValue [ ^ ISUPConstants parCCSS ]
ISUPCCSS class >> octalLength [ ^ 1 ]
ISUPCCSS class >> maxLength [ ^ nil ]
@@ -623,7 +625,7 @@ MSGVariableField subclass: ISUPCCSS [
]
MSGVariableField subclass: ISUPUIDCapabilityIndicators [
- ISUPUIDCapabilityIndicators class >> name [ ^ 'UID capability indicators' ]
+ ISUPUIDCapabilityIndicators class >> parameterName [ ^ 'UID capability indicators' ]
ISUPUIDCapabilityIndicators class >> parameterValue [ ^ ISUPConstants parUIDCapabilityIndicators ]
ISUPUIDCapabilityIndicators class >> octalLength [ ^ 1 ]
ISUPUIDCapabilityIndicators class >> maxLength [ ^ nil ]
@@ -631,7 +633,7 @@ MSGVariableField subclass: ISUPUIDCapabilityIndicators [
]
MSGVariableField subclass: ISUPUserServiceInformationPrime [
- ISUPUserServiceInformationPrime class >> name [ ^ 'User service information prime' ]
+ ISUPUserServiceInformationPrime class >> parameterName [ ^ 'User service information prime' ]
ISUPUserServiceInformationPrime class >> parameterValue [ ^ ISUPConstants parUserServiceInformationPrime ]
ISUPUserServiceInformationPrime class >> octalLength [ ^ 2 ]
ISUPUserServiceInformationPrime class >> maxLength [ ^ 11 ]
@@ -639,7 +641,7 @@ MSGVariableField subclass: ISUPUserServiceInformationPrime [
]
MSGVariableField subclass: ISUPGenericReference [
- ISUPGenericReference class >> name [ ^ 'Generic reference' ]
+ ISUPGenericReference class >> parameterName [ ^ 'Generic reference' ]
ISUPGenericReference class >> parameterValue [ ^ ISUPConstants parGenericReference ]
ISUPGenericReference class >> octalLength [ ^ 3 ]
ISUPGenericReference class >> maxLength [ ^ nil ]
@@ -647,28 +649,28 @@ MSGVariableField subclass: ISUPGenericReference [
]
MSGFixedField subclass: ISUPHopCounter [
- ISUPHopCounter class >> name [ ^ 'Hop counter' ]
+ ISUPHopCounter class >> parameterName [ ^ 'Hop counter' ]
ISUPHopCounter class >> parameterValue [ ^ ISUPConstants parHopCounter ]
ISUPHopCounter class >> octalLength [ ^ 1 ]
ISUPHopCounter class >> spec [ ^ '3.80' ]
]
MSGFixedField subclass: ISUPBackwardCallIndicators [
- ISUPBackwardCallIndicators class >> name [ ^ 'Backward call indicators' ]
+ ISUPBackwardCallIndicators class >> parameterName [ ^ 'Backward call indicators' ]
ISUPBackwardCallIndicators class >> parameterValue [ ^ ISUPConstants parBackwardCallIndicators ]
ISUPBackwardCallIndicators class >> octalLength [ ^ 2 ]
ISUPBackwardCallIndicators class >> spec [ ^ '3.5' ]
]
MSGFixedField subclass: ISUPClosedUserGroupInterlockCode [
- ISUPClosedUserGroupInterlockCode class >> name [ ^ 'Closed user group interlock code' ]
+ ISUPClosedUserGroupInterlockCode class >> parameterName [ ^ 'Closed user group interlock code' ]
ISUPClosedUserGroupInterlockCode class >> parameterValue [ ^ ISUPConstants parClosedUserGroupInterlockCode ]
ISUPClosedUserGroupInterlockCode class >> octalLength [ ^ 4 ]
ISUPClosedUserGroupInterlockCode class >> spec [ ^ '3.15' ]
]
MSGVariableField subclass: ISUPRangeAndStatus [
- ISUPRangeAndStatus class >> name [ ^ 'Range and status' ]
+ ISUPRangeAndStatus class >> parameterName [ ^ 'Range and status' ]
ISUPRangeAndStatus class >> parameterValue [ ^ ISUPConstants parRangeAndStatus ]
ISUPRangeAndStatus class >> octalLength [ ^ 2 ]
ISUPRangeAndStatus class >> maxLength [ ^ 33 ]
@@ -676,14 +678,14 @@ MSGVariableField subclass: ISUPRangeAndStatus [
]
MSGFixedField subclass: ISUPRedirectStatus [
- ISUPRedirectStatus class >> name [ ^ 'Redirect status' ]
+ ISUPRedirectStatus class >> parameterName [ ^ 'Redirect status' ]
ISUPRedirectStatus class >> parameterValue [ ^ ISUPConstants parRedirectStatus ]
ISUPRedirectStatus class >> octalLength [ ^ 1 ]
ISUPRedirectStatus class >> spec [ ^ '3.98' ]
]
MSGVariableField subclass: ISUPCallOfferingTreatmentIndicators [
- ISUPCallOfferingTreatmentIndicators class >> name [ ^ 'Call offering treatment indicators' ]
+ ISUPCallOfferingTreatmentIndicators class >> parameterName [ ^ 'Call offering treatment indicators' ]
ISUPCallOfferingTreatmentIndicators class >> parameterValue [ ^ ISUPConstants parCallOfferingTreatmentIndicators ]
ISUPCallOfferingTreatmentIndicators class >> octalLength [ ^ 1 ]
ISUPCallOfferingTreatmentIndicators class >> maxLength [ ^ nil ]
@@ -691,7 +693,7 @@ MSGVariableField subclass: ISUPCallOfferingTreatmentIndicators [
]
MSGVariableField subclass: ISUPServiceActivation [
- ISUPServiceActivation class >> name [ ^ 'Service activation' ]
+ ISUPServiceActivation class >> parameterName [ ^ 'Service activation' ]
ISUPServiceActivation class >> parameterValue [ ^ ISUPConstants parServiceActivation ]
ISUPServiceActivation class >> octalLength [ ^ 1 ]
ISUPServiceActivation class >> maxLength [ ^ nil ]
@@ -699,7 +701,7 @@ MSGVariableField subclass: ISUPServiceActivation [
]
MSGVariableField subclass: ISUPGenericNumber [
- ISUPGenericNumber class >> name [ ^ 'Generic number' ]
+ ISUPGenericNumber class >> parameterName [ ^ 'Generic number' ]
ISUPGenericNumber class >> parameterValue [ ^ ISUPConstants parGenericNumber ]
ISUPGenericNumber class >> octalLength [ ^ 3 ]
ISUPGenericNumber class >> maxLength [ ^ nil ]
@@ -707,7 +709,7 @@ MSGVariableField subclass: ISUPGenericNumber [
]
MSGVariableField subclass: ISUPRedirectingNumber [
- ISUPRedirectingNumber class >> name [ ^ 'Redirecting number' ]
+ ISUPRedirectingNumber class >> parameterName [ ^ 'Redirecting number' ]
ISUPRedirectingNumber class >> parameterValue [ ^ ISUPConstants parRedirectingNumber ]
ISUPRedirectingNumber class >> octalLength [ ^ 2 ]
ISUPRedirectingNumber class >> maxLength [ ^ nil ]
@@ -715,14 +717,14 @@ MSGVariableField subclass: ISUPRedirectingNumber [
]
MSGFixedField subclass: ISUPOptionalBackwardCallIndicators [
- ISUPOptionalBackwardCallIndicators class >> name [ ^ 'Optional backward call indicators' ]
+ ISUPOptionalBackwardCallIndicators class >> parameterName [ ^ 'Optional backward call indicators' ]
ISUPOptionalBackwardCallIndicators class >> parameterValue [ ^ ISUPConstants parOptionalBackwardCallIndicators ]
ISUPOptionalBackwardCallIndicators class >> octalLength [ ^ 1 ]
ISUPOptionalBackwardCallIndicators class >> spec [ ^ '3.37' ]
]
MSGVariableField subclass: ISUPOriginalCalledINNumber [
- ISUPOriginalCalledINNumber class >> name [ ^ 'Original called IN number' ]
+ ISUPOriginalCalledINNumber class >> parameterName [ ^ 'Original called IN number' ]
ISUPOriginalCalledINNumber class >> parameterValue [ ^ ISUPConstants parOriginalCalledINNumber ]
ISUPOriginalCalledINNumber class >> octalLength [ ^ 2 ]
ISUPOriginalCalledINNumber class >> maxLength [ ^ nil ]
@@ -730,14 +732,14 @@ MSGVariableField subclass: ISUPOriginalCalledINNumber [
]
MSGFixedField subclass: ISUPEventInformation [
- ISUPEventInformation class >> name [ ^ 'Event information' ]
+ ISUPEventInformation class >> parameterName [ ^ 'Event information' ]
ISUPEventInformation class >> parameterValue [ ^ ISUPConstants parEventInformation ]
ISUPEventInformation class >> octalLength [ ^ 1 ]
ISUPEventInformation class >> spec [ ^ '3.21' ]
]
MSGVariableField subclass: ISUPPivotRoutingBackwardInformation [
- ISUPPivotRoutingBackwardInformation class >> name [ ^ 'Pivot routing backward information' ]
+ ISUPPivotRoutingBackwardInformation class >> parameterName [ ^ 'Pivot routing backward information' ]
ISUPPivotRoutingBackwardInformation class >> parameterValue [ ^ ISUPConstants parPivotRoutingBackwardInformation ]
ISUPPivotRoutingBackwardInformation class >> octalLength [ ^ 1 ]
ISUPPivotRoutingBackwardInformation class >> maxLength [ ^ nil ]
@@ -745,7 +747,7 @@ MSGVariableField subclass: ISUPPivotRoutingBackwardInformation [
]
MSGVariableField subclass: ISUPCircuitAssignmentMap [
- ISUPCircuitAssignmentMap class >> name [ ^ 'Circuit assignment map' ]
+ ISUPCircuitAssignmentMap class >> parameterName [ ^ 'Circuit assignment map' ]
ISUPCircuitAssignmentMap class >> parameterValue [ ^ ISUPConstants parCircuitAssignmentMap ]
ISUPCircuitAssignmentMap class >> octalLength [ ^ 4 ]
ISUPCircuitAssignmentMap class >> maxLength [ ^ 5 ]
@@ -753,14 +755,14 @@ MSGVariableField subclass: ISUPCircuitAssignmentMap [
]
MSGFixedField subclass: ISUPMCIDResponseIndicators [
- ISUPMCIDResponseIndicators class >> name [ ^ 'MCID response indicators' ]
+ ISUPMCIDResponseIndicators class >> parameterName [ ^ 'MCID response indicators' ]
ISUPMCIDResponseIndicators class >> parameterValue [ ^ ISUPConstants parMCIDResponseIndicators ]
ISUPMCIDResponseIndicators class >> octalLength [ ^ 1 ]
ISUPMCIDResponseIndicators class >> spec [ ^ '3.32' ]
]
MSGVariableField subclass: ISUPCallTransferNumber [
- ISUPCallTransferNumber class >> name [ ^ 'Call transfer number' ]
+ ISUPCallTransferNumber class >> parameterName [ ^ 'Call transfer number' ]
ISUPCallTransferNumber class >> parameterValue [ ^ ISUPConstants parCallTransferNumber ]
ISUPCallTransferNumber class >> octalLength [ ^ 2 ]
ISUPCallTransferNumber class >> maxLength [ ^ nil ]
@@ -770,7 +772,7 @@ MSGVariableField subclass: ISUPCallTransferNumber [
"MSGs for ISUP"
ISUPMessage subclass: ISUPACM [
ISUPACM class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgACM)
+ ^ (self initWith: ISUPConstants msgACM)
addFixed: ISUPBackwardCallIndicators;
addOptional: ISUPOptionalBackwardCallIndicators;
addOptional: ISUPCallReference;
@@ -804,7 +806,7 @@ ISUPMessage subclass: ISUPACM [
ISUPMessage subclass: ISUPAMN [
ISUPAMN class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgAMN)
+ ^ (self initWith: ISUPConstants msgAMN)
addOptional: ISUPBackwardCallIndicators;
addOptional: ISUPOptionalBackwardCallIndicators;
addOptional: ISUPCallReference;
@@ -838,7 +840,7 @@ ISUPMessage subclass: ISUPAMN [
ISUPMessage subclass: ISUPAPT [
ISUPAPT class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgAPT)
+ ^ (self initWith: ISUPConstants msgAPT)
addOptional: ISUPMessageCompatibilityInformation;
addOptional: ISUPParameterCompatibilityInformation;
addOptional: ISUPApplicationTransportParameter;
@@ -850,7 +852,7 @@ ISUPMessage subclass: ISUPAPT [
ISUPMessage subclass: ISUPBLO [
ISUPBLO class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgBLO)
+ ^ (self initWith: ISUPConstants msgBLO)
yourself.
]
]
@@ -858,7 +860,7 @@ ISUPMessage subclass: ISUPBLO [
ISUPMessage subclass: ISUPCFN [
ISUPCFN class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgCFN)
+ ^ (self initWith: ISUPConstants msgCFN)
addVariable: ISUPCauseIndicators;
addOptional: ISUPEndOfOptionalParameters;
yourself.
@@ -868,7 +870,7 @@ ISUPMessage subclass: ISUPCFN [
ISUPMessage subclass: ISUPCGB [
ISUPCGB class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgCGB)
+ ^ (self initWith: ISUPConstants msgCGB)
addFixed: ISUPCircuitGroupSupervisionMessageType;
addVariable: ISUPRangeAndStatus;
yourself.
@@ -878,7 +880,7 @@ ISUPMessage subclass: ISUPCGB [
ISUPMessage subclass: ISUPCON [
ISUPCON class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgCON)
+ ^ (self initWith: ISUPConstants msgCON)
addFixed: ISUPBackwardCallIndicators;
addOptional: ISUPOptionalBackwardCallIndicators;
addOptional: ISUPBackwardGVNS;
@@ -911,7 +913,7 @@ ISUPMessage subclass: ISUPCON [
ISUPMessage subclass: ISUPCOT [
ISUPCOT class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgCOT)
+ ^ (self initWith: ISUPConstants msgCOT)
addFixed: ISUPContinuityIndicators;
yourself.
]
@@ -920,7 +922,7 @@ ISUPMessage subclass: ISUPCOT [
ISUPMessage subclass: ISUPCPG [
ISUPCPG class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgCPG)
+ ^ (self initWith: ISUPConstants msgCPG)
addFixed: ISUPEventInformation;
addOptional: ISUPCauseIndicators;
addOptional: ISUPCallReference;
@@ -959,7 +961,7 @@ ISUPMessage subclass: ISUPCPG [
ISUPMessage subclass: ISUPCQR [
ISUPCQR class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgCQR)
+ ^ (self initWith: ISUPConstants msgCQR)
addVariable: ISUPRange;
addVariable: ISUPCircuitStateIndicator;
yourself.
@@ -969,7 +971,7 @@ ISUPMessage subclass: ISUPCQR [
ISUPMessage subclass: ISUPFAA [
ISUPFAA class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgFAA)
+ ^ (self initWith: ISUPConstants msgFAA)
addFixed: ISUPFacilityIndicator;
addOptional: ISUPUserToUserIndicators;
addOptional: ISUPCallReference;
@@ -983,7 +985,7 @@ ISUPMessage subclass: ISUPFAA [
ISUPMessage subclass: ISUPFAC [
ISUPFAC class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgFAC)
+ ^ (self initWith: ISUPConstants msgFAC)
addOptional: ISUPMessageCompatibilityInformation;
addOptional: ISUPParameterCompatibilityInformation;
addOptional: ISUPRemoteOperations;
@@ -1005,7 +1007,7 @@ ISUPMessage subclass: ISUPFAC [
ISUPMessage subclass: ISUPFOT [
ISUPFOT class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgFOT)
+ ^ (self initWith: ISUPConstants msgFOT)
addOptional: ISUPCallReference;
addOptional: ISUPEndOfOptionalParameters;
yourself.
@@ -1015,7 +1017,7 @@ ISUPMessage subclass: ISUPFOT [
ISUPMessage subclass: ISUPFRJ [
ISUPFRJ class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgFRJ)
+ ^ (self initWith: ISUPConstants msgFRJ)
addFixed: ISUPFacilityIndicator;
addVariable: ISUPCauseIndicators;
addOptional: ISUPUserToUserIndicators;
@@ -1027,7 +1029,7 @@ ISUPMessage subclass: ISUPFRJ [
ISUPMessage subclass: ISUPGRA [
ISUPGRA class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgGRA)
+ ^ (self initWith: ISUPConstants msgGRA)
addVariable: ISUPRangeAndStatus;
yourself.
]
@@ -1036,7 +1038,7 @@ ISUPMessage subclass: ISUPGRA [
ISUPMessage subclass: ISUPGRS [
ISUPGRS class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgGRS)
+ ^ (self initWith: ISUPConstants msgGRS)
addVariable: ISUPRange;
yourself.
]
@@ -1045,7 +1047,7 @@ ISUPMessage subclass: ISUPGRS [
ISUPMessage subclass: ISUPIAM [
ISUPIAM class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgIAM)
+ ^ (self initWith: ISUPConstants msgIAM)
addFixed: ISUPNatureOfConnectionIndicators;
addFixed: ISUPForwardCallIndicators;
addFixed: ISUPCallingPartysCategory;
@@ -1115,7 +1117,7 @@ ISUPMessage subclass: ISUPIAM [
ISUPMessage subclass: ISUPIDR [
ISUPIDR class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgIDR)
+ ^ (self initWith: ISUPConstants msgIDR)
addOptional: ISUPMCIDRequestIndicators;
addOptional: ISUPMessageCompatibilityInformation;
addOptional: ISUPParameterCompatibilityInformation;
@@ -1127,7 +1129,7 @@ ISUPMessage subclass: ISUPIDR [
ISUPMessage subclass: ISUPIDS [
ISUPIDS class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgIDS)
+ ^ (self initWith: ISUPConstants msgIDS)
addOptional: ISUPMCIDResponseIndicators;
addOptional: ISUPMessageCompatibilityInformation;
addOptional: ISUPParameterCompatibilityInformation;
@@ -1143,7 +1145,7 @@ ISUPMessage subclass: ISUPIDS [
ISUPMessage subclass: ISUPINF [
ISUPINF class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgINF)
+ ^ (self initWith: ISUPConstants msgINF)
addFixed: ISUPInformationIndicators;
addOptional: ISUPCallingPartysCategory;
addOptional: ISUPCallingPartyNumber;
@@ -1159,7 +1161,7 @@ ISUPMessage subclass: ISUPINF [
ISUPMessage subclass: ISUPINR [
ISUPINR class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgINR)
+ ^ (self initWith: ISUPConstants msgINR)
addFixed: ISUPInformationRequestIndicators;
addOptional: ISUPCallReference;
addOptional: ISUPNetworkSpecificFacility;
@@ -1172,7 +1174,7 @@ ISUPMessage subclass: ISUPINR [
ISUPMessage subclass: ISUPLPR [
ISUPLPR class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgLPR)
+ ^ (self initWith: ISUPConstants msgLPR)
addOptional: ISUPMessageCompatibilityInformation;
addOptional: ISUPParameterCompatibilityInformation;
addOptional: ISUPCallTransferReference;
@@ -1185,7 +1187,7 @@ ISUPMessage subclass: ISUPLPR [
ISUPMessage subclass: ISUPNRM [
ISUPNRM class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgNRM)
+ ^ (self initWith: ISUPConstants msgNRM)
addOptional: ISUPMessageCompatibilityInformation;
addOptional: ISUPParameterCompatibilityInformation;
addOptional: ISUPEchoControlInformation;
@@ -1197,7 +1199,7 @@ ISUPMessage subclass: ISUPNRM [
ISUPMessage subclass: ISUPPRI [
ISUPPRI class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgPRI)
+ ^ (self initWith: ISUPConstants msgPRI)
addOptional: ISUPMessageCompatibilityInformation;
addOptional: ISUPParameterCompatibilityInformation;
addOptionals: ISUPOptionalForwardCallIndicators;
@@ -1211,7 +1213,7 @@ ISUPMessage subclass: ISUPPRI [
ISUPMessage subclass: ISUPREL [
ISUPREL class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgREL)
+ ^ (self initWith: ISUPConstants msgREL)
addVariable: ISUPCauseIndicators;
addOptional: ISUPRedirectionInformation;
addOptional: ISUPRedirectionNumber;
@@ -1236,7 +1238,7 @@ ISUPMessage subclass: ISUPREL [
ISUPMessage subclass: ISUPRES [
ISUPRES class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgRES)
+ ^ (self initWith: ISUPConstants msgRES)
addFixed: ISUPSuspendResumeIndicators;
addOptional: ISUPCallReference;
addOptional: ISUPEndOfOptionalParameters;
@@ -1247,7 +1249,7 @@ ISUPMessage subclass: ISUPRES [
ISUPMessage subclass: ISUPRLC [
ISUPRLC class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgRLC)
+ ^ (self initWith: ISUPConstants msgRLC)
addOptional: ISUPCauseIndicators;
addOptional: ISUPEndOfOptionalParameters;
yourself.
@@ -1257,7 +1259,7 @@ ISUPMessage subclass: ISUPRLC [
ISUPMessage subclass: ISUPSAM [
ISUPSAM class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgSAM)
+ ^ (self initWith: ISUPConstants msgSAM)
addVariable: ISUPSubsequentNumber;
addOptional: ISUPEndOfOptionalParameters;
yourself.
@@ -1267,7 +1269,7 @@ ISUPMessage subclass: ISUPSAM [
ISUPMessage subclass: ISUPSAN [
ISUPSAN class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgSAN)
+ ^ (self initWith: ISUPConstants msgSAN)
addOptional: ISUPSubsequentNumber;
addOptional: ISUPMessageCompatibilityInformation;
addOptional: ISUPEndOfOptionalParameters;
@@ -1278,7 +1280,7 @@ ISUPMessage subclass: ISUPSAN [
ISUPMessage subclass: ISUPSEG [
ISUPSEG class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgSEG)
+ ^ (self initWith: ISUPConstants msgSEG)
addOptional: ISUPAccessTransport;
addOptional: ISUPUserToUserInformation;
addOptional: ISUPMessageCompatibilityInformation;
@@ -1293,7 +1295,7 @@ ISUPMessage subclass: ISUPSEG [
ISUPMessage subclass: ISUPUPT [
ISUPUPT class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgUPT)
+ ^ (self initWith: ISUPConstants msgUPT)
addOptional: ISUPParameterCompatibilityInformation;
addOptional: ISUPEndOfOptionalParameters;
yourself.
@@ -1303,7 +1305,7 @@ ISUPMessage subclass: ISUPUPT [
ISUPMessage subclass: ISUPUSR [
ISUPUSR class >> structure [
- ^ (MSGStructure initWith: ISUPConstants msgUSR)
+ ^ (self initWith: ISUPConstants msgUSR)
addVariable: ISUPUserToUserInformation;
addOptional: ISUPAccessTransport;
addOptional: ISUPEndOfOptionalParameters;
generated by cgit v1.2.3 (git 2.25.1) at 2024-06-13 10:50:15 +0000