Global: ^AIBCVTJ

Information

FileMan FileNo	FileMan Filename	Package
9002141	DPS IBM RJE JOB	IBM DDPS Record Consolidation

Package	Total	Routines
IBM DDPS Record Consolidation	1	AIBCVT0

Package	Total	FileMan Files
IBM DDPS Record Consolidation	1	DPS IBM RECORD CONTROL(#9002140)[5]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	JOB NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `9002141^B` 1)= S ^AIBCVTJ("B",$E(X,1,30),DA)="" 2)= K ^AIBCVTJ("B",$E(X,1,30),DA)
1	BEGIN JOB CARDS	1;0	Multiple #9002141.01	9002141.01
2	END JCL CARDS	2;0	Multiple #9002141.02	9002141.02

JOB NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 9002141^B

1)= S ^AIBCVTJ("B",$E(X,1,30),DA)=""

2)= K ^AIBCVTJ("B",$E(X,1,30),DA)

1 BEGIN JOB CARDS 1;0 Multiple #9002141.01 9002141.01

2 END JCL CARDS 2;0 Multiple #9002141.02 9002141.02