× Discuss about Archiving, Close of Business, Delivery Setup, Security Management System, Global Processing etc…

COB Service

Start
Prev
1
Next
End

yoshan
Topic Author
Visitor

11 years 6 months ago #15278 by yoshan

COB Service was created by yoshan

Hi All,

We have a requirement to restrict comma mode only for COB service and enable the service stop and start using dual. (One for input and One for authorization). I have checked with USG team and they said its not possible. Kindly let me know is it possible? and Any alternatives pls let me know.

Thank you,

Please Log in or Create an account to join the conversation.

jpb
Offline
Moderator
retired . . . ¯\_(ツ)_/¯

11 years 6 months ago #15280 by jpb

Replied by jpb on topic COB Service

You can attach a INPUT.ROUTINE that changes R.VERSION(EB.VER.NO.OF.AUTH) to either 0 or 1 depending on ID.NEW.

The following user(s) said Thank You: yoshan

Please Log in or Create an account to join the conversation.

yoshan
Topic Author
Visitor

11 years 6 months ago #15281 by yoshan

Replied by yoshan on topic COB Service

Thank you very much. Kindly let me know sample coding.

Please Log in or Create an account to join the conversation.

jpb
Offline
Moderator
retired . . . ¯\_(ツ)_/¯

11 years 6 months ago #15282 by jpb

Replied by jpb on topic COB Service

SUBROUTINE ...
*
* set number of authorisers for COB Servicre to 0, for all other services to 1
*
* INCOMING from I_COMMON
*      ID.NEW - current service
*      R.VERSION - the already read version record
*
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.VERSION

IF ID.NEW EQ "COB" THEN
    R.VERSION(EB.VER.NO.OF.AUTH) = 0
END ELSE
    R.VERSION(EB.VER.NO.OF.AUTH) = 1
END

RETURN

The following user(s) said Thank You: yoshan

Please Log in or Create an account to join the conversation.

Valleyman1
Visitor

9 years 9 months ago #18163 by Valleyman1

Replied by Valleyman1 on topic COB Service

Hi jpb

I have seen the example posted above. I have tried it , my VERSION program is changing NO.OF.AUTH from 1 to 0
R.VERSION(46) : 0
but the entries are still going in unauthorized state.

Regards

Please Log in or Create an account to join the conversation.

jpb
Offline
Moderator
retired . . . ¯\_(ツ)_/¯

9 years 9 months ago #18165 by jpb

Replied by jpb on topic COB Service

In R14 and with desktop it works perfectly with this routine attached as input routine.

Please Log in or Create an account to join the conversation.

Valleyman1
Visitor

9 years 9 months ago - 9 years 9 months ago #18167 by Valleyman1

Replied by Valleyman1 on topic COB Service

SEL.CMD = 'SELECT F.EB.SIGNATORY.GROUP WITH @ID LIKE ':CUST.GRP
    CALL EB.READLIST(SEL.CMD, SIGNATORY.LIST,'','','')
    Y.SIG.ID = SIGNATORY.LIST<1>
    CALL F.READ(FN.EB.SIGNATORY.GROUP,Y.SIG.ID,R.SIG,F.EB.SIGNATORY.GROUP,ERR) 
    CUST.ID = R.SIG<EB.SIG.GRP.SIGNATORY.CUSTOMER>
    CUST.CNT = DCOUNT(CUST,VM)
    IF CUST.CNT LE 1 THEN
        R.VERSION(EB.VER.NO.OF.AUTH) = 0
        CALL REBUILD.SCREEN
    END

This is the code am working on. R.VERSION is showing the following contents. Default Value for FIELD 46 is 1

R.VERSION(38)             : ]]]]]]]]]]]
  R.VERSION(39)             : ]]]]]]]]]]]
  R.VERSION(40)             : ]]]]]]]]]]]
  R.VERSION(41)             : ]]]]]]]]]]]
  R.VERSION(42)             : ]]]]]]]]]]]
  R.VERSION(43)             : 
  R.VERSION(44)             : 
  R.VERSION(45)             : 
  R.VERSION(46)             : 0
  R.VERSION(47)             : 21]2]22
  R.VERSION(48)             : 
  R.VERSION(49)             : 
  R.VERSION(50)             : 21]2
  R.VERSION(51)             : ]
  R.VERSION(52)             : OT31

Last edit: 9 years 9 months ago by Valleyman1.

Please Log in or Create an account to join the conversation.

jpb
Offline
Moderator
retired . . . ¯\_(ツ)_/¯

9 years 9 months ago #18171 by jpb

Replied by jpb on topic COB Service

Maybe the cause is switching from 1 to 0, I always use the other way round, i.e. default = 0 and setting 1 if authorisation is needed.

Please Log in or Create an account to join the conversation.

Start
Prev
1
Next
End

Time to create page: 0.035 seconds