Totally bypassing the key screen in EDTRCD or DSPRCD

book

Article ID: 20067

calendar_today

Updated On:

Products

CA 2E

Issue/Introduction

Description:

Normally EDTRCD or DSPRCD functions are called with fully restricted keys and the Bypass key screen function option set to Y. In some situations this is not possible but you do not want the key screen to be displayed with incomplete keys. This document describes a neat technique to totally bypass the key screen no matter how many keys are supplied.

Solution:

The technique involves adding a new condition T for Totally bypass key screen to the model's system field *Bypass key screen. The field*Bypass key screen is added to the file *Program data. In the user points EDTRCD USER: Initialize key screen or DSPRCD USER: Load key screen add a *MOVE to set PGM context *Bypass key screen to CND Totally bypass key screen.

Add a new CND Totally bypass key screen value T to 2E system field *Bypass key screen

<Please see attached file for image>

Figure 1

Add a new Has relation for *Bypass key screen at sequence 999 to file *Program data

This means that the field can be directly used in PGM context within an Action Diagram without the need for EXCUSRSRC

<Please see attached file for image>

Figure 2


Simple test file

<Please see attached file for image>

Figure 3

My example EDTRCD on the test file has this parameter…

<Please see attached file for image>

Figure 4


…and these functions options

<Please see attached file for image>

Figure 5

In its Action Diagram

<Please see attached file for image>

Figure 6


Call the program with blank input key parameter

<Please see attached file for image>

Figure 7

Detail screen with key supplied by function

<Please see attached file for image>

Figure 8

Environment

Release: K1EBAS04400-8.5-2E-400 Toolkit
Component:

Attachments

1558717272738000020067_sktwi1f5rjvs16uhx.gif get_app
1558717270872000020067_sktwi1f5rjvs16uhw.gif get_app
1558717268982000020067_sktwi1f5rjvs16uhv.gif get_app
1558717267079000020067_sktwi1f5rjvs16uhu.gif get_app
1558717265127000020067_sktwi1f5rjvs16uht.gif get_app
1558717263293000020067_sktwi1f5rjvs16uhs.gif get_app
1558717261441000020067_sktwi1f5rjvs16uhr.gif get_app
1558717259593000020067_sktwi1f5rjvs16uhq.gif get_app