AS/400 - Vista en AS/400

Queria saber como puedo crear una vista en AS, si existe una forma donde le especifico la Biblioteca y las tabas.

Las vistas del AS/400 son Archivos logicos que dependen de un archivo Fisico ejemplo

Archivo fisico VENF01
ESTRUCTURA

R VENF01R
VENCLA
VENNOM 45
VENDIR 45
VENTEL 70

ARCHIVO LOGICO POR NOMBRE DEL FISICO DE VENF01

VENL01

R VENF01R
K VENNOM

Esta vista visualiza el Fisico VENF01 creo que a eso se refiere

En la linea de comando de un AS/400 escriba este comando STRPDM
con el PDM usted puede trabajar con el editor del AS/400

Si eso es lo que desea, si no es eso envie un correo le dare mas detalles.

Hola,

Puedes probar con el SQL del AS/400 la instrucción

CREATE VIEW.

Este puede ser un ejemplo.

CREATE VIEW QTEMP/F4101LX (IMGLPT, IMDSC1) AS
SELECT IMGLPT, IMDSC1
FROM PRODDTA/F4101
WHERE IMLITM = '1004521213'

usando el comando OPENQRYFILE puedes crearla usando sql

o bien generando un LF sobre un archivo PF

saludos

CREATE VIEW MMSR4LIB.INV_TIENDAS AS
SELECT B.STCTRY PAIS,A.STRNUM SUCURSAL,STRNAM DESCRIPCION_SUCURSAL,
SUBSTR(WSDOSL,1,2) UBICACION,
CASE SUBSTR(WSDOSL,1,2)
WHEN '02' THEN 'EXHIBICION'
WHEN '01' THEN 'BODEGA'
WHEN '04' THEN 'MAL ESTADO'
WHEN '09' THEN 'REMATES'
WHEN '33' THEN 'PROMOCIONALES'
END DESCRIPCION_UBICACION ,
SUBSTR(WSDOSL,4,5)CAUSA,A.INUMBR SKU,C.IDESCR DECRIPCION_SKU,WHHAND INVENTARIO,
IDEPT DEPARTAMENTO,ISDEPT SUB_DEPARTAMENTO,ICLAS CLASE,ISCLAS SUB_CLASE
FROM MMSR4LIB.WHSLSK A LEFT OUTER JOIN MMSR4LIB.TBLSTR B ON(A.STRNUM=B.STRNUM)
INNER JOIN MMSR4LIB.INVMST C ON (A.INUMBR=C.INUMBR)
WHERE WSAMYN='S'